Changeset 791 for branches/gui/eml/stage_separators/column.mso

Timestamp:

Jul 13, 2009, 6:34:28 PM (14 years ago)

Author:

gerson bicca

Message:

updated (fixed bug)

File:

• branches/gui/eml/stage_separators/column.mso (modified) (2 diffs)

branches/gui/eml/stage_separators/column.mso

@@ -821 +821 @@
 ";
 
-PARAMETERS
-        FeedTrayIndex(NumberOfTrays)            as Integer                      (Brief="Feed Tray Index", Default=0,Hidden=true);
-
 SET
         NumberOfFeeds = 1;
-        FeedTrayIndex(FeedTrayLocation(1)) =1;
 
 VARIABLES
@@ -836 +832 @@
 # Equating Feed Tray Variables to Trays Variables
 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-"Feed Tray Inlet Flow"  
-        FeedTray.F*FeedTrayIndex= TRAYS.Inlet.F;
-
-"Feed Tray Inlet Temperature"
-        FeedTray.T = TRAYS.Inlet.T;
-
-"Feed Tray Inlet Pressure"
-        FeedTray.P = TRAYS.Inlet.P;
-
-"Feed Tray Inlet Composition"
-        FeedTray.z = TRAYS.Inlet.z;
-
-"Feed Tray Inlet Vapour Fraction"
-        FeedTray.v = TRAYS.Inlet.v;
-
-"Feed Tray Inlet Enthalpy"
-        FeedTray.h = TRAYS.Inlet.h;
+for i in 1:NumberOfTrays do
+
+if   i equal FeedTrayLocation(1) then    
+
+"FeedTrayTop Inlet Flow"        
+        FeedTray.F= TRAYS(i).Inlet.F;
+
+"FeedTrayTop Inlet Temperature"
+        FeedTray.T = TRAYS(i).Inlet.T;
+
+"FeedTrayTop Inlet Pressure"
+        FeedTray.P = TRAYS(i).Inlet.P;
+
+"FeedTrayTop Inlet Composition"
+        FeedTray.z = TRAYS(i).Inlet.z;
+
+"FeedTrayTop Inlet Vapour Fraction"
+        FeedTray.v = TRAYS(i).Inlet.v;
+
+"FeedTrayTop Inlet Enthalpy"
+        FeedTray.h = TRAYS(i).Inlet.h;
+
+else
+
+"Inlet Tray - Flow Sealed"      
+        0*'mol/h'= TRAYS(i).Inlet.F;
+
+"Inlet Tray -  Temperature"
+        FeedTray.T = TRAYS(i).Inlet.T;
+
+"Inlet Tray -  Pressure"
+        FeedTray.P = TRAYS(i).Inlet.P;
+
+"Inlet Tray -  Composition"
+        FeedTray.z = TRAYS(i).Inlet.z;
+
+"Inlet Tray -  Vapour Fraction"
+        FeedTray.v = TRAYS(i).Inlet.v;
+
+"Inlet Tray -  Enthalpy"
+        FeedTray.h = TRAYS(i).Inlet.h;
+
+end
+
+end
 
 end