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

Contents of /trunk/models/vesselNotes.a4c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1385 - (show annotations) (download) (as text)
Sat Apr 7 09:13:41 2007 UTC (12 years, 8 months ago) by jpye
File MIME type: text/x-ascend
File size: 2463 byte(s)
Some work on adding 'listing' support in the ASCEND manual.
1 (* 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 THIS FILE IS AUTO-IMPORTED INTO THE ASCEND MANUAL! BE CAREFUL WITH EDITS.
21 vesselNotes.a4c
22 by Arthur W. Westerberg
23 *)
24 REQUIRE "atoms.a4l";
25
26 MODEL vessel;
27 NOTES
28 'author' SELF {Arthur W. Westerberg}
29 'creation date' SELF {May, 1998}
30 END NOTES;
31
32 (* variables *)
33 side_area "the area of the cylindrical side wall of the vessel",
34 end_area "the area of the flat ends of the vessel"
35 IS_A area;
36
37 vessel_vol "the volume contained within the cylindrical vessel",
38 wall_vol "the volume of the walls for the vessel"
39 IS_A volume;
40
41 wall_thickness "the thickness of all of the vessel walls",
42 H "the vessel height (of the cylindrical side walls)",
43 D "the vessel diameter"
44 IS_A distance;
45
46 H_to_D_ratio "the ratio of vessel height to diameter"
47 IS_A factor;
48
49 metal_density "density of the metal from which the vessel
50 is constructed"
51 IS_A mass_density;
52
53 metal_mass "the mass of the metal in the walls of the vessel"
54 IS_A mass;
55
56 (* equations *)
57 FlatEnds: end_area = 1{PI} * D^2 / 4;
58 Sides: side_area = 1{PI} * D * H;
59 Cylinder: vessel_vol = end_area * H;
60 Metal_volume: (side_area + 2 * end_area) * wall_thickness = wall_vol;
61 HD_definition: D * H_to_D_ratio = H;
62 VesselMass: metal_mass = metal_density * wall_vol;
63 END vessel;
64
65 ADD NOTES IN vessel;
66 'description' SELF {This model relates the dimensions of a
67 cylindrical vessel -- e.g., diameter, height and wall thickness
68 to the volume of metal in the walls. It uses a thin wall
69 assumption -- i.e., that the volume of metal is the area of
70 the vessel times the wall thickness.}
71 'purpose' SELF {to illustrate the insertion of notes into a model}
72 END NOTES;

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