
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
Komentáře k této Příručce