DATABASE MATERIALI

c3e12eb1-4689-40ed-b0f3-fc8065aa6fc0 30 4 5 false false 0 decimal

&[DATE] &[TIME] - &[FILENAME]

T.process 1000 °C * :

L 1 mm * :

T.atm 25 °C * :

ID.steel 2000 mm * :

thk.shell 8 mm * :

h.convection 30 W m 2^K * / * :

=1 to run the WHILE loop SWITCH 1 :

MAXIMUM NUMBER OF "WHILE" ITERATIONS... countlimit 3 :

DATABASE MATERIALI

MATERIALI ATLAS 60 MU 0 °C * 1000 °C * 21 mat 1.9 W m K * / * 1.73 W m K * / * 21 mat GD 23C 400 °C * 1000 °C * 21 mat 0.15 W m K * / * 0.24 W m K * / * 21 mat GD 18C 200 °C * 800 °C * 21 mat 0.10 kcal m hr * K * / * 0.18 kcal m hr * K * / * 21 mat RockWool 200 °C * 1000 °C * 21 mat 0.051 kcal m hr * K * / * 0.29 kcal m hr * K * / * 21 mat 43 mat :

FUNCTIONS

Determina conducibilità termica a partire da conducibilità note, per un materiale T Materiale λ.T Materiale 12 el K / Materiale 13 el W m K * / / T K / linterp W m K * / * :

T.1 T.2 Materiale λ.T_avg T.1 Materiale λ.T T.2 Materiale λ.T + 2 / :

NOT USED V.1 V.2 delta_quad V V.1 V.2 - : i 1 V rows range V.delta i el V i el 2^: for V.delta i el i 1 V rows sum 31 line :

r.out r.in λ R r.out r.in / ln 2 π * L * λ * / :

INPUT MATERIALI

Selected_Mat

MAT 1 el Selected_Mat :

thk 1 el 115 mm * :

Selected_Mat

MAT 2 el Selected_Mat :

thk 2 el 115 mm * :

Selected_Mat

MAT 3 el Selected_Mat :

thk 3 el 115 mm * :

Selected_Mat

MAT 4 el Selected_Mat :

thk 4 el 0 mm * :

MAT 5 el STEEL 0 °C * 100 °C * 21 mat 50 W m K * / * 50 W m K * / * 21 mat 13 mat :

<<<SISTEMARE!?!?

thk 5 el thk.shell :

Selected_Mat

MAT 6 el Selected_Mat :

thk 6 el 100 mm * :

Selected_Mat

MAT 7 el Selected_Mat :

thk 7 el 0 mm * :

num_righe MAT rows : 7

COSTRUZIONE VETTORI DEI RAGGI INTERNI ed ESTERNI

R.int 1 el ID.steel 2 / thk j el j 14 sum - : mm 65511 mat

i 27 range R.int i el R.int i 1 - el thk i 1 - el + : for

i 17 range R.ext i el R.int i el thk i el + : for

<<<--- FORSE NON SERVE??

COSTRUZIONE VETTORE DI PRIMO TENTATIVO:

i 1 num_righe range T.int_trial i el T.process i 1 - (T.process T.atm - num_righe / (* - : for

T.int_trial °C 1000 860.7143 721.4286 582.1429 442.8571 303.5714 164.2857 71 mat

T.int T.int_trial : 1273.15 K * 1133.8643 K * 994.5786 K * 855.2929 K * 716.0071 K * 576.7214 K * 437.4357 K * 71 mat

T.ext_trial T.atm :

T.ext T.ext_trial : 298.15 K *

count 0 :

R.conv_PRO 1 h.convection 2 π * R.int 1 el * L * (* / :

R.conv_atm 1 h.convection 2 π * R.ext 7 el * L * (* / :

count countlimit < (SWITCH 1 ≡ (& Calcola conducibilità termiche in ogni materiale in base al vettore temperature i 1 num_righe 1 - (range λ i el T.int i el MAT i el λ.T T.int i 1 + el MAT i el λ.T + 2 / : for λ num_righe el T.int num_righe el T.ext MAT num_righe el λ.T_avg : 21 line Calcola resistenza termica totale i 1 num_righe range R i el R.ext i el R.int i el λ i el R : for R.tot R j el j 1 num_righe sum R.conv_PRO + R.conv_atm + : 21 line Q T.process T.atm - (R.tot / : vuoto count count 1 + : AGGIORNA VETTORE TEMPERATURE T.ext_new T.atm Q R.conv_atm * + : T.int_new num_righe el T.ext_new Q R num_righe el * + : i 1 num_righe 1 - (range T.int_new num_righe i - el T.int_new num_righe i - 1 + el Q R num_righe i - el * + : for vuoto T.int T.int_new : T.ext T.ext_new : λ Clear R Clear T.ext_new Clear T.int_new Clear 181 line while

count 3

COSTRUIRE VETTORE NOMI

i 1 num_righe range TAG_VECTOR i el MAT i el 11 el : for

Q 2.2178 W *

T.int_trial °C 1000 860.71 721.43 582.14 442.86 303.57 164.29 71 mat

TAG_VECTOR ATLAS 60 MU GD 23C GD 18C ATLAS 60 MU STEEL RockWool RockWool 71 mat

thk mm 11511511508100071 mat

T.int °C 982.0367 949.1486 719.8543 474.8578 474.8578 474.8015 35.6191 71 mat

T.ext °C 35.6191

GRAPH R.int mm / T.int 0 °C * - augment : 655 982.0367 K * 770 949.1486 K * 885 719.8543 K * 1000 474.8578 K * 1000 474.8578 K * 1008 474.8015 K * 1108 35.6191 K * 72 mat

GRAPH