source: branches/newlanguage/sample/stage_separators/sample_batch_dist.mso @ 137

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

Updated stage_separators sample files header

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 2.0 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* Sample file for model Diff_Dist
17*--------------------------------------------------------------------
18*
19* This sample file needs VRTherm DEMO (www.vrtech.com.br) to run.
20*
21*----------------------------------------------------------------------
22* Author: Maurício Carvalho Maciel
23* $Id: sample_batch_dist.mso 86 2006-12-08 20:58:15Z paula $
24*--------------------------------------------------------------------*#
25
26using "stage_separators/batch_dist";
27
28FlowSheet TesteBatch
29       
30        PARAMETERS
31        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
32        NComp   as Integer;
33
34        SET
35        PP.Components = [ "isobutane", "benzene" ];
36        PP.LiquidModel = "PR";
37        PP.VapourModel = "PR";
38        NComp = PP.NumberOfComponents;
39       
40        DEVICES
41        batch   as Diff_Dist;
42        reflux  as stream_therm;
43        feed    as stream_therm;
44       
45        CONNECTIONS
46        reflux to batch.InletL;
47        feed to batch.Inlet;
48
49        EQUATIONS
50        if batch.Level > 1E-3 then
51                batch.OutletV.F = 150 * "kmol/h";
52                batch.Q = 3.7743e6 * "kJ/h";
53        else
54                batch.OutletV.F = 0 * "kmol/h";
55                batch.Q = 0 * "kJ/h";
56        end
57       
58        SPECIFY
59        reflux.F = 0 * "kmol/h";
60        reflux.T = 328 * "K";
61        reflux.P = 180 * "kPa";
62        reflux.z = [0.5, 0.5];
63        reflux.v = 0;
64       
65        feed.F = 0 * "kmol/h";
66        feed.T = 328 * "K";
67        feed.P = 180 * "kPa";
68        feed.z = [0.5, 0.5];
69        feed.v = 0;
70       
71        SET
72        batch.V = 3 * "m^3";
73        batch.Across = 1 * "m^2";
74       
75        INITIAL
76        batch.T = 298 *"K";
77        batch.Level = 2.5 * "m";
78        batch.x(2) = 0.2;
79       
80        OPTIONS
81        relativeAccuracy = 1e-3;
82        time = [0:0.1:20]*"min";
83end
Note: See TracBrowser for help on using the repository browser.