/[ascend]/trunk/models/collapsingcan2.a4c
ViewVC logotype

Diff of /trunk/models/collapsingcan2.a4c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1170 by johnpye, Wed Jan 17 12:17:25 2007 UTC revision 1171 by johnpye, Wed Jan 17 12:27:55 2007 UTC
# Line 1  Line 1 
1  REQUIRE "atoms.a4l";  REQUIRE "atoms.a4l";
2  REQUIRE "johnpye/thermo_types.a4c";  REQUIRE "johnpye/thermo_types.a4c";
3  IMPORT "freesteam";  IMPORT "freesteam";
 (* IMPORT "sensitivity/solve"; *)  
4  (*  (*
5      A second solution the Horwitz A, "The Case of the Collapsing Can", Chemical      A second solution the Horwitz A, "The Case of the Collapsing Can", Chemical
6      Engineering Progress, Jun 1997, pp.61-65.      Engineering Progress, Jun 1997, pp.61-65.
# Line 16  IMPORT "freesteam"; Line 15  IMPORT "freesteam";
15      published in the original article, this model will use full IAPWS steam      published in the original article, this model will use full IAPWS steam
16      properties from the freesteam project.      properties from the freesteam project.
17    
18        Note that you will need to have freesteam (http://freesteam.sf.net) installed
19        on your machine for this to work. If you have already installed ASCEND and  
20        you have the command 'ascend-config' available on your path, it should
21        just be a matter of downloading freesteam and typing
22    
23        $ tar jxvf freesteam-0.6.2.tar.bz2
24        $ cd freesteam-0.6.2
25        $ scons ascend
26        $ scons install
27    
28        The run the model--
29        $ ascend collapsingcan2.a4c
30    
31      Model file created by John Pye, Jan 2007.      Model file created by John Pye, Jan 2007.
32  *)  *)
33    
# Line 69  METHODS Line 81  METHODS
81          liq.m := 1 {lbm};          liq.m := 1 {lbm};
82          FIX liq.T, liq.p, liq.m;          FIX liq.T, liq.p, liq.m;
83          liq.u := 100 {kJ/kg}; (* initial guess *)          liq.u := 100 {kJ/kg}; (* initial guess *)
       
     (*  EXTERNAL do_solve(SELF);  
         RUN self_test; *)  
84      END on_load;      END on_load;
85    
86      METHOD self_test;      METHOD self_test;

Legend:
Removed from v.1170  
changed lines
  Added in v.1171

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