Changeset 529

Timestamp:

May 29, 2008, 10:21:25 PM (15 years ago)

Author:

gerson bicca

Message:

updated Heatex simplified model

Location:

trunk/eml/heat_exchangers

Files:

• HEX_Engine.mso (modified) (1 diff)
• Heatex.mso (modified) (6 diffs)

trunk/eml/heat_exchangers/HEX_Engine.mso

@@ -83 +83 @@
 end
 
+Model Physical_Properties_Heatex
+        
+ATTRIBUTES
+        Pallete = false;
+        Brief = "to be documented";
+        Info =
+        "to be documented";
+        
+VARIABLES
+
+Mw              as molweight                    (Brief="Average Mol Weight",Default=75, Lower=1, Upper=1e8);
+Cp              as cp_mol                               (Brief="Average Molar Heat Capacity", Upper=1e10);
+Inlet   as Properties_In_Out    (Brief="Properties at Inlet Stream", Symbol = "_{in}");
+Outlet  as Properties_In_Out    (Brief="Properties at Outlet Stream", Symbol = "_{out}");
+
+end
+
 Model Tube_Pdrop
         

trunk/eml/heat_exchangers/Heatex.mso

@@ -15 +15 @@
 *--------------------------------------------------------------------
 * Author: Gerson Balbueno Bicca 
-* $Id: Heatex.mso  $
+* $  $
 *--------------------------------------------------------------------*#
 
@@ -46 +46 @@
 
 PressureDrop    as Basic_Pdrop                          (Brief="Pressure Drop", Symbol=" ");
-Properties              as Physical_Properties          (Brief="Physical Properties", Symbol=" ");
+Properties              as Physical_Properties_Heatex           (Brief="Physical Properties", Symbol=" ");
 
 end
@@ -96 +96 @@
         [vc, xc, yc] = PP.Flash(InletCold.T, InletCold.P, InletCold.z);
 
-"Hot Stream Average Temperature"
-        HotSide.Properties.Average.T = 0.5*InletHot.T + 0.5*OutletHot.T;
-        
-"Cold Stream Average Temperature"
-        ColdSide.Properties.Average.T = 0.5*InletCold.T + 0.5*OutletCold.T;
-        
-"Hot Stream Average Pressure"
-        HotSide.Properties.Average.P = 0.5*InletHot.P+0.5*OutletHot.P;
-        
-"Cold Stream Average Pressure"
-        ColdSide.Properties.Average.P = 0.5*InletCold.P+0.5*OutletCold.P;
-
-"Cold Stream Wall Temperature"
-        ColdSide.Properties.Wall.Twall =   0.5*HotSide.Properties.Average.T + 0.5*ColdSide.Properties.Average.T;
-
-"Hot Stream Wall Temperature"
-        HotSide.Properties.Wall.Twall =   0.5*HotSide.Properties.Average.T + 0.5*ColdSide.Properties.Average.T;
-
 "Hot Stream Average Molecular Weight"
-        HotSide.Properties.Average.Mw = sum(M*InletHot.z);
+        HotSide.Properties.Mw = sum(M*InletHot.z);
 
 "Cold Stream Average Molecular Weight"
-        ColdSide.Properties.Average.Mw = sum(M*InletCold.z);
+        ColdSide.Properties.Mw = sum(M*InletCold.z);
 
 "Cold Stream Average Heat Capacity"
-        ColdSide.Properties.Average.Cp  =       (1-InletCold.v)*PP.LiquidCp(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc) +
-                InletCold.v*PP.VapourCp(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
-
-"Cold Stream Average Mass Density"
-        ColdSide.Properties.Average.rho =       (1-InletCold.v)*PP.LiquidDensity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc)+
-                InletCold.v*PP.VapourDensity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
-
+        ColdSide.Properties.Cp  =       (1-InletCold.v)*PP.LiquidCp(0.5*InletCold.T+0.5*OutletCold.T,0.5*InletCold.P+0.5*OutletCold.P,xc)+
+                InletCold.v*PP.VapourCp(0.5*InletCold.T+0.5*OutletCold.T,0.5*InletCold.P+0.5*OutletCold.P,yc);
+        
 "Cold Stream Inlet Mass Density"
         ColdSide.Properties.Inlet.rho   =       (1-InletCold.v)*PP.LiquidDensity(InletCold.T,InletCold.P,xc)+
@@ -136 +114 @@
                 OutletCold.v*PP.VapourDensity(OutletCold.T,OutletCold.P,OutletCold.y);
 
-"Cold Stream Average Viscosity"
-        ColdSide.Properties.Average.Mu  =       (1-InletCold.v)*PP.LiquidViscosity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc)+
-                InletCold.v*PP.VapourViscosity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
-
-"Cold Stream Average Conductivity"
-        ColdSide.Properties.Average.K   =       (1-InletCold.v)*PP.LiquidThermalConductivity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,xc)+
-                InletCold.v*PP.VapourThermalConductivity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,yc);
-
-"Cold Stream Viscosity at Wall Temperature"
-        ColdSide.Properties.Wall.Mu     =       (1-InletCold.v)*PP.LiquidViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,xc)+
-                InletCold.v*PP.VapourViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,yc);
-
 "Hot Stream Average Heat Capacity"
-        HotSide.Properties.Average.Cp   =       (1-InletHot.v)*PP.LiquidCp(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc) +
-                InletHot.v*PP.VapourCp(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
-
-"Hot Stream Average Mass Density"
-        HotSide.Properties.Average.rho =        (1-InletHot.v)*PP.LiquidDensity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc)+
-                InletHot.v*PP.VapourDensity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
-
+        HotSide.Properties.Cp   =       (1-InletHot.v)*PP.LiquidCp(0.5*InletHot.T+0.5*OutletHot.T,0.5*InletHot.P+0.5*OutletHot.P,xh)+
+                InletHot.v*PP.VapourCp(0.5*InletHot.T+0.5*OutletHot.T,0.5*InletHot.P+0.5*OutletHot.P,yh);
+        
 "Hot Stream Inlet Mass Density"
         HotSide.Properties.Inlet.rho    =       (1-InletHot.v)*PP.LiquidDensity(InletHot.T,InletHot.P,xc)+
@@ -163 +125 @@
         HotSide.Properties.Outlet.rho   =       (1-OutletHot.v)*PP.LiquidDensity(OutletHot.T,OutletHot.P,OutletHot.x)+
                 OutletHot.v*PP.VapourDensity(OutletHot.T,OutletHot.P,OutletHot.y);
-
-"Hot Stream Average Viscosity"
-        HotSide.Properties.Average.Mu   =       (1-InletHot.v)*PP.LiquidViscosity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc)+
-                InletHot.v*PP.VapourViscosity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
-
-"Hot Stream Average Conductivity"
-        HotSide.Properties.Average.K    =       (1-InletHot.v)*PP.LiquidThermalConductivity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,xc)+
-                InletHot.v*PP.VapourThermalConductivity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,yc);
-
-"Hot Stream Viscosity at Wall Temperature"
-        HotSide.Properties.Wall.Mu      =       (1-InletHot.v)*PP.LiquidViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,xc)+
-                InletHot.v*PP.VapourViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,yc);
 
 "Energy Balance Hot Stream"
@@ -402 +352 @@
 
 "Hot Stream Heat Capacity"
-        Method.Ch  = InletHot.F*HotSide.Properties.Average.Cp;
+        Method.Ch  = InletHot.F*HotSide.Properties.Cp;
         
 "Cold Stream Heat Capacity"
-        Method.Cc = InletCold.F*ColdSide.Properties.Average.Cp;
+        Method.Cc = InletCold.F*ColdSide.Properties.Cp;
         
 "Effectiveness Correction"