source: trunk/eml/reactors/batch.mso @ 311

Last change on this file since 311 was 302, checked in by Argimiro Resende Secchi, 16 years ago

changing icons position.

  • Property svn:keywords set to Id
File size: 1.6 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*--------------------------------------------------------------------
16* Author: Paula B. Staudt and Rafael P. Soares
17* $Id: batch.mso 302 2007-07-04 22:58:14Z arge $
18*------------------------------------------------------------------*#
19
20using "streams";
21 
22Model batch_basic
23        ATTRIBUTES
24        Pallete         = true;
25        Icon            = "icon/batch";
26        Brief           = "Model of a batch reactor";
27        Info            = "
28        Assumptions
29         * isotermic
30        ";
31
32PARAMETERS
33
34outer   NComp as Integer;
35        NReac as Integer;
36        stoic(NComp, NReac) as Real (Brief = "Stoichiometric Matrix");
37
38VARIABLES
39
40in      Inlet      as stream;
41        C(NComp) as conc_mol(Brief="Components concentration");
42        r(NReac) as reaction_mol(Brief = "Reaction rates");
43        T          as temperature(Brief="Reactor temperature");
44        P          as pressure(Brief="Reactor pressure");
45        Vr         as volume (Brief = "Reacting Volume");
46       
47        EQUATIONS
48        "Component Molar Balance"
49        diff(C*Vr) = Inlet.F*Inlet.z + sumt(stoic*r)*Vr;
50end
51
52
53Model batch_isotermic as batch_basic
54        EQUATIONS
55        "Isotermic"
56        T = Inlet.T;
57       
58        "Isobaric"
59        P = Inlet.P;
60end
61
Note: See TracBrowser for help on using the repository browser.