source: trunk/eml/heat_exchangers/heater.mso @ 307

Last change on this file since 307 was 307, checked in by Argimiro Resende Secchi, 15 years ago

Changing icons position.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.2 KB
Line 
1#*-------------------------------------------------------------------
2* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
3*
4* This LIBRARY is free software; you can distribute it and/or modify
5* it under the therms of the ALSOC FREE LICENSE as available at
6* http://www.enq.ufrgs.br/alsoc.
7*
8* EMSO Copyright (C) 2004 - 2007 ALSOC, original code
9* from http://www.rps.eng.br Copyright (C) 2002-2004.
10* All rights reserved.
11*
12* EMSO is distributed under the therms of the ALSOC LICENSE as
13* available at http://www.enq.ufrgs.br/alsoc.
14*----------------------------------------------------------------------
15* Author: Gerson Balbueno Bicca
16* $Id: heater.mso 307 2007-07-05 01:54:54Z arge $
17*--------------------------------------------------------------------*#
18
19using "streams.mso";
20
21Model Heater_Cooler_Basic
22
23ATTRIBUTES
24        Pallete         = false;
25        Brief           = "Heater or Cooler Basic Equations";
26        Info            =
27        "Determines thermal and phase conditions of outlet stream";
28       
29PARAMETERS
30        outer PP                as Plugin               (Brief="Physical Properties", Type="PP");
31        outer   NComp   as Integer              (Brief="Number of Components");
32        Ninlet                          as Integer              (Brief="Number of Inlet Streams",Lower=1);
33       
34VARIABLES
35        in  Inlet(Ninlet)       as stream                       (Brief="Inlet Streams");
36        out Outlet              as streamPH             (Brief="Outlet Stream");
37        Q                                       as power                        (Brief = "Heat Transfer");
38        Vfrac                                   as fraction                     (Brief = "Vapor fraction Outlet Stream");
39        Lfrac                                   as fraction                     (Brief = "Liquid fraction Outlet Stream");
40       
41EQUATIONS
42
43"Flow"
44        Outlet.F = sum(Inlet.F);       
45       
46for j in [1 : NComp]
47       
48"Composition"
49        Outlet.F*Outlet.z(j) = sum(Inlet.F*Inlet.z(j));
50       
51end
52
53"Vapor fraction Outlet Stream"
54        Vfrac = Outlet.v;
55
56"Liquid fraction Outlet Stream"
57        Lfrac = 1-Vfrac;
58       
59end
60
61Model heater            as Heater_Cooler_Basic
62
63ATTRIBUTES
64        Pallete         = true;
65        Icon = "icon/heater";   
66        Brief           = "Model of a Heater";
67        Info            =
68        "This model determines thermal and phase conditions of outlet stream";
69       
70EQUATIONS
71
72"Heat Duty"
73        Q = Outlet.F*Outlet.h-sum(Inlet.F*Inlet.h);
74       
75end
76
77Model cooler            as Heater_Cooler_Basic
78       
79ATTRIBUTES
80        Pallete         = true;
81        Icon = "icon/cooler";   
82        Brief           = "Model of a Cooler";
83        Info            =
84        "This model determines thermal and phase conditions of outlet stream";
85       
86EQUATIONS
87
88"Heat Duty"
89        Q = sum(Inlet.F*Inlet.h)- Outlet.F*Outlet.h;
90       
91end
Note: See TracBrowser for help on using the repository browser.