Changes in mso/eml/heat_exchangers/Mheatex.mso [45:1]

File:

• mso/eml/heat_exchangers/Mheatex.mso (modified) (4 diffs)

mso/eml/heat_exchangers/Mheatex.mso

@@ -1 +1 @@
 #*---------------------------------------------------------------------
-* Model of a Multistream Heat Exchanger
+* This file is property of the author and cannot be used, copyed
+* or modified without permission.
 *
-*       Streams:
-*               * Inlet(Ninlet) streams ....    at least one material stream
-*               * Outlet stream             ....        one material stream
+* Copyright (C) 2004-2006  the author
 *
-*       Purpose:
-*               * Determines thermal and phase conditions of outlet stream
 *
+*               Multistream Heat Exchanger                                                      
+*               Cocurrent and Counter Flow
+*  
 *----------------------------------------------------------------------
 * Author: Gerson Balbueno Bicca 
@@ -16 +16 @@
 using "streams.mso";
 
-Model Inlet_Main_Stream         
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
+Model Parameters
+#=====================================================================
+#       Heat Exchanger Parameters 
+#=====================================================================  
+PARAMETERS
+        
+ext PP                  as CalcObject;
+ext     NComp           as Integer              (Brief="Number of Components"); 
+ext     Ncold           as Integer              (Brief="Number of Inlet Cold Streams",Lower=1,Default=1);
+ext     Nhot            as Integer              (Brief="Number of Inlet Hot Streams",Lower=1,Default=1);
+        
+end     
+
+Model Inlet_Main_Stream         as Parameters
+#=====================================================================
 #       Inlet Streams
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
-PARAMETERS
+#=====================================================================  
 
-        Ncold   as Integer      (Brief="Number of Inlet Cold Streams",Lower=1);
-        Nhot    as Integer      (Brief="Number of Inlet Hot Streams",Lower=1);
-        
 VARIABLES
 
-        Hot  (Nhot)     as stream;# Inlet Hot Streams
-        Cold (Ncold)    as stream;# Inlet Cold Streams
+Hot(Nhot)               as stream;# Inlet Hot Streams
+Cold(Ncold)     as stream;# Inlet Cold Streams
         
 end
 
-Model Outlet_Main_Stream        
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
+Model Outlet_Main_Stream        as Parameters
+#=====================================================================
 #       Outlet Streams
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
-PARAMETERS
+#=====================================================================  
 
-        Ncold   as Integer      (Brief="Number of Inlet Cold Streams",Lower=1);
-        Nhot    as Integer      (Brief="Number of Inlet Hot Streams",Lower=1);
-        
 VARIABLES
 
-        Hot  (Nhot)     as stream_therm;# Outlet Hot Streams
-        Cold (Ncold)    as stream_therm;# Outlet Cold Streams
+Hot(Nhot)               as stream_therm;# Outlet Hot Streams
+Cold(Ncold)     as stream_therm;# Outlet Cold Streams
         
 end
 
 Model Mheatex
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
+#=====================================================================
 #       Multistream Heat Exchanger Basic Calculation
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
+#=====================================================================          
 PARAMETERS
 
-ext PP          as CalcObject   (Brief="Physical Properties");
-ext     NComp   as Integer              (Brief="Number of Components"); 
-        HE              as CalcObject   (Brief="Cold Box Calculations",File="heatex");
+ext     HE              as CalcObject   (Brief="Cold Box Calculations",File="Heatex.dll");
         Side    as Integer              (Brief="Flow Direction",Lower=0,Upper=1);
-        Ncold   as Integer              (Brief="Number of Inlet Cold Streams",Lower=1);
-        Nhot    as Integer              (Brief="Number of Inlet Hot Streams",Lower=1);
-        
+
+SET
+
+Side = HE.FlowDirection();
+
 VARIABLES
 
@@ -69 +74 @@
         LMTD    as temp_delta   (Brief="Logarithmic Mean Temperature Difference");
         UA      as positive     (Unit="W/K");
-
-SET
-
-Side = HE.FlowDir();
-
-Inlet.Ncold  = Ncold;
-Outlet.Ncold = Ncold;
-
-Inlet.Nhot  = Nhot ;
-Outlet.Nhot = Nhot ;
-
-
+        
 EQUATIONS
 
@@ -110 +104 @@
         Q=UA*LMTD;
 
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
+#===================================================================
 #       Flow Direction 
-#+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
-
+#===================================================================
 if Side equal 0 
         
         then
+#=====================================================================
+#       Cocurrent Flow Multistream Heat Exchanger 
+#===================================================================
 "Cocurrent Flow LMTD"
         LMTD = HE.CocurrentLMTD(max(Inlet.Hot.T),min(Outlet.Hot.T),min(Inlet.Cold.T),max(Outlet.Cold.T));
         
         else
+#=====================================================================
+#       Counter Flow Multistream Heat Exchanger 
+#=====================================================================
 "Counter Flow LMTD"
         LMTD = HE.CounterLMTD(max(Inlet.Hot.T),min(Outlet.Hot.T),max(Inlet.Cold.T),min(Outlet.Cold.T));