/[ascend]/trunk/models/johnpye/radialheatloss.a4c
ViewVC logotype

Diff of /trunk/models/johnpye/radialheatloss.a4c

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

revision 615 by johnpye, Wed May 17 06:29:40 2006 UTC revision 616 by johnpye, Wed May 17 06:34:46 2006 UTC
# Line 83  MODEL pipe_test REFINES radial_loss; Line 83  MODEL pipe_test REFINES radial_loss;
83          (* steady state: heat rate is uniform *)          (* steady state: heat rate is uniform *)
84          loss[i].q,loss[i-1].q ARE_THE_SAME;          loss[i].q,loss[i-1].q ARE_THE_SAME;
85    
86          loss[i].T_1, loss[i-1].T_2 ARE_THE_SAME;          loss[i].T_1, loss[i-1].T_2 ARE_THE_SAME;
87    
88      END FOR;      END FOR;
89    
90      loss[i].D_1, D_1 ARE_THE_SAME;      loss[1].D_1, D_1 ARE_THE_SAME;
91      loss[n].D_2, D_2 ARE_THE_SAME;      loss[n].D_2, D_2 ARE_THE_SAME;
92    
93      loss[i].T_1, T_1 ARE_THE_SAME;      loss[1].T_1, T_1 ARE_THE_SAME;
94      loss[i].T_2, T_2 ARE_THE_SAME;      loss[n].T_2, T_2 ARE_THE_SAME;
95    
96      loss[i].q, q ARE_THE_SAME;      loss[1].q, q ARE_THE_SAME;
97    
98  METHODS  METHODS
99  METHOD default_self;  METHOD default_self;
# Line 102  END default_self; Line 103  END default_self;
103  METHOD specify;  METHOD specify;
104      FIX loss[1].h;      FIX loss[1].h;
105      FIX loss[2..4].k;      FIX loss[2..4].k;
106      FIX loss[5].h;      FIX loss[5].h;
107        FIX L;
108        FIX T_1, T_2;
109            
110      FIX loss[2].D_1, loss[2].D_2;      FIX loss[2].D_1, loss[2].D_2;
111      FIX loss[4].D_1, loss[4].D_2;      FIX loss[4].D_1, loss[4].D_2;
112  END specify;  END specify;
113    
114  METHOD values;  METHOD values;
115      L = 1 {m};      L := 1 {m};
116        T_1 := 250 {K} + 273.15 {K};
117        T_2 := 25 {K} + 273.15 {K};
118    
119      loss[1].h := 1000 {W/m^2/K};      loss[1].h := 1000 {W/m^2/K};
120      loss[2].k := 40 {W/m/K}; (* 'alloy steel', Ashby & Jones, Eng Matls 2, p.11 *)      loss[2].k := 40 {W/m/K}; (* 'alloy steel', Ashby & Jones, Eng Matls 2, p.11 *)

Legend:
Removed from v.615  
changed lines
  Added in v.616

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