Parent Directory | Revision Log

Revision **1385** -
(**show annotations**)
(**download**)
(**as text**)

*Sat Apr 7 09:13:41 2007 UTC*
(13 years, 4 months ago)
by *jpye*

File MIME type: text/x-ascend

File size: 2463 byte(s)

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 |