trunk/models/vesselMethods.a4c

(*	ASCEND modelling environment
	Copyright (C) 1998, 2007 Carnegie Mellon University

	This program is free software; you can redistribute it and/or modify
	it under the terms of the GNU General Public License as published by
	the Free Software Foundation; either version 2, or (at your option)
	any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
	GNU General Public License for more details.
	
	You should have received a copy of the GNU General Public License
	along with this program; if not, write to the Free Software
	Foundation, Inc., 59 Temple Place - Suite 330,
	Boston, MA 02111-1307, USA.
*)
(*
	by Arthur W. Westerberg
	THIS FILE IS AUTO-IMPORTED INTO THE ASCEND MANUAL! BE CAREFUL WITH EDITS.
*)
REQUIRE "atoms.a4l";

MODEL vessel;
    NOTES
	'author' SELF {Arthur W. Westerberg}
	'creation date' SELF {May, 1998}
    END NOTES;

	(* variables *)
	side_area	"the area of the cylindrical side wall of the vessel",
	end_area	"the area of the flat ends of the vessel"
		IS_A area;

	vessel_vol	"the volume contained within the cylindrical vessel",
	wall_vol	"the volume of the walls for the vessel"
		IS_A volume;

	wall_thickness	"the thickness of all of the vessel walls",
	H		"the vessel height (of the cylindrical side walls)",
	D		"the vessel diameter"
		IS_A distance;

	H_to_D_ratio	"the ratio of vessel height to diameter"
		IS_A factor;

	metal_density	"density of the metal from which the vessel
			 is constructed"
		IS_A mass_density;

	metal_mass	"the mass of the metal in the walls of the vessel"
		IS_A mass;

	(* equations *)
    FlatEnds:      end_area = 1{PI} * D^2 / 4;
    Sides:         side_area = 1{PI} * D * H;
    Cylinder:      vessel_vol = end_area * H;
    Metal_volume:  (side_area + 2 * end_area) * wall_thickness = wall_vol;
    HD_definition: D * H_to_D_ratio = H;
    VesselMass:    metal_mass = metal_density * wall_vol;

METHODS
	METHOD specify;
	    NOTES
		'purpose' SELF {to fix four variables and make the problem well-posed}
	    END NOTES;
		FIX vessel_vol;
		FIX H_to_D_ratio;
		FIX wall_thickness;
		FIX metal_density;
	END specify;

	METHOD values;
	    NOTES
		'purpose' SELF {to set the values for the fixed variables}
	    END NOTES;
		H_to_D_ratio		:=	2;
		vessel_vol		:=	250 {ft^3};
		wall_thickness		:=	5 {mm};
		metal_density		:=	5000 {kg/m^3};
	END values;

	METHOD bound_self;
	END bound_self;

	METHOD scale_self;
	END scale_self;

	METHOD default_self;
		D			:=	1 {m};
		H			:=	1 {m};
		H_to_D_ratio		:=	1;
		vessel_vol		:=	1 {m^3};
		wall_thickness		:=	5 {mm};
		metal_density		:=	5000 {kg/m^3};
	END default_self;
END vessel;

ADD NOTES IN vessel;
	'description' SELF {This model relates the dimensions of a
		cylindrical vessel -- e.g., diameter, height and wall thickness
		to the volume of metal in the walls.  It uses a thin wall
		assumption -- i.e., that the volume of metal is the area of
		the vessel times the wall thickness.}
	'purpose' SELF {to illustrate the insertion of notes into a model}
END NOTES;
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;