/[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 612 by johnpye, Wed May 17 02:51:33 2006 UTC revision 615 by johnpye, Wed May 17 06:29:40 2006 UTC
# Line 76  MODEL pipe_test REFINES radial_loss; Line 76  MODEL pipe_test REFINES radial_loss;
76    
77      L, loss[1..5].L ARE_THE_SAME;      L, loss[1..5].L ARE_THE_SAME;
78            
79      FOR i IN [1..n] CREATE      FOR i IN [2..n] CREATE
80          (* layers are touching *)          (* layers are touching *)
81          loss[i].D_1, loss[i-1].D_2 ARE_THE_SAME;          loss[i].D_1, loss[i-1].D_2 ARE_THE_SAME;
82    
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;
87      END FOR;      END FOR;
88    
89        loss[i].D_1, D_1 ARE_THE_SAME;
90        loss[n].D_2, D_2 ARE_THE_SAME;
91    
92        loss[i].T_1, T_1 ARE_THE_SAME;
93        loss[i].T_2, T_2 ARE_THE_SAME;
94    
95        loss[i].q, q ARE_THE_SAME;
96    
97  METHODS  METHODS
98  METHOD default_self;  METHOD default_self;
99      RUN reset; RUN values;      RUN reset; RUN values;
# Line 94  METHOD specify; Line 104  METHOD specify;
104      FIX loss[2..4].k;      FIX loss[2..4].k;
105      FIX loss[5].h;      FIX loss[5].h;
106            
107      FIX loss[1,3,5].D_1;      FIX loss[2].D_1, loss[2].D_2;
108        FIX loss[4].D_1, loss[4].D_2;
109  END specify;  END specify;
110    
111  METHOD values;  METHOD values;
112        L = 1 {m};
113    
114      loss[1].h := 1000 {W/m^2/K};      loss[1].h := 1000 {W/m^2/K};
115      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 *)
116      loss[3].k := 0.05 {W/m/K}; (* Masud's figure for lagging *)      loss[3].k := 0.05 {W/m/K}; (* Masud's figure for lagging *)
Legend:
Removed from v.612  
changed lines
  Added in v.615
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22