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

Diff of /trunk/models/vessel.a4c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 109 by johnpye, Wed Dec 14 00:34:09 2005 UTC revision 576 by johnpye, Tue May 9 03:42:08 2006 UTC
# Line 31  METHODS Line 31  METHODS
31      END defaults;      END defaults;
32    
33      METHOD clear;      METHOD clear;
34          side_area.fixed         :=      FALSE;          FREE side_area;
35          end_area.fixed          :=      FALSE;          FREE end_area;
36          vessel_vol.fixed        :=      FALSE;          FREE vessel_vol;
37          wall_vol.fixed          :=      FALSE;          FREE wall_vol;
38          wall_thickness.fixed    :=      FALSE;          FREE wall_thickness;
39          H.fixed                 :=      FALSE;          FREE H;
40          D.fixed                 :=      FALSE;          FREE D;
41          H_to_D_ratio.fixed      :=      FALSE;          FREE H_to_D_ratio;
42          metal_density.fixed     :=      FALSE;          FREE metal_density;
43          metal_mass.fixed        :=      FALSE;          FREE metal_mass;
44      END clear;      END clear;
45    
46      METHOD specify;      METHOD specify;
47      vessel_vol.fixed    :=  TRUE;      FIX vessel_vol;
48      H_to_D_ratio.fixed  :=  TRUE;      FIX H_to_D_ratio;
49      wall_thickness.fixed    :=  TRUE;      FIX wall_thickness;
50      metal_density.fixed :=  TRUE;      FIX metal_density;
51      END specify;      END specify;
52    
53      METHOD reset;      METHOD reset;
# Line 75  MODEL vessel_optimize REFINES vessel; Line 75  MODEL vessel_optimize REFINES vessel;
75      METHODS      METHODS
76    
77      METHOD clear;      METHOD clear;
78          side_area.fixed         :=      FALSE;          FREE side_area;
79          end_area.fixed          :=      FALSE;          FREE end_area;
80          vessel_vol.fixed        :=      FALSE;          FREE vessel_vol;
81          wall_vol.fixed          :=      FALSE;          FREE wall_vol;
82          wall_thickness.fixed    :=      FALSE;          FREE wall_thickness;
83          H.fixed                 :=      FALSE;          FREE H;
84          D.fixed                 :=      FALSE;          FREE D;
85          H_to_D_ratio.fixed      :=      FALSE;          FREE H_to_D_ratio;
86          metal_density.fixed     :=      FALSE;          FREE metal_density;
87          metal_mass.fixed        :=      FALSE;          FREE metal_mass;
88          cost.fixed              :=      FALSE;          FREE cost;
89          a.fixed                 :=      FALSE;          FREE a;
90      END clear;      END clear;
91    
92      METHOD specify;      METHOD specify;
93      vessel_vol.fixed    :=   TRUE;      FIX vessel_vol;
94      wall_thickness.fixed    :=   TRUE;      FIX wall_thickness;
95      metal_density.fixed :=   TRUE;      FIX metal_density;
96      a.fixed         :=   TRUE;      FIX a;
97      END specify;      END specify;
98    
99      METHOD min_cost;      METHOD min_cost;

Legend:
Removed from v.109  
changed lines
  Added in v.576

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