DATABASE MATERIALI

c3e12eb1-4689-40ed-b0f3-fc8065aa6fc0 38 4 5 true true 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 30 :

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 * λ * / :

L 0.001 m *

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

Cont 0 :

Cont1 0 :

Cont2 0 :

i 1 num_righe range Cont1 Cont1 1 + : thk i el 0 mm * ≡ (i 4 ≤ (& Cont2 Cont2 1 + : thk i el 0 mm * ≡ (i 5 ≥ (& continue cases 11 line for

i 1 num_righe range continue thk i el 0 mm * ≡ Cont Cont 1 + : MATR Cont el MAT i el : thkR Cont el thk i el : 31 line cases 11 line for

<<<--- FORSE NON SERVE??

COSTRUZIONE VETTORI DEI RAGGI INTERNI ed ESTERNI

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

Cont 5.000

Cont1 1.000

i 2 Cont range R.int i el R.int i 1 - el thkR i 1 - el + : for

i 1 Cont range R.ext i el R.int i el thkR i el + : for

Cont2 1.000

R.int 0.655 m * 0.77 m * 0.885 m * 1 m * 1.008 m * 51 mat

R.ext 0.77 m * 0.885 m * 1 m * 1.008 m * 1.108 m * 51 mat

COSTRUZIONE VETTORE DI PRIMO TENTATIVO:

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

T.int_trial °C 100080561041522051 mat

T.int T.int_trial : 1273.15 K * 1078.15 K * 883.15 K * 688.15 K * 493.15 K * 51 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 1012 -^m * + (* L * (* / : 8.0995 K S * A 2^/ *

R.ext Cont el 1.108 m *

countlimit 30

R.conv_atm 1 h.convection 2 π * R.ext Cont el * L * (* / : 4.7881 K S * A 2^/ *

h.convection 30.00 kg K s 3^* / *

count countlimit < (SWITCH 1 ≡ (& Calcola conducibilità termiche in ogni materiale in base al vettore temperature i 1 Cont 1 - (range λ i el T.int i el MATR i el λ.T T.int i 1 + el MATR i el λ.T + 2 / : for λ Cont el T.int Cont el T.ext MATR Cont el λ.T_avg : 21 line Calcola resistenza termica totale i 1 Cont range R i el R.ext i el R.int i el λ i el R : for R.tot R j el j 1 Cont 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 Cont el T.ext_new Q R Cont el * + : i 1 Cont 1 - (range T.int_new Cont i - el T.int_new Cont i - 1 + el Q R Cont 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 30

COSTRUIRE VETTORE NOMI

i 1 Cont range TAG_VECTOR i el MATR i el 11 el : for

Q 2.2465 W *

T.int_trial °C 100080561041522051 mat

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

thkR mm 115115115810051 mat

T.int °C 981.8043 948.4877 716.8985 470.6143 470.5573 51 mat

T.ext °C 35.7565

GRAPH R.int mm / T.int 0 °C * - augment : 655 981.8043 K * 770 948.4877 K * 885 716.8985 K * 1000 470.6143 K * 1008 470.5573 K * 52 mat

GRAPH GRAPH

http://www.ultragen.com/doc/tech-articles/en/Improve %20FCCU%20Refractory-lined%20Piping%20Design.pdf

https://www.littlepeng.com/single-post/2017/07/13/ASME-B313 -Calculation-of-Wall-Temperature-for-Refractory-Lined-Pipe