Changeset 339 for branches/tests/eml/heat_exchangers/HeatExchangerSimplified.mso

Timestamp:

Aug 14, 2007, 2:46:50 PM (16 years ago)

Author:

gerson bicca

Message:

testing a new streamTherm

File:

• branches/tests/eml/heat_exchangers/HeatExchangerSimplified.mso (modified) (11 diffs)

branches/tests/eml/heat_exchangers/HeatExchangerSimplified.mso

@@ -36 +36 @@
 VARIABLES
 
-in  InletHot    as stream               (Brief="Inlet Hot Stream", PosX=0, PosY=0.4915);
+in  InletHot    as streamTherm          (Brief="Inlet Hot Stream", PosX=0, PosY=0.4915);
 out OutletHot   as streamPH     (Brief="Outlet Hot Stream", PosX=1, PosY=0.4915);
-in  InletCold   as stream               (Brief="Inlet Cold Stream", PosX=0.5237, PosY=1);
+in  InletCold   as streamTherm          (Brief="Inlet Cold Stream", PosX=0.5237, PosY=1);
 out OutletCold  as streamPH     (Brief="Outlet Cold Stream", PosX=0.5237, PosY=0);
-
-        xh(NComp)       as fraction             (Brief = "Liquid Molar Fraction in Hot Side");
-        yh(NComp)       as fraction             (Brief = "Vapour Molar Fraction in Hot Side");
-        vh                      as fraction             (Brief = "Vapour Molar Fraction in Hot Side");
-        
-        xc(NComp)       as fraction             (Brief = "Liquid Molar Fraction in Cold Side");
-        yc(NComp)       as fraction             (Brief = "Vapour Molar Fraction in Cold Side");
-        vc                      as fraction             (Brief = "Vapour Molar Fraction in Cold Side");
 
         Details     as Details_Main     (Brief="Heat Exchanger Details");
@@ -60 +52 @@
 EQUATIONS
 
-"Flash Calculation in Hot Side"
-        [vh, xh, yh] = PP.Flash(InletHot.T, InletHot.P, InletHot.z);
-
-"Flash Calculation in Cold Side"
-        [vc, xc, yc] = PP.Flash(InletCold.T, InletCold.P, InletCold.z);
+#"Flash Calculation in Hot Side"
+#       [vh, xh, yh] = PP.Flash(InletHot.T, InletHot.P, InletHot.z);
+
+#"Flash Calculation in Cold Side"
+#       [vc, xc, yc] = PP.Flash(InletCold.T, InletCold.P, InletCold.z);
 
 "Hot Stream Average Temperature"
@@ -91 +83 @@
 
 "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);
+        ColdSide.Properties.Average.Cp  =       (1-InletCold.v)*PP.LiquidCp(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.x) +
+                InletCold.v*PP.VapourCp(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.y);
 
 "Cold Stream Inlet Heat Capacity"
-        ColdSide.Properties.Inlet.Cp    =       (1-InletCold.v)*PP.LiquidCp(InletCold.T,InletCold.P,xc)+
-                InletCold.v*PP.VapourCp(InletCold.T,InletCold.P,yc);
+        ColdSide.Properties.Inlet.Cp    =       (1-InletCold.v)*PP.LiquidCp(InletCold.T,InletCold.P,InletCold.x)+
+                InletCold.v*PP.VapourCp(InletCold.T,InletCold.P,InletCold.y);
 
 "Cold Stream Outlet Heat Capacity"
@@ -103 +95 @@
 
 "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.Average.rho =       (1-InletCold.v)*PP.LiquidDensity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.x)+
+                InletCold.v*PP.VapourDensity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.y);
 
 "Cold Stream Inlet Mass Density"
-        ColdSide.Properties.Inlet.rho   =       (1-InletCold.v)*PP.LiquidDensity(InletCold.T,InletCold.P,xc)+
-                InletCold.v*PP.VapourDensity(InletCold.T,InletCold.P,yc);
+        ColdSide.Properties.Inlet.rho   =       (1-InletCold.v)*PP.LiquidDensity(InletCold.T,InletCold.P,InletCold.x)+
+                InletCold.v*PP.VapourDensity(InletCold.T,InletCold.P,InletCold.y);
 
 "Cold Stream Outlet Mass Density"
@@ -115 +107 @@
 
 "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);
+        ColdSide.Properties.Average.Mu  =       (1-InletCold.v)*PP.LiquidViscosity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.x)+
+                InletCold.v*PP.VapourViscosity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.y);
 
 "Cold Stream inlet Viscosity"
-        ColdSide.Properties.Inlet.Mu    =       (1-InletCold.v)*PP.LiquidViscosity(InletCold.T,InletCold.P,xc)+
-                InletCold.v*PP.VapourViscosity(InletCold.T,InletCold.P,yc);
+        ColdSide.Properties.Inlet.Mu    =       (1-InletCold.v)*PP.LiquidViscosity(InletCold.T,InletCold.P,InletCold.x)+
+                InletCold.v*PP.VapourViscosity(InletCold.T,InletCold.P,InletCold.y);
 
 "Cold Stream Outlet Viscosity"
@@ -127 +119 @@
 
 "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);
+        ColdSide.Properties.Average.K   =       (1-InletCold.v)*PP.LiquidThermalConductivity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.x)+
+                InletCold.v*PP.VapourThermalConductivity(ColdSide.Properties.Average.T,ColdSide.Properties.Average.P,InletCold.y);
 
 "Cold Stream Inlet Conductivity"        
-        ColdSide.Properties.Inlet.K     =       (1-InletCold.v)*PP.LiquidThermalConductivity(InletCold.T,InletCold.P,xc)+
-                InletCold.v*PP.VapourThermalConductivity(InletCold.T,InletCold.P,yc);
+        ColdSide.Properties.Inlet.K     =       (1-InletCold.v)*PP.LiquidThermalConductivity(InletCold.T,InletCold.P,InletCold.x)+
+                InletCold.v*PP.VapourThermalConductivity(InletCold.T,InletCold.P,InletCold.y);
 
 "Cold Stream Outlet Conductivity"
@@ -139 +131 @@
         
 "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);
+        ColdSide.Properties.Wall.Mu     =       (1-InletCold.v)*PP.LiquidViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.x)+
+                InletCold.v*PP.VapourViscosity(ColdSide.Properties.Wall.Twall,ColdSide.Properties.Average.P,InletCold.y);
 
 "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);
+        HotSide.Properties.Average.Cp   =       (1-InletHot.v)*PP.LiquidCp(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.x) +
+                InletHot.v*PP.VapourCp(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.y);
 
 "Hot Stream Inlet Heat Capacity"
-        HotSide.Properties.Inlet.Cp     =       (1-InletHot.v)*PP.LiquidCp(InletHot.T,InletHot.P,xc)+
-                InletHot.v*PP.VapourCp(InletHot.T,InletHot.P,yc);
+        HotSide.Properties.Inlet.Cp     =       (1-InletHot.v)*PP.LiquidCp(InletHot.T,InletHot.P,InletHot.x)+
+                InletHot.v*PP.VapourCp(InletHot.T,InletHot.P,InletHot.y);
 
 "Hot Stream Outlet Heat Capacity"
@@ -155 +147 @@
 
 "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.Average.rho =        (1-InletHot.v)*PP.LiquidDensity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.x)+
+                InletHot.v*PP.VapourDensity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.y);
 
 "Hot Stream Inlet Mass Density"
-        HotSide.Properties.Inlet.rho    =       (1-InletHot.v)*PP.LiquidDensity(InletHot.T,InletHot.P,xc)+
-                InletHot.v*PP.VapourDensity(InletHot.T,InletHot.P,yc);
+        HotSide.Properties.Inlet.rho    =       (1-InletHot.v)*PP.LiquidDensity(InletHot.T,InletHot.P,InletHot.x)+
+                InletHot.v*PP.VapourDensity(InletHot.T,InletHot.P,InletHot.y);
 
 "Hot Stream Outlet Mass Density"
@@ -167 +159 @@
 
 "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);
+        HotSide.Properties.Average.Mu   =       (1-InletHot.v)*PP.LiquidViscosity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.x)+
+                InletHot.v*PP.VapourViscosity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.y);
 
 "Hot Stream inlet Viscosity"
-        HotSide.Properties.Inlet.Mu     =       (1-InletHot.v)*PP.LiquidViscosity(InletHot.T,InletHot.P,xc)+
-                InletHot.v*PP.VapourViscosity(InletHot.T,InletHot.P,yc);
+        HotSide.Properties.Inlet.Mu     =       (1-InletHot.v)*PP.LiquidViscosity(InletHot.T,InletHot.P,InletHot.x)+
+                InletHot.v*PP.VapourViscosity(InletHot.T,InletHot.P,InletHot.y);
 
 "Hot Stream Outlet Viscosity"
@@ -179 +171 @@
 
 "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);
+        HotSide.Properties.Average.K    =       (1-InletHot.v)*PP.LiquidThermalConductivity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.x)+
+                InletHot.v*PP.VapourThermalConductivity(HotSide.Properties.Average.T,HotSide.Properties.Average.P,InletHot.y);
 
 "Hot Stream Inlet Conductivity" 
-        HotSide.Properties.Inlet.K      =       (1-InletHot.v)*PP.LiquidThermalConductivity(InletHot.T,InletHot.P,xc)+
-                InletHot.v*PP.VapourThermalConductivity(InletHot.T,InletHot.P,yc);
+        HotSide.Properties.Inlet.K      =       (1-InletHot.v)*PP.LiquidThermalConductivity(InletHot.T,InletHot.P,InletHot.x)+
+                InletHot.v*PP.VapourThermalConductivity(InletHot.T,InletHot.P,InletHot.y);
 
 "Hot Stream Outlet Conductivity"
@@ -191 +183 @@
         
 "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);
+        HotSide.Properties.Wall.Mu      =       (1-InletHot.v)*PP.LiquidViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.x)+
+                InletHot.v*PP.VapourViscosity(HotSide.Properties.Wall.Twall,HotSide.Properties.Average.P,InletHot.y);
 
 "Energy Balance Hot Stream"