source: mso/sample/reactors/sample_cstr_PG.mso @ 10

Last change on this file since 10 was 10, checked in by Rafael de Pelegrini Soares, 16 years ago

Changed reactor samples

File size: 1.5 KB
Line 
1#*---------------------------------------------------------------------
2* This file is property of the author and cannot be used, copyed
3* or modified without permission.
4*
5* Copyright (C) 2004  the author
6*----------------------------------------------------------------------
7* Author: Paula B. Staudt
8* $Id: sample_cstr_PG.mso 6 2005-01-11 17:06:06Z paula $
9*--------------------------------------------------------------------*#
10
11using "cstr";
12
13FlowSheet cstr_PropyleneGlycol
14        PARAMETERS
15        PP   as CalcObject(Brief="Physical Properties",File="VMG");
16        NoComps as Integer;
17        R as Real(Default=8.3145, Unit="J/mol/K");
18
19        DEVICES
20        s1   as stream_therm;
21        Reac as cstr;
22
23        SET
24        PP.Models = "RK RK";
25        PP.Components = ["1,2-Propylene Oxide", "Methanol",
26                "Water", "Sulfuric Acid", "1,2-Propylene Glycol" ];
27        NoComps = PP.NumberOfComponents;
28        Reac.NoReacs = 1;
29        Reac.stoic = [-1, 0, -1, 0, 1];
30       
31        EQUATIONS
32#       Reac.Hr = -36400 * "Btu/lbmol" - 7 * "Btu/lbmol/degR" * (Reac.Fout.T - 528 * "degR");
33#       Reac.r = 16.96e12 / "h" * exp(- 32400 * "Btu/lbmol"/R/Reac.Fout.T)
34#               * Reac.C(1);
35        Reac.Hr = 0 * "Btu/lbmol";
36        Reac.r  = 0 * "mol/l/s";
37
38        SPECIFY
39        s1.F = 52126 * "mol/h";
40        s1.P = 1     * "atm";
41        s1.T = 534.67* "degR";
42        s1.z = [0.0468, 0.0783, 0.874, 0.0009, 0];
43        s1.v = 0.0;
44
45        Reac.Vr    = 300   * "gal";
46        Reac.Outlet.F= Reac.Inlet.F;
47        "Adiabatic"
48        Reac.q     = 0     * "J/s";
49        Reac.Outlet.P= 1     * "atm";
50       
51        CONNECTIONS
52        s1  to  Reac.Inlet;
53       
54        INITIAL
55        Reac.Outlet.T = Reac.Inlet.T;
56        Reac.Outlet.z = Reac.Inlet.z;
57
58        OPTIONS
59        differentiation = "numeric";
60        outputLevel = "all";
61end
Note: See TracBrowser for help on using the repository browser.