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

Annotation of /trunk/models/vesselMethods.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1385 - (hide annotations) (download) (as text)
Sat Apr 7 09:13:41 2007 UTC (13 years, 5 months ago) by jpye
File MIME type: text/x-ascend
File size: 3143 byte(s)
Some work on adding 'listing' support in the ASCEND manual.
1 jpye 1385 (* ASCEND modelling environment
2     Copyright (C) 1998, 2007 Carnegie Mellon University
3    
4     This program is free software; you can redistribute it and/or modify
5     it under the terms of the GNU General Public License as published by
6     the Free Software Foundation; either version 2, or (at your option)
7     any later version.
8    
9     This program is distributed in the hope that it will be useful,
10     but WITHOUT ANY WARRANTY; without even the implied warranty of
11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12     GNU General Public License for more details.
13    
14     You should have received a copy of the GNU General Public License
15     along with this program; if not, write to the Free Software
16     Foundation, Inc., 59 Temple Place - Suite 330,
17     Boston, MA 02111-1307, USA.
18     *)
19     (*
20     by Arthur W. Westerberg
21     THIS FILE IS AUTO-IMPORTED INTO THE ASCEND MANUAL! BE CAREFUL WITH EDITS.
22     *)
23 aw0a 1 REQUIRE "atoms.a4l";
24    
25     MODEL vessel;
26     NOTES
27     'author' SELF {Arthur W. Westerberg}
28     'creation date' SELF {May, 1998}
29     END NOTES;
30    
31     (* variables *)
32     side_area "the area of the cylindrical side wall of the vessel",
33     end_area "the area of the flat ends of the vessel"
34     IS_A area;
35    
36     vessel_vol "the volume contained within the cylindrical vessel",
37     wall_vol "the volume of the walls for the vessel"
38     IS_A volume;
39    
40     wall_thickness "the thickness of all of the vessel walls",
41     H "the vessel height (of the cylindrical side walls)",
42     D "the vessel diameter"
43     IS_A distance;
44    
45     H_to_D_ratio "the ratio of vessel height to diameter"
46     IS_A factor;
47    
48     metal_density "density of the metal from which the vessel
49     is constructed"
50     IS_A mass_density;
51    
52     metal_mass "the mass of the metal in the walls of the vessel"
53     IS_A mass;
54    
55     (* equations *)
56 jpye 1385 FlatEnds: end_area = 1{PI} * D^2 / 4;
57     Sides: side_area = 1{PI} * D * H;
58     Cylinder: vessel_vol = end_area * H;
59     Metal_volume: (side_area + 2 * end_area) * wall_thickness = wall_vol;
60     HD_definition: D * H_to_D_ratio = H;
61     VesselMass: metal_mass = metal_density * wall_vol;
62 aw0a 1
63     METHODS
64 jpye 1385 METHOD specify;
65     NOTES
66     'purpose' SELF {to fix four variables and make the problem well-posed}
67     END NOTES;
68     FIX vessel_vol;
69     FIX H_to_D_ratio;
70     FIX wall_thickness;
71     FIX metal_density;
72     END specify;
73 aw0a 1
74 jpye 1385 METHOD values;
75     NOTES
76     'purpose' SELF {to set the values for the fixed variables}
77     END NOTES;
78     H_to_D_ratio := 2;
79     vessel_vol := 250 {ft^3};
80     wall_thickness := 5 {mm};
81     metal_density := 5000 {kg/m^3};
82     END values;
83 aw0a 1
84 jpye 1385 METHOD bound_self;
85     END bound_self;
86 aw0a 1
87 jpye 1385 METHOD scale_self;
88     END scale_self;
89 aw0a 1
90 jpye 1385 METHOD default_self;
91     D := 1 {m};
92     H := 1 {m};
93     H_to_D_ratio := 1;
94     vessel_vol := 1 {m^3};
95     wall_thickness := 5 {mm};
96     metal_density := 5000 {kg/m^3};
97     END default_self;
98 aw0a 1 END vessel;
99    
100     ADD NOTES IN vessel;
101 jpye 1385 'description' SELF {This model relates the dimensions of a
102     cylindrical vessel -- e.g., diameter, height and wall thickness
103     to the volume of metal in the walls. It uses a thin wall
104     assumption -- i.e., that the volume of metal is the area of
105     the vessel times the wall thickness.}
106     'purpose' SELF {to illustrate the insertion of notes into a model}
107 aw0a 1 END NOTES;

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