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

Timestamp:

Oct 28, 2009, 5:15:47 PM (13 years ago)

Author:

gerson bicca

Message:

updated packed column

File:

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

branches/gui/eml/stage_separators/column.mso

@@ -84 +84 @@
         TopStageComposition(NComp)              as fraction     (Brief = "Component Molar Fraction at Top");
         BottomStageComposition(NComp)   as fraction     (Brief = "Component Molar Fraction at Bottom");
-        LiquidMolarHoldup                               as mol          (Brief="Molar liquid holdup", Default=0.01);
+        ColumnHoldup                                    as positive (Brief="Column holdup", Default=0.1);
 
 end
@@ -1858 +1858 @@
 #       STAGES(i).invK = (1 + (2*STAGES(i).dp/(3*ColumnDiameter*(1-VoidFraction))));
 
-        STAGES(i).deltaP/hs  = ResistanceCoeff *( 0.25*AreaPerPackingVol + 2/ColumnDiameter) * 1/((VoidFraction-STAGES(i).hl)^3) * (STAGES(i).uV^2) * STAGES(i).rhoV;
-        
+        STAGES(i).deltaP/hs  = ResistanceCoeff *( 0.5*AreaPerPackingVol + 2/ColumnDiameter) * 1/((VoidFraction-STAGES(i).hl)^3) * (STAGES(i).uV^2) * STAGES(i).rhoV;
+        
+        #deltaP/hs  = ResistanceCoeff * (AreaPerPackingVol/2 + 2/ColumnDiameter) * 1/((VoidFraction-hl)^3) * (uV^2) * rhoV;
+
+
         when STAGES(i).InletVapour.F < 1e-6 * 'kmol/h' switchto "off";
         
@@ -1910 +1913 @@
 for i in 1:NumberOfStages do
 
-#"The initial temperature of the STAGES"
-#       STAGES(i).OutletLiquid.T = INITIALIZATION.TopStageTemperature+(INITIALIZATION.BottomStageTemperature-INITIALIZATION.TopStageTemperature)*((i-1)/(NumberOfStages-1));
-
-#"The Liquid Holdup of the STAGES"
-#       STAGES(i).ML = INITIALIZATION.LiquidMolarHoldup;
-
-end
-
-#*for i in 1:NComp-1 do
+"The initial temperature of the STAGES"
+        STAGES(i).OutletLiquid.T = INITIALIZATION.TopStageTemperature+(INITIALIZATION.BottomStageTemperature-INITIALIZATION.TopStageTemperature)*((i-1)/(NumberOfStages-1));
+
+"The Liquid Holdup of the STAGES"
+        STAGES(i).hl = INITIALIZATION.ColumnHoldup;
+
+end
+
+for i in 1:NComp-1 do
         
 for j in 1:NumberOfStages do
@@ -1928 +1931 @@
 
 end
-*#
+
 end