Changeset 316 for trunk/eml/heat_exchangers/heater.mso

Timestamp:

Jul 18, 2007, 3:50:58 PM (16 years ago)

Author:

gerson bicca

Message:

modified heater/cooler model: included energy stream

File:

• trunk/eml/heat_exchangers/heater.mso (modified) (3 diffs)

trunk/eml/heat_exchangers/heater.mso

@@ -19 +19 @@
 using "streams.mso";
 
-Model Heater_Cooler_Basic
+Model heater
 
 ATTRIBUTES
-        Pallete         = false;
-        Brief           = "Heater or Cooler Basic Equations";
+        Pallete         = true;
+        Icon            = "icon/heater";        
+        Brief   = "Heater or Cooler";
         Info            =
-        "Determines thermal and phase conditions of outlet stream";
+        "Determines thermal and phase conditions of an outlet stream";
         
 PARAMETERS
-        outer PP                as Plugin               (Brief="Physical Properties", Type="PP");
-        outer   NComp   as Integer              (Brief="Number of Components"); 
-        Ninlet                          as Integer              (Brief="Number of Inlet Streams",Lower=1);
+        outer PP                        as Plugin               (Brief="Physical Properties", Type="PP");
+        outer NComp     as Integer      (Brief="Number of Components"); 
+                        Ninlet          as Integer      (Brief="Number of Inlet Streams");
         
+SUBMODELS
+        in  Inlet(Ninlet )  as stream                           (Brief="Inlet Streams");
+        out Outlet              as streamPH                             (Brief="Outlet Stream");
+        in InletHeat            as energy_stream                (Brief ="Inlet Heat Stream");
+        out OutletHeat  as energy_stream                (Brief ="Outlet Heat Stream");
+
 VARIABLES
-        in  Inlet(Ninlet)       as stream                       (Brief="Inlet Streams");
-        out Outlet              as streamPH             (Brief="Outlet Stream");
-        Q                                       as power                        (Brief = "Heat Transfer");
-        Vfrac                                   as fraction                     (Brief = "Vapor fraction Outlet Stream");
-        Lfrac                                   as fraction                     (Brief = "Liquid fraction Outlet Stream");
+        QDuty                                   as power                        (Brief = "Actual Duty");
+        Vfrac                                   as fraction             (Brief = "Vapor fraction Outlet Stream");
+        Lfrac                                           as fraction             (Brief = "Liquid fraction Outlet Stream");
+        Kvalue(NComp)   as Real                         (Brief = "Phase Equilibrium K-values");
         
 EQUATIONS
@@ -43 +49 @@
 "Flow"
         Outlet.F = sum(Inlet.F);        
-        
+
 for j in [1 : NComp]
         
@@ -56 +62 @@
 "Liquid fraction Outlet Stream"
         Lfrac = 1-Vfrac;
-        
+
+"Heat Duty"
+        QDuty = Outlet.F*Outlet.h - sum(Inlet.F*Inlet.h);
+
+"Net Duty"
+        OutletHeat.Q = InletHeat.Q - QDuty;
+
+"Phase Equilibrium"
+        Kvalue*(Outlet.x) = Outlet.y;
+
 end
 
-Model heater            as Heater_Cooler_Basic
-
-ATTRIBUTES
-        Pallete         = true;
-        Icon = "icon/heater";   
-        Brief           = "Model of a Heater";
-        Info            =
-        "This model determines thermal and phase conditions of outlet stream";
-        
-EQUATIONS
-
-"Heat Duty"
-        Q = Outlet.F*Outlet.h-sum(Inlet.F*Inlet.h);
-        
-end
-
-Model cooler            as Heater_Cooler_Basic
-        
-ATTRIBUTES
-        Pallete         = true;
-        Icon = "icon/cooler";   
-        Brief           = "Model of a Cooler";
-        Info            =
-        "This model determines thermal and phase conditions of outlet stream";
-        
-EQUATIONS
-
-"Heat Duty"
-        Q = sum(Inlet.F*Inlet.h)- Outlet.F*Outlet.h;
-        
-end