Changeset 168 for branches/newlanguage/eml

Timestamp:

Feb 28, 2007, 11:30:48 AM (17 years ago)

Author:

gerson bicca

Message:

updated heat exchanger models - new language

Location:

branches/newlanguage/eml/heat_exchangers

Files:

• DoublePipe.mso (modified) (6 diffs)
• HEX_Engine.mso (modified) (1 diff)
• HeatExchangerSimplified.mso (modified) (7 diffs)
• Mheatex.mso (modified) (1 diff)
• heater.mso (modified) (2 diffs)

branches/newlanguage/eml/heat_exchangers/DoublePipe.mso

@@ -102 +102 @@
         Outer.Properties.Average.P = 0.5*InletOuter.P+0.5*OutletOuter.P;
         
-"Cold Stream Average Pressure"
+"Inner Stream Average Pressure"
         Inner.Properties.Average.P = 0.5*InletInner.P+0.5*OutletInner.P;
 
-"Cold Stream Wall Temperature"
+"Inner Stream Wall Temperature"
         Inner.Properties.Wall.Twall =   0.5*Outer.Properties.Average.T + 0.5*Inner.Properties.Average.T;
 
@@ -114 +114 @@
         Outer.Properties.Average.Mw = sum(M*InletOuter.z);
 
-"Cold Stream Average Molecular Weight"
+"Inner Stream Average Molecular Weight"
         Inner.Properties.Average.Mw = sum(M*InletInner.z);
 
@@ -121 +121 @@
         then    
 
-"Heat Capacity Cold Stream"
+"Heat Capacity Inner Stream"
         Inner.Properties.Average.Cp             =       PP.LiquidCp(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
         Inner.Properties.Inlet.Cp               =       PP.LiquidCp(InletInner.T,InletInner.P,InletInner.z);
         Inner.Properties.Outlet.Cp              =       PP.LiquidCp(OutletInner.T,OutletInner.P,OutletInner.z);
 
-"Mass Density Cold Stream"
+"Mass Density Inner Stream"
         Inner.Properties.Average.rho    =       PP.LiquidDensity(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
         Inner.Properties.Inlet.rho              =       PP.LiquidDensity(InletInner.T,InletInner.P,InletInner.z);
         Inner.Properties.Outlet.rho             =       PP.LiquidDensity(OutletInner.T,OutletInner.P,OutletInner.z);
 
-"Viscosity Cold Stream"
+"Viscosity Inner Stream"
         Inner.Properties.Average.Mu     =       PP.LiquidViscosity(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
         Inner.Properties.Inlet.Mu               =       PP.LiquidViscosity(InletInner.T,InletInner.P,InletInner.z);
         Inner.Properties.Outlet.Mu              =       PP.LiquidViscosity(OutletInner.T,OutletInner.P,OutletInner.z);
 
-"Conductivity Cold Stream"
+"Conductivity Inner Stream"
         Inner.Properties.Average.K              =       PP.LiquidThermalConductivity(Inner.Properties.Average.T,Inner.Properties.Average.P,InletInner.z);
         Inner.Properties.Inlet.K                =       PP.LiquidThermalConductivity(InletInner.T,InletInner.P,InletInner.z);
         Inner.Properties.Outlet.K               =       PP.LiquidThermalConductivity(OutletInner.T,OutletInner.P,OutletInner.z);
 
-"Heat Capacity Cold Stream"
-        Inner.Properties.Wall.Cp                =       PP.LiquidCp(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
-        
 "Viscosity Cold Stream"
         Inner.Properties.Wall.Mu                =       PP.LiquidViscosity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
-
-"Conductivity Cold Stream"
-        Inner.Properties.Wall.K                         =       PP.LiquidThermalConductivity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
 
 
@@ -173 +167 @@
         Inner.Properties.Outlet.K               =       PP.VapourThermalConductivity(OutletInner.T,OutletInner.P,OutletInner.z);
         
-"Heat Capacity Cold Stream"
-        Inner.Properties.Wall.Cp                =       PP.VapourCp(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
-
-
 "Viscosity Cold Stream"
         Inner.Properties.Wall.Mu                =       PP.VapourViscosity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
 
-"Conductivity Cold Stream"
-        Inner.Properties.Wall.K                         =       PP.VapourThermalConductivity(Inner.Properties.Wall.Twall,Inner.Properties.Average.P,InletInner.z);
-        
-        
-        
 end
 
@@ -211 +196 @@
         Outer.Properties.Outlet.K       =               PP.LiquidThermalConductivity(OutletOuter.T,OutletOuter.P,OutletOuter.z);        
 
-"Heat Capacity Hot Stream"
-        Outer.Properties.Wall.Cp                =               PP.LiquidCp(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);
-
 "Viscosity Hot Stream"
         Outer.Properties.Wall.Mu                =               PP.LiquidViscosity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);        
 
-"Conductivity Hot Stream"
-        Outer.Properties.Wall.K                 =               PP.LiquidThermalConductivity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);      
-        
 
         else
@@ -243 +222 @@
         Outer.Properties.Outlet.K       =               PP.VapourThermalConductivity(OutletOuter.T,OutletOuter.P,OutletOuter.z);        
 
-"Heat Capacity Hot Stream"
-        Outer.Properties.Wall.Cp                =               PP.VapourCp(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);
-
 "Viscosity Hot Stream"
         Outer.Properties.Wall.Mu                =               PP.VapourViscosity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);
-
-"Conductivity Hot Stream"
-        Outer.Properties.Wall.K                 =               PP.VapourThermalConductivity(Outer.Properties.Wall.Twall,Outer.Properties.Average.P,InletOuter.z);      
-
 
 end

branches/newlanguage/eml/heat_exchangers/HEX_Engine.mso

@@ -98 +98 @@
         
 VARIABLES
+
 Mu              as viscosity            (Brief="Stream Viscosity",Default=1, Lower=1e-5, Upper=1e5);
-Cp                      as cp_mol                       (Brief="Stream Molar Heat Capacity", Upper=1e10);
-K                       as conductivity         (Brief="Stream Thermal Conductivity", Default=1.0, Lower=1e-5, Upper=500);
 Twall           as temperature  (Brief="Wall Temperature",Lower=50);
 

branches/newlanguage/eml/heat_exchangers/HeatExchangerSimplified.mso

@@ -115 +115 @@
         ColdSide.Properties.Outlet.K    =       PP.LiquidThermalConductivity(OutletCold.T,OutletCold.P,OutletCold.z);
 
-"Cold Stream Heat Capacity at Wall Temperature"
-        ColdSide.Properties.Wall.Cp     =       PP.LiquidCp(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
-        
 "Cold Stream Viscosity at Wall Temperature"
         ColdSide.Properties.Wall.Mu     =       PP.LiquidViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
 
-"Cold Stream Conductivity at Wall Temperature"
-        ColdSide.Properties.Wall.K              =       PP.LiquidThermalConductivity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
-
 
         else
@@ -163 +157 @@
         ColdSide.Properties.Outlet.K    =       PP.VapourThermalConductivity(OutletCold.T,OutletCold.P,OutletCold.z);
         
-"Cold Stream Heat Capacity at Wall Temperature"
-        ColdSide.Properties.Wall.Cp     =       PP.VapourCp(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
-
-
 "Cold Stream Viscosity at Wall Temperature"
         ColdSide.Properties.Wall.Mu     =       PP.VapourViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
 
-"Cold Stream Conductivity at Wall Temperature"
-        ColdSide.Properties.Wall.K              =       PP.VapourThermalConductivity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.z);
-        
-        
-        
 end
 
@@ -217 +202 @@
         HotSide.Properties.Outlet.K     =               PP.LiquidThermalConductivity(OutletHot.T,OutletHot.P,OutletHot.z);      
 
-"Hot Stream Heat Capacity at Wall Temperature"
-        HotSide.Properties.Wall.Cp              =               PP.LiquidCp(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);
-
 "Hot Stream Viscosity  at Wall Temperature"
         HotSide.Properties.Wall.Mu              =               PP.LiquidViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);      
 
-"Hot Stream Conductivity at Wall Temperature"
-        HotSide.Properties.Wall.K               =               PP.LiquidThermalConductivity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);    
-        
-
         else
 
@@ -265 +243 @@
         HotSide.Properties.Outlet.K     =               PP.VapourThermalConductivity(OutletHot.T,OutletHot.P,OutletHot.z);      
 
-"Hot Stream Heat Capacity at Wall Temperature"
-        HotSide.Properties.Wall.Cp              =               PP.VapourCp(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);
-
 "Hot Stream Viscosity at Wall Temperature"
         HotSide.Properties.Wall.Mu              =               PP.VapourViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);
-
-"Hot Stream Conductivity at Wall Temperature"
-        HotSide.Properties.Wall.K               =               PP.VapourThermalConductivity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.z);    
-
 
 end
@@ -390 +361 @@
 EQUATIONS
 
+"Exchange Surface Area"
+        Details.Q = Details.Ud*Details.A*Method.LMTD*Method.Fc;
+
 "R: Capacity Ratio for LMTD Correction Fator"
         R*(OutletCold.T - InletCold.T ) = (InletHot.T-OutletHot.T);
@@ -639 +613 @@
 VARIABLES
 
-Eft1            as positive (Brief="Effectiveness Correction",Lower=0.01,Upper=1,Default=0.5);
 Method  as NTU_Basic;
 
 EQUATIONS
+
+"Number of Units Transference"
+        Method.NTU*Method.Cmin = Details.Ud*Details.A;
+        
+"Minimum Heat Capacity"
+        Method.Cmin  = min([Method.Ch,Method.Cc]);
+
+"Maximum Heat Capacity"
+        Method.Cmax  = max([Method.Ch,Method.Cc]);
+
+"Thermal Capacity Ratio"
+        Method.Cr    = Method.Cmin/Method.Cmax;
+
+"Duty"
+        Details.Q       = Method.Eft*Method.Cmin*(InletHot.T-InletCold.T);
+
+"Hot Stream Heat Capacity"
+        Method.Ch  = InletHot.F*HotSide.Properties.Average.Cp;
+        
+"Cold Stream Heat Capacity"
+        Method.Cc = InletCold.F*ColdSide.Properties.Average.Cp;
 
 switch ShellType
@@ -660 +654 @@
 
 "Variable not in use when 1 Pass Shell Side"
-        Method.Eft1     = Method.Eft;
-        
-end
-
-end
+        Method.Eft1     = 1;
+        
+end
+
+end

branches/newlanguage/eml/heat_exchangers/Mheatex.mso

@@ -81 +81 @@
         
 "Heat Duty"
-        Q=UA*Method.LMTD*Method.Fc;
+        Q = UA*Method.LMTD*Method.Fc;
 
 switch FlowDirection

branches/newlanguage/eml/heat_exchangers/heater.mso

@@ -70 +70 @@
 end
 
-Model Heater            as Heater_Cooler_Basic
+Model heater            as Heater_Cooler_Basic
 
 ATTRIBUTES
@@ -85 +85 @@
 end
 
-Model Cooler            as Heater_Cooler_Basic
+Model cooler            as Heater_Cooler_Basic
         
 ATTRIBUTES