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