(*	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, see <http://www.gnu.org/licenses/>.
*)
REQUIRE "atoms.a4l"; (* => atoms.a4l, measures.a4l, system.a4l, basemodel.a4l *)
(*
	by Art Westerberg, 1998

	This model illustrates how variables are declared and relations written.
	The model contains no initialisation for any of the variable values, and
	does not specify which variables are 'fixed' and which ones should be
	solved for. For this reason, when loaded, this model will cause problems
	that ASCEND will attempt to resolve through warnings to the user.
*)

MODEL vesselPlain;

	(* variables *)
	side_area, end_area	 IS_A area;
	vessel_vol, wall_vol IS_A volume;
	wall_thickness, H, D IS_A distance;
	H_to_D_ratio         IS_A factor;
	metal_density        IS_A mass_density;
	metal_mass           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;

END vesselPlain;