Changeset 156 for branches/newlanguage

Timestamp:

Feb 7, 2007, 11:40:14 AM (17 years ago)

Author:

gerson bicca

Message:

updated double pipe model

Location:

branches/newlanguage

Files:

• eml/heat_exchangers/DoublePipe.mso (modified) (1 diff)
• eml/heat_exchangers/HEX_Engine.mso (modified) (2 diffs)
• sample/heat_exchangers/Sample_DoublePipe.mso (modified) (3 diffs)

branches/newlanguage/eml/heat_exchangers/DoublePipe.mso

@@ -968 +968 @@
 CONNECTIONS
 
-Unity([1:Npipe-1]).Outlet.Hot   to Unity([2:Npipe]).Inlet.Hot;
-Unity([2:Npipe]).Outlet.Cold    to Unity([1:Npipe-1]).Inlet.Cold;
+Unity([1:Npipe-1]).Outlet.Hot  to Unity([2:Npipe]).Inlet.Hot;
+Unity([2:Npipe]).Outlet.Cold     to Unity([1:Npipe-1]).Inlet.Cold;
 
 EQUATIONS

branches/newlanguage/eml/heat_exchangers/HEX_Engine.mso

@@ -293 +293 @@
 VARIABLES
 
-Rtube   as positive     (Brief="Tube Resistance",Unit="m^2*K/kW",Lower=1e-6);
-Rwall           as positive     (Brief="Wall Resistance",Unit="m^2*K/kW",Lower=1e-6);
-Rshell          as positive     (Brief="Shell Resistance",Unit="m^2*K/kW",Lower=1e-6);
-Rfi                     as positive     (Brief="Inside Fouling Resistance",Unit="m^2*K/kW",Default=1e-6,Lower=0);
-Rfo             as positive     (Brief="Outside Fouling Resistance",Unit="m^2*K/kW",Default=1e-6,Lower=0);
+Rtube   as positive     (Brief="Tube Resistance",Unit='m^2*K/kW',Lower=1e-6);
+Rwall           as positive     (Brief="Wall Resistance",Unit='m^2*K/kW',Lower=1e-6);
+Rshell          as positive     (Brief="Shell Resistance",Unit='m^2*K/kW',Lower=1e-6);
+Rfi                     as positive     (Brief="Inside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0);
+Rfo             as positive     (Brief="Outside Fouling Resistance",Unit='m^2*K/kW',Default=1e-6,Lower=0);
 
 end
@@ -314 +314 @@
 Uc      as heat_trans_coeff (Brief="Overall Heat Transfer Coefficient Clean",Default=1,Lower=1e-6,Upper=1e10);
 Ud      as heat_trans_coeff (Brief="Overall Heat Transfer Coefficient Dirty",Default=1,Lower=1e-6,Upper=1e10);
-Ch      as positive                             (Brief="Hot Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit="W/K");
-Cc      as positive                             (Brief="Cold Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit="W/K");
+Ch      as positive                             (Brief="Hot Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit='W/K');
+Cc      as positive                             (Brief="Cold Stream Heat Capacity",Lower=1e-3,Default=1e3,Unit='W/K');
 Cr      as positive                             (Brief="Heat Capacity Ratio",Default=0.5,Lower=1e-6);
-Cmin  as positive                               (Brief="Minimum Heat Capacity",Lower=1e-10,Default=1e3,Unit="W/K");
-Cmax as positive                                (Brief="Maximum Heat Capacity",Lower=1e-10,Default=1e3,Unit="W/K");
+Cmin  as positive                               (Brief="Minimum Heat Capacity",Lower=1e-10,Default=1e3,Unit='W/K');
+Cmax as positive                                (Brief="Maximum Heat Capacity",Lower=1e-10,Default=1e3,Unit='W/K');
 NTU     as positive                             (Brief="Number of Units Transference",Default=0.05,Lower=1e-10);
 

branches/newlanguage/sample/heat_exchangers/Sample_DoublePipe.mso

@@ -67 +67 @@
 
 exchanger.HotSide               =       "inner";
-exchanger.DoInner               =       0.04826*"m";
-exchanger.DiInner               =       0.04089*"m";
-exchanger.DiOuter               =       0.07793*"m";
-exchanger.Kwall                 =       0.057 *"kW/m/K";
-exchanger.Lpipe                 =       3*"m";
+exchanger.DoInner               =       0.04826*'m';
+exchanger.DiInner               =       0.04089*'m';
+exchanger.DiOuter               =       0.07793*'m';
+exchanger.Kwall                 =       0.057 *'kW/m/K';
+exchanger.Lpipe                 =       3*'m';
 
 SPECIFY
@@ -77 +77 @@
 #               Hot Stream
 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-        streamhot.F = 10                        * "kmol/h";
-        streamhot.T = (68+273.15)   * "K";
-        streamhot.P = 5.4                       * "bar";
+        streamhot.F = 10                        * 'kmol/h';
+        streamhot.T = (68+273.15)   * 'K';
+        streamhot.P = 5.4                       * 'bar';
         streamhot.z = [1,0];
         
@@ -85 +85 @@
 #       Cold Stream
 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
-        streamcold.F = 5                        * "kmol/h";
-        streamcold.P = 5.1              * "bar";
-        streamcold.T = (23+273.15)      * "K";
+        streamcold.F = 5                        * 'kmol/h';
+        streamcold.P = 5.1              * 'bar';
+        streamcold.T = (23+273.15)      * 'K';
     streamcold.z = [0,1];
 #=====================================================================
 #       Fouling
 #=====================================================================
-exchanger.Resistances.Rfi = 0.0018*"m^2*K/kW";
-exchanger.Resistances.Rfo = 0.0021*"m^2*K/kW";
+exchanger.Resistances.Rfi = 0.0018*'m^2*K/kW';
+exchanger.Resistances.Rfo = 0.0021*'m^2*K/kW';
 
 OPTIONS