
User Unit Operation 6-15
6-15
stream
wtr.Pressure.Calculate(feed.PressureValue)
wtr.Temperature.Calculate(feed.TemperatureValue)
wtr.MolarFlow.Calculate(WaterFlow)
' remove the water from the CMF array
CMFs(waterPosn) = 0.0
' calculate Temperature, Pressure, and ComponentMolarFlows of the dry
stream
prod.Pressure.Calculate(feed.PressureValue)
prod.Temperature.Calculate(feed.TemperatureValue)
prod.MolarFlow.Calculate(DryFlow)
' calculate the composition of the dry stream
For i = 0 To theComps.Count - 1
CMFs(i) = CMFS(i) / DryFlow
Next i
prod.ComponentMolarFraction.Calculate(CMFs)
' calculate the composition of the water stream (pure water)
For i = 0 To theComps.Count - 1
CMFs(i) = 0.0
Next i
CMFs(waterPosn) = 1.0
wtr.ComponentMolarFraction.Calculate(CMFs)
' tell the Solver we're done
' (this will remove the "Not Solved" status message)
ActiveObject.SolveComplete
Exit Sub
EarlyExit:
' not enough info to calculate
End Sub
Sub StatusQuery()
On Error GoTo ThatsAll
Dim GotOne As Boolean
GotOne = False
If ActiveObject.Feeds1.Count = 0 Then
GotOne = True
ActiveObject.AddStatusCondition(slMissingRequiredInformation, 1,
"Feed Stream Required")
End If
If ActiveObject.Products1.Count = 0 Then
GotOne = True
ActiveObject.AddStatusCondition(slMissingRequiredInformation, 2,
"Dry Product Stream Required")
End If
Dehumidifier Code
Comentários a estes Manuais