Aspen Touch Solutions ATM-123R Series Specifikace Strana 169

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 374
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 168
Extensibility 3-85
3-85
When a product stream component is located, results for each
property, MW and Flash Point, are stored in corresponding
property vectors.
If hyComponentFeed.NormalBoilingPoint > normalbp(0) Then
If hyComponentFeed.NormalBoilingPoint <= normalbp(i + 1)
Then
mymolefrac = get_CompMoleFracFeed(hyComponentFeed.IDNumber, _
hyCompMoleFrac_Feed, hyComponentsFeed)
molwi = get_CompMWFeed(hyComponentFeed.IDNumber, hyComponentsFeed)
hyCompMoleFlow_Product(i) = hyCompMoleFlow_Product(i) _
+ mymolefrac * mymolarflow
' Molecular weight - add property vector data here
MyMWResults(i) = MyMWResults(i) + mymolefrac *
vntMWFeedContent(feedcompindex)
MyVolFlowResults(i) = MyVolFlowResults(i) + myvolfrac * myvolflow
MyMassFlowResults(i) = MyMassFlowResults(i) + _
hyCompMassFlow_Feed(feedcompindex)
' Petroleum properties
If usefeedstrmpetprop = NO Then
mypetroproperty = "Flash Point"
mypetropropresult = GetPetroleumValueByID(hyComponentFeed.IDNumber, _
mypetroproperty)
MyFlashPointResults(i) = MyFlashPointResults(i) + mymolefrac * _
mypetropropresult
If mypetropropresult = EMPTY_ Then
FlashPointprod(i) = 100.01
Else
FlashPointprod(i) = mypetropropresult
End If
Else ' from feedstream
mypetroproperty = "Flash Point"
mypetropropresult = MyFlashPointResultsFeed(feedcompindex)
MyFlashPointResults(i) = MyFlashPointResults(i) + mymolefrac * _
mypetropropresult
If mypetropropresult = EMPTY_ Then
FlashPointprod(i) = 100.01
Else
FlashPointprod(i) = mypetropropresult
End If
End If
End If
End If
Zobrazit stránku 168
1 2 ... 164 165 166 167 168 169 170 171 172 173 174 ... 373 374

Komentáře k této Příručce

Žádné komentáře