source: branches/newlanguage/eml/reactors/batch.mso @ 135

Last change on this file since 135 was 77, checked in by Paula Bettio Staudt, 16 years ago

Added propset "Id" property and updated reactors files header

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