/[ascend]/trunk/models/collocation_tests.a4s
ViewVC logotype

Contents of /trunk/models/collocation_tests.a4s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations) (download)
Fri Oct 29 20:54:12 2004 UTC (19 years, 7 months ago) by aw0a
File size: 1977 byte(s)
Setting up web subdirectory in repository
1 # This file is part of the ASCEND Modeling Library and is released
2 # under the GNU Public License as described at the end of this file.
3 #
4 # This file demonstrates the use of collocation.a4l
5
6 # parameterized collocation test script
7 # by Ken Tyner, May 15, 1997.
8
9 # due to changes in the modeling libraries this script
10 # gives divide by zero errors...most likely due to
11 # poor initialization.
12 # The model does solve though.
13
14 DELETE TYPES;
15 READ FILE "collocation.a4l"
16
17 COMPILE tc OF mw_demo_column;
18 BROWSE {tc};
19
20 RUN {tc.mw_column.Column.reset_to_massbal};
21 RUN {tc.values};
22 SOLVE {tc.mw_column} WITH QRSlv;
23
24 RUN {tc.mw_column.Column.reset_to_fullthermo};
25 SOLVE {tc.mw_column} WITH QRSlv;
26
27 RUN {tc.mw_column.Column.reset_to_adiabatic};
28 RUN {tc.mw_column.Column.zero_Q};
29 SOLVE {tc.mw_column} WITH QRSlv;
30
31 ########## collocation_tests.a4s ends here ##########
32 #
33 # collocation_tests.a4s
34 # by Ken Tyner
35 # May 15, 1997.
36 # Part of the ASCEND Library
37 # $Date: 1998/06/17 20:08:29 $
38 # $Revision: 1.3 $
39 # $Author: mthomas $
40 # $Source: /afs/cs.cmu.edu/project/ascend/Repository/models/collocation_tests.a4s,v $
41 #
42 # This file is part of the ASCEND Modeling Library.
43 #
44 # Copyright (C) 1997 - 1998 Carnegie Mellon University
45 #
46 # The ASCEND Modeling Library is free software. You can redistribute
47 # it and/or modify it under the terms of the GNU General Public
48 # License as published by the Free Software Foundation---either
49 # version 2 of the License, or (at your option) any later version.
50 #
51 # The ASCEND Modeling Library is distributed in hope that it
52 # will be useful, but WITHOUT ANY WARRANTY--without even the implied
53 # warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
54 # See the GNU General Public License for more details.
55 #
56 # You should have received a copy of the GNU General Public License
57 # along with the program. If not, write to the Free Software
58 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check
59 # the file named COPYING.

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