/[ascend]/trunk/models/johnpye/separator.a4c
ViewVC logotype

Contents of /trunk/models/johnpye/separator.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 267 - (show annotations) (download) (as text)
Fri Feb 3 05:35:50 2006 UTC (14 years, 11 months ago) by johnpye
File MIME type: text/x-ascend
File size: 539 byte(s)
Adding separator
1 REQUIRE "johnpye/iapws_sat_curves.a4c";
2 REQUIRE "johnpye/iapws95.a4c";
3
4 MODEL separator;
5 S_in IS_A iapws95_2phase;
6 S_l ALIASES S_in.Sl;
7 S_v ALIASES S_in.Sv;
8
9 mdot_in,mdot_l, mdot_v IS_A mass_rate;
10
11 mdot_in = mdot_l + mdot_v;
12
13 mdot_v = mdot_in * S_in.x;
14
15 mdot_l = mdot_in * (1 - S_in.x);
16
17 METHODS
18 METHOD default_self;
19 RUN reset; RUN values;
20 END default_self;
21
22 METHOD specify;
23 FIX S_in.T;
24 FIX S_in.x;
25 FIX mdot_in;
26 END specify;
27
28 METHOD values;
29 S_in.T := 400 {K};
30 S_in.x := 0.3;
31 mdot_in := 1 {kg/s};
32 END values;
33
34 END separator;

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22