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

Annotation of /trunk/models/kchittur/pg352version1.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1631 - (hide annotations) (download) (as text)
Sun Sep 30 23:37:48 2007 UTC (12 years, 10 months ago) by kchittur
File MIME type: text/x-ascend
File size: 542 byte(s)
Z
1 kchittur 1631 REQUIRE "atoms.a4l";
2    
3     MODEL example101;
4    
5     P1S, P2S, P, T, x1, x2, y1, y2 IS_A factor;
6    
7     ln(P1S) = 14.2724 - 2945.47/(T + 224.0);
8     ln(P2S) = 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;
38    
39    

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