Changeset 376 for trunk/sample/miscellaneous/tenprobs

Timestamp:

Sep 26, 2007, 6:48:53 PM (16 years ago)

Author:

Rodolfo Rodrigues

Message:

Improved Problem 6 to use icons

Location:

trunk/sample/miscellaneous/tenprobs

Files:

• icon (added)
• icon/heated_tank.png (added)
• icon/heated_tank.svg (added)
• icon/sink_.png (added)
• icon/sink_.svg (added)
• icon/source_.png (added)
• icon/source_.svg (added)
• prob06.mso (modified) (5 diffs)
• prob06.xml (added)

trunk/sample/miscellaneous/tenprobs/prob06.mso

@@ -53 +53 @@
 *--------------------------------------------------------------------*#
 Model stream
+        PARAMETERS
+        W               as flow_mass    (Brief="Mass flow rate", DisplayUnit='kg/min');
+        cp              as cp_mass              (Brief="Heat capacity of the oil", DisplayUnit='kJ/kg/K');
+        
         VARIABLES
-        W               as flow_mass    (Brief="Mass flow rate", DisplayUnit='kg/min');
         T               as temperature;
+        
+        SET
+        cp = 2*'kJ/kg/K';
+        W = 100*'kg/min';
+end
+
+Model source_
+        ATTRIBUTES
+        Pallete = true;
+        Brief   = "Simple inlet stream";
+        Icon    = "icon/source_";
+        
+        VARIABLES
+out Outlet      as stream       (Brief="Outlet stream", PosX=1, PosY=0.5);
+end
+
+Model sink_
+        ATTRIBUTES
+        Pallete = true;
+        Brief   = "Simple outlet stream";
+        Icon    = "icon/sink_";
+        
+        VARIABLES
+in      Inlet   as stream       (Brief="Inlet stream", PosX=0, PosY=0.5);
+end
+
+
+Model energy_stream
+        VARIABLES
+        T               as temperature;
+end
+
+Model steam
+        ATTRIBUTES
+        Pallete = true;
+        Brief   = "Simple inlet stream";
+        Icon    = "icon/source_";
+        
+        VARIABLES
+out Outlet      as energy_stream(Brief="Outlet stream", PosX=1, PosY=0.5);
 end
 
@@ -62 +105 @@
 *       Model of one tank
 *--------------------------------------------------------------------*#
-Model tank
+Model heated_tank
+        ATTRIBUTES
+        Pallete = true;
+        Brief   = "Simple model of a steady-state CSTR";
+        Icon    = "icon/heated_tank";
+        
+        
         PARAMETERS
-        cp              as cp_mass              (Brief="Heat capacity of the oil", DisplayUnit='kJ/kg/K');
-        T_steam as temperature  (Brief="Saturated steam temperature");
         UA              as Real                 (Brief="Product of the heat transfer coefficient and the area", Unit='kJ/min/K');
         
         
         VARIABLES
-in      Inlet   as stream;
-out     Outlet  as stream;
+in      Inlet   as stream               (Brief="Inlet stream", PosX=0.51, PosY=0);
+out     Outlet  as stream               (Brief="Outlet stream", PosX=1, PosY=0.975);
+in      InletQ  as energy_stream(Brief="Rate of heat supply", PosX=0, PosY=0.715);
         
         M               as mass                 (Brief="Mass in tank");
@@ -77 +125 @@
         
         
+        SET
+        UA = 10*'kJ/min/K';
+        
+        
         EQUATIONS
         "Energy balance"
-        (M*cp)*diff(Outlet.T) = Inlet.W*cp*(Inlet.T - Outlet.T) + Q;
+        (M*Outlet.cp)*diff(Outlet.T) = Inlet.W*Inlet.cp*(Inlet.T - Outlet.T) + Q;
         
         "Rate of heat transferred"
-        Q = UA*(T_steam - Outlet.T);
-        
-        "Fixed value of mass flow rate"
-        Outlet.W = Inlet.W;
-        
-        "Mass assumed constant"
-        M = 1000*'kg';
-        
-        
-        SET
-        cp = 2*'kJ/kg/K';
-        T_steam = (250 + 273.15)*'K';
-        UA = 10*'kJ/min/K';
+        Q = UA*(InletQ.T - Outlet.T);
 end
 
@@ -108 +148 @@
         
         DEVICES
-        tank1   as tank;
-        tank2   as tank;
-        tank3   as tank;
+        steam1  as steam;
+        steam2  as steam;
+        steam3  as steam;
+        
+        tank1   as heated_tank;
+        tank2   as heated_tank;
+        tank3   as heated_tank;
         
         
@@ -118 +162 @@
         tank2.Outlet to tank3.Inlet;
         
+        steam1.Outlet to tank1.InletQ;
+        steam2.Outlet to tank2.InletQ;
+        steam3.Outlet to tank3.InletQ;
+        
         
         SPECIFY
-        feed.W = 100*'kg/min';
         feed.T = (20 + 273.15)*'K';
+        
+        steam1.Outlet.T = (250 + 273.15)*'K';
+        steam2.Outlet.T = (250 + 273.15)*'K';
+        steam3.Outlet.T = (250 + 273.15)*'K';
+        
+        tank1.M = 1000*'kg';
+        tank2.M = tank1.M;
+        tank3.M = tank2.M;
         
         
         INITIAL 
         tank1.Outlet.T = (20 + 273.15)*'K';
-        tank1.Outlet.T = tank2.Outlet.T;
-        tank2.Outlet.T = tank3.Outlet.T;
+        tank2.Outlet.T = tank1.Outlet.T;
+        tank3.Outlet.T = tank2.Outlet.T;