Aspen Touch Solutions ATM-123R Series Especificações Página 309

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 374
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 308
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
Vista de página 308
1 2 ... 304 305 306 307 308 309 310 311 312 313 314 ... 373 374

Comentários a estes Manuais

Sem comentários