Changeset 521

Timestamp:

May 21, 2008, 8:20:47 PM (15 years ago)

Author:

Argimiro Resende Secchi

Message:

merging tray versions.

Location:

branches/rate

Files:

• eml/stage_separators/tray.mso (modified) (7 diffs)
• sample/stage_separators/sample_tray.mso (modified) (1 diff)

branches/rate/eml/stage_separators/tray.mso

@@ -119 +119 @@
 == Initial ==
 * the plate temperature (OutletL.T)
-* the liquid height (Level) OR the liquid holdup (ML)
+* the liquid height (Level) OR the liquid flow OutletL.F
 * (NoComps - 1) OutletL compositions
+
+== Options ==
+You can choose the equation for the liquid outlet flow and the vapour
+inlet flow calculation through the VapourFlowModel and LiquidFlowModel
+switchers.
+
+== References ==
+* ELGUE, S.; PRAT, L.; CABASSUD, M.; LANN, J. L.; CéZERAC, J. Dynamic models for start-up operations of batch distillation columns with experimental validation. Computers and Chemical Engineering, v. 28, p. 2735-2747, 2004.
+* FEEHERY, W. F. Dynamic Optimization with Path Constraints. Tese (Doutorado) - Massachusetts Institute of Technology, June 1998.
+* KLINGBERG, A. Modeling and Optimization of Batch Distillation. Dissertação (Mestrado) - Department of Automatic Control, Lund Institute of Technology, Lund, Sweden, fev. 2000.
+* OLSEN, I.; ENDRESTOL, G. O.; SIRA, T. A rigorous and efficient distillation column model for engineering and training simulators. Computers and Chemical Engineering,v. 21, n. Suppl, p. S193-S198, 1997.
+* REEPMEYER, F.; REPKE, J.-U.; WOZNY, G. Analysis of the start-up process for reactive distillation. Chemical Engineering Technology, v. 26, p. 81-86, 2003.
+* ROFFEL, B.; BETLEM, B.; RUIJTER, J. de. First principles dynamic modeling and multivariable control of a cryogenic distillation column process. Computers and Chemical Engineering, v. 24, p. 111-123, 2000.
+* WANG, L.; LI, P.; WOZNY, G.; WANG, S. A start-up model for simulation of batch distillation starting from a cold state. Computers and Chemical Engineering, v. 27, p.1485-1497, 2003.
 ";      
 
@@ -130 +144 @@
         beta as fraction (Brief="Aeration fraction");
         alfa as fraction (Brief="Dry pressure drop coefficient");
+        w as Real (Brief="Feehery's correlation coefficient", Unit='1/m^4', Default=1);
+        btray as Real (Brief="Elgue's correlation coefficient", Unit='kg/m/mol^2', Default=1);
+        fw as Real      (Brief = "Olsen's correlation coefficient", Default=1);
+        Np as Real      (Brief = "Number of liquid passes in the tray", Default=1);
+        Mw(NComp)       as molweight    (Brief = "Component Mol Weight");
         
         VapourFlow as Switcher(Valid = ["on", "off"], Default = "on");
         LiquidFlow as Switcher(Valid = ["on", "off"], Default = "on");
+        VapourFlowModel as Switcher(Valid = ["Reepmeyer", "Feehery_Fv", "Roffel_Fv", "Klingberg", "Wang_Fv", "Elgue"], Default = "Reepmeyer");
+        LiquidFlowModel as Switcher(Valid = ["default", "Wang_Fl", "Olsen", "Feehery_Fl", "Roffel_Fl"], Default = "default");
+
+        SET
+        Mw = PP.MolecularWeight();
         
         VARIABLES
@@ -138 +162 @@
         rhoV as dens_mass;
 
+        btemp as Real (Brief="Temporary variable of Roffel's liquid flow equation");
+        
         EQUATIONS
         "Liquid Density"
@@ -146 +172 @@
         switch LiquidFlow
                 case "on":
-                "Francis Equation"
-#               OutletL.F*vL = 1.84*'m^0.5/s'*lw*((Level-(beta*hw))/(beta))^1.5;
-                OutletL.F*vL = 1.84*'1/s'*lw*((Level-(beta*hw))/(beta))^2;
+                        switch LiquidFlowModel
+                                case "default":
+                                "Francis Equation"
+                                OutletL.F*vL = 1.84*'1/s'*lw*((Level-(beta*hw))/(beta))^2;
+                        
+                                case "Wang_Fl":
+                                OutletL.F*vL = 1.84*'m^0.5/s'*lw*((Level-(beta*hw))/(beta))^1.5;
+                        
+                                case "Olsen":
+                                OutletL.F / 'mol/s'= lw*Np*rhoL/sum(Mw*OutletV.z)/(0.665*fw)^1.5 * ((ML*sum(Mw*OutletL.z)/rhoL/Ap)-hw)^1.5 * 'm^0.5/mol';
+                        
+                                case "Feehery_Fl":
+                                OutletL.F = lw*rhoL/sum(Mw*OutletL.z) * ((Level-hw)/750/'mm')^1.5 * 'm^2/s';
+                        
+                                case "Roffel_Fl":
+                                OutletL.F = 2/3*sqrt(2*g)*rhoL/sum(Mw*OutletL.z)*lw*(2*btemp-1)*(ML*sum(Mw*OutletL.z)/(Ap*1.3)/rhoL/(2*btemp-1))^1.5;
+                        end
                 when Level < (beta * hw) switchto "off";
                 
@@ -156 +196 @@
                 when Level > (beta * hw) + 1e-6*'m' switchto "on";
         end
+        
+        btemp = 1 - 0.3593/'Pa^0.0888545'*(OutletV.F*sum(Mw*OutletV.z)/(Ap*1.3)/sqrt(rhoV))^0.177709; #/'(kg/m)^0.0888545/s^0.177709';
 
         switch VapourFlow
                 case "on":
-                InletV.F*vV = sqrt((InletV.P - OutletV.P)/(rhoV*alfa))*Ah;
+                        switch VapourFlowModel
+                                case "Reepmeyer":
+                                InletV.F*vV = sqrt((InletV.P - OutletV.P)/(rhoV*alfa))*Ah;
+                        
+                                case "Feehery_Fv":
+                                InletV.F = rhoV/Ap/w/sum(Mw*OutletV.z) * sqrt(((InletV.P - OutletV.P)-(rhoV*g*ML*vL/Ap))/rhoV);
+                        
+                                case "Roffel_Fv":
+                                InletV.F^1.08 * 0.0013 * 'kg/m/mol^1.08/s^0.92*1e5' = (InletV.P - OutletV.P)*1e5 - (beta*sum(M*Mw)/(Ap*1.3)*g*1e5) * (rhoV*Ah/sum(Mw*OutletV.z))^1.08 * 'm^1.08/mol^1.08';
+                        
+                                case "Klingberg":
+                                InletV.F * vV = Ap * sqrt(((InletV.P - OutletV.P)-rhoL*g*Level)/rhoV);
+                        
+                                case "Wang_Fv":
+                                InletV.F * vV = Ap * sqrt(((InletV.P - OutletV.P)-rhoL*g*Level)/rhoV*alfa);
+                                
+                                case "Elgue":
+                                InletV.F  = sqrt((InletV.P - OutletV.P)/btray);
+                        end
                 when InletV.F < 1e-6 * 'kmol/h' switchto "off";
                 
@@ -330 +390 @@
         ATTRIBUTES
         Pallete         = false;
-        Icon            = "icon/Tray"; 
+        Icon            = "icon/PackedStage"; 
         Brief           = "Complete model of a packed column stage.";
         Info            =
@@ -471 +531 @@
         "Liquid holdup"
         hl = (12*miL*a^2*uL/rhoL/g)^1/3;
-        
-        
 end
 

branches/rate/sample/stage_separators/sample_tray.mso

@@ -73 +73 @@
         t1.hw = 0.125 * 'ft';
         t1.Q = 0 * 'kW';
-        t1.beta = 0.6;
+        t1.beta = 1;
         t1.alfa = 4;
         t1.Ap = 3.94 * 'ft^2';
+        
+        t1.VapourFlowModel = "Feehery_Fv"; #"Roffel_Fv" "Klingberg" "Wang_Fv" "Elgue" or "Reepmeyer"-> default
+        t1.w = 0.5 * '1/m^4';
+
+        t1.LiquidFlowModel = "Wang_Fl"; # "Feehery_Fl" "Roffel_Fl" "Olsen" or "default"
         
         INITIAL