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; |
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 *) |