source: mso/sample/pressure_changers/sample_valve.mso @ 69

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

Added new pressure_changers models

  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.7 KB
Line 
1using "pressure_changers/valve";
2
3FlowSheet valve_Test_V
4# with vapour conditions
5        PARAMETERS
6        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
7        NComp   as Integer;
8
9        SET
10        PP.Components = [ "isobutane", "n-pentane"];
11        PP.LiquidModel = "PR";
12        PP.VapourModel = "PR";
13        NComp = PP.NumberOfComponents;
14       
15        DEVICES
16        v1 as valve;
17        s1 as stream_therm;
18       
19        CONNECTIONS
20        s1 to v1.Inlet;
21
22        SPECIFY
23        s1.P = 150 * "kPa";
24        s1.T = 281.75 * "K";
25        s1.z = [0.664, 0.336];
26        s1.v = 0.0;
27
28        v1.x = 0.866;
29        v1.Outlet.P = 148 * "kPa";
30
31        SET
32        v1.k = 20 * "gal/min/psi^0.5";
33       
34        OPTIONS
35        relativeAccuracy = 1e-6;
36        time = [0:20:1000];
37        mode = "steady";
38       
39end
40
41FlowSheet valve_Test_L
42#with liquid conditions
43        PARAMETERS
44        PP      as CalcObject(Brief="Physical Properties",File="vrpp");
45        NComp   as Integer;
46
47        SET
48        PP.Components = [ "isobutane", "n-pentane"];
49        PP.LiquidModel = "PR";
50        PP.VapourModel = "PR";
51        NComp = PP.NumberOfComponents;
52       
53        DEVICES
54        v1 as valve;
55        s1 as stream_therm;
56       
57        CONNECTIONS
58        s1 to v1.Inlet;
59
60        SPECIFY
61        s1.P = 185 * "kPa";
62        s1.T = 328.12 * "K";
63        s1.z = [0.001848, 0.9982];
64        s1.v = 0.0;
65
66        v1.x = 0.3363;
67        v1.Outlet.P = 183 * "kPa";
68
69        SET
70        v1.k = 20 * "gal/min/psi^0.5";
71       
72        OPTIONS
73        relativeAccuracy = 1e-6;
74        time = [0:20:1000];
75        mode = "steady";
76       
77end
78
79FlowSheet valve_linear_Test
80       
81        DEVICES
82        S1 as streamTP;
83        V1 as valve_linear;
84
85        CONNECTIONS
86        S1 to V1.Inlet;
87       
88        PARAMETERS
89        PP              as CalcObject   (Brief="External Physical Properties", File="vrpp");
90        NComp   as Integer              (Default= 1);
91       
92        SET
93        PP.Components = ["water"];     
94        PP.LiquidModel = "IdealLiquid";
95        PP.VapourModel = "Ideal";
96        PP.Derivatives = 0;
97        NComp = PP.NumberOfComponents;
98       
99        SPECIFY
100        S1.P = 2169.78                  * "kPa";
101        S1.T = 394.26                   * "K" ;
102        S1.z = [1];
103        V1.Qv = 113.56                  * "m^3/h";
104        V1.x = 0.5;
105        V1.cv = 3.997           * "m^3/h/kPa^0.5";
106end
Note: See TracBrowser for help on using the repository browser.