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

Last change on this file since 172 was 172, checked in by gerson bicca, 17 years ago

updated batch reactor

  • 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* 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 172 2007-03-02 13:16:58Z bicca $
24*------------------------------------------------------------------*#
25
26using "streams";
27 
28Model batch_basic
29       
30PARAMETERS
31
32outer   NComp as Integer;
33        NReac as Integer;
34        stoic(NComp, NReac) as Real (Brief = "Stoichiometric Matrix");
35
36VARIABLES
37
38in      Inlet      as stream;
39        C(NComp) as conc_mol(Brief="Components concentration");
40        r(NReac) as reaction_mol(Brief = "Reaction rates");
41        T          as temperature(Brief="Reactor temperature");
42        P          as pressure(Brief="Reactor pressure");
43        Vr         as volume (Brief = "Reacting Volume");
44       
45        EQUATIONS
46        "Component Molar Balance"
47        diff(C*Vr) = Inlet.F*Inlet.z + sumt(stoic*r)*Vr;
48end
49
50
51Model batch_isotermic as batch_basic
52        EQUATIONS
53        "Isotermic"
54        T = Inlet.T;
55       
56        "Isobaric"
57        P = Inlet.P;
58end
59
Note: See TracBrowser for help on using the repository browser.