source: branches/new_gui/sample/pressure_changers/sample_pump.mso @ 919

Last change on this file since 919 was 891, checked in by gerson bicca, 13 years ago

samples for pressure changers

File size: 1.5 KB
Line 
1#*----------------------------------------------
2* FlowSheet generated automaticaly by EMSO-GUI
3*----------------------------------------------*#
4
5using "streams/sources";
6using "streams/sinks";
7using "pressure_changers/pump";
8
9FlowSheet Sample_Pump_Diagram
10        PARAMETERS
11        PP as Plugin(Brief="Physical Properties",
12                Type="PP",
13                Components = ["water"],
14                LiquidModel = "PR",
15                VapourModel = "PR"
16        );
17        NComp as Integer;
18        SET
19        NComp = PP.NumberOfComponents;
20
21        DEVICES
22        suction as simple_source;
23
24        SET
25
26        SPECIFY
27        suction.MolarComposition = 1;
28        suction.F = 1 * 'kmol/h';
29        suction.T = 298 * 'K';
30        suction.P = 2 * 'atm';
31
32        INITIAL
33
34        GUESS
35
36        DEVICES
37        discharge as simple_sink;
38
39        SET
40
41        SPECIFY
42
43        INITIAL
44
45        GUESS
46
47        DEVICES
48        Pump_Operation as centrifugal_pump;
49
50        SET
51        Pump_Operation.PumpEfficiency = 0.10;
52        Pump_Operation.MechanicalEff = 0.95;
53        Pump_Operation.NPSH_Options = "Include Kinetic Head";
54        Pump_Operation.SuctionArea = 0.01 * 'm^2';
55
56        SPECIFY
57        Pump_Operation.Pratio = 7;
58        Pump_Operation.StaticHead = 12 * 'm';
59
60        INITIAL
61
62        GUESS
63
64        DEVICES
65        work_inlet as work_source;
66
67        SET
68
69        SPECIFY
70
71        INITIAL
72
73        GUESS
74
75        CONNECTIONS
76        suction.Outlet to Pump_Operation.Inlet;
77        Pump_Operation.Outlet to discharge.Inlet;
78        work_inlet.Work to Pump_Operation.WorkIn;
79
80        OPTIONS
81        Dynamic = false;
82        Integration = "original";
83        NLASolver(
84                File = "sundials",
85                RelativeAccuracy = 1e-3,
86                AbsoluteAccuracy = 1e-6,
87                MaxIterations = 100
88        );
89        DAESolver(
90                File = "sundials",
91                RelativeAccuracy = 1e-3,
92                AbsoluteAccuracy = 1e-6,
93                EventAccuracy = 1e-2
94        );
95end
Note: See TracBrowser for help on using the repository browser.