/[ascend]/trunk/models/kchittur/pg352version2.a4c
ViewVC logotype

Contents of /trunk/models/kchittur/pg352version2.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1631 - (show annotations) (download) (as text)
Sun Sep 30 23:37:48 2007 UTC (12 years, 6 months ago) by kchittur
File MIME type: text/x-ascend
File size: 544 byte(s)
Z
1 REQUIRE "atoms.a4l";
2
3 MODEL example101;
4
5 P1S, P2S, P, T, x1, x2, y1, y2 IS_A factor;
6
7 P1S = exp(14.2724 - 2945.47/(T + 224.0));
8 P2S = exp(14.2043 - 2972.64/(T + 209.0));
9
10 x1 + x2 = 1.0;
11 y1 + y2 = 1.0;
12
13 x1*P1S = y1*P;
14 x2*P2S = y2*P;
15
16 METHODS
17 METHOD parta;
18 FIX T; FIX x1;
19 x1 := 0.6;
20 T := 75.0;
21 END parta;
22 METHOD partb;
23 FIX P; FIX x1;
24 x1 := 0.1;
25 P := 70.0;
26 T := 300.0;
27 END partb;
28 METHOD doparta;
29 RUN ClearAll;
30 RUN parta;
31 END doparta;
32 METHOD dopartb;
33 RUN ClearAll;
34 RUN partb;
35 END dopartb;
36
37 END example101;

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