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

Contents of /trunk/models/kchittur/pg352version3.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, 9 months ago) by kchittur
File MIME type: text/x-ascend
File size: 746 byte(s)
Z
1 REQUIRE "atoms.a4l";
2
3 MODEL example101;
4
5 A1, B1, C1, A2, B2, C2 IS_A factor;
6 P1S, P2S, P, T, x1, x2, y1, y2 IS_A factor;
7
8 ln(P1S) = A1 - B1/(T + C1);
9 ln(P2S) = A2 - B2/(T + C2);
10
11 x1 + x2 = 1.0;
12 y1 + y2 = 1.0;
13
14 x1*P1S = y1*P;
15 x2*P2S = y2*P;
16
17 METHODS
18 METHOD values;
19 A1 := 14.2724; B1 := 2945.47; C1 := 224.0;
20 A2 := 14.2043; B2 := 2972.64; C2 := 209.0;
21 FIX A1; FIX B1; FIX C1; FIX A2; FIX B2; FIX C2;
22 END values;
23 METHOD parta;
24 FIX T; FIX x1;
25 x1 := 0.6;
26 T := 75.0;
27 END parta;
28 METHOD partb;
29 FIX P; FIX x1;
30 x1 := 0.1;
31 P := 70.0;
32 T := 300.0;
33 END partb;
34 METHOD doparta;
35 RUN ClearAll;
36 RUN values;
37 RUN parta;
38 END doparta;
39 METHOD dopartb;
40 RUN ClearAll;
41 RUN values;
42 RUN partb;
43 END dopartb;
44
45 END example101;

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