43157786-5209-4bbc-ae90-086b85531ffa 14 4 5 decimal

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

Standard temperatur-tidkurve t θ.g 203458 t * 1 + log10 * + :

x θ.g

x θ.g x diff 276018 x * + (10 ln * /

t Δθ.g 276018 x * + (10 ln * / :

x Δθ.g 0 x ≤ ( x 1024 ≤ ( * /

x f 425 7.73 101^/ x * + 1.69 103^/ x 2^* - 2.22 106^/ x 3^* + :

x f 66613002738 x - / + (- 0 ≡ x 590610 solve 600.6

x f 666 13002 738 x - / + 2 1 sys

x ca 425 7.73 101^/ x * + 1.69 103^/ x 2^* - 2.22 106^/ x 3^* + x 600.6 ≤ 66613002738 x - / + x 600.6 735 ltle 54517820 x 731 - / + x 735900 ltle 650 cases :

x ca 425 7.73 101^/ x * + 1.69 103^/ x 2^* - 2.22 106^/ x 3^* + 0 x ≤ (x 600.6 ≤ (* / 66613002738 x - / + 600.6 x ≤ (x 735 ≤ (* / 54517820 x 731 - / + 735 x ≤ (x 900 ≤ (* / 650900 x ≤ (x 1200 ≤ (* / 41 mat :

x ca 1 el x ca 2 el x ca 3 el x ca 4 el 4 1 sys

d.p 0.01 :

ρ.p 350 :

c.p 1200 :

λ.p 0.12 :

ratio.Ap_V 107102^* :

THESE ARE THE VALUES USED IN THE EXAMPLE I'M TRYING TO MIMIC

INNDATA

Densitet stål ρ.a 7850 :

Standard temperatur-tidkurve t θ.g 203458 t * 1 + log10 * + :

x θ.g x diff 276018 x * + (10 ln * /

x Δθ.g 276018 x * + (10 ln * / :

x θ.g 0 x ≤ ( x 1200 ≤ ( * / 100 x Δθ.g 0 x ≤ ( x 1200 ≤ ( * / * 2 1 sys x Δθ.g 0 x ≤ ( x 1024 ≤ ( * /

all c.p ρ.p * d.p * ratio.Ap_V * ρ.a / :

c.p ρ.p * d.p * ratio.Ap_V * ρ.a / 5724.84

x group all x ca 1 el / :

θ.a φ c.p ρ.p * θ.a ca 1 el ρ.a * / d.p * ratio.Ap_V * c.p ρ.p * θ.a ca 2 el ρ.a * / d.p * ratio.Ap_V * c.p ρ.p * θ.a ca 3 el ρ.a * / d.p * ratio.Ap_V * c.p ρ.p * θ.a ca 4 el ρ.a * / d.p * ratio.Ap_V * 41 mat :

500 group 500 φ 1 el 21 mat 8.59 8.59 21 mat

x φ 1 el x φ 2 el x φ 3 el x φ 4 el 4 1 sys

SYSTEM AV DIFFERENSIALLIGNINGER

θ.a c.a 425 7.73 101^/ θ.a * + 1.69 103^/ θ.a 2^* - 2.22 106^/ θ.a 3^* + 66613002738 θ.a - / + 54517820 θ.a 731 - / + 65041 mat :

t θ.a D λ.p ratio.Ap_V * d.p θ.a c.a 1 el * ρ.a * 1 θ.a φ 1 el 3 / + (* / t θ.g θ.a - (* e 0.1 10 / (^1 - (t Δθ.g * - λ.p ratio.Ap_V * d.p θ.a c.a 2 el * ρ.a * 1 θ.a φ 2 el 3 / + (* / t θ.g θ.a - (* e 0.1 10 / (^1 - (t Δθ.g * - λ.p ratio.Ap_V * d.p θ.a c.a 3 el * ρ.a * 1 θ.a φ 3 el 3 / + (* / t θ.g θ.a - (* e 0.1 10 / (^1 - (t Δθ.g * - λ.p ratio.Ap_V * d.p θ.a c.a 4 el * ρ.a * 1 θ.a φ 4 el 3 / + (* / t θ.g θ.a - (* e 0.1 10 / (^1 - (t Δθ.g * - 41 mat :

e 0.1 10 / (^1 - 0.0101

INITIALBETINGELSER OG LØSNING AV DIFFERENSIALLIGNINGER

θ.a.init 20 :

θ.a.12 600 :

θ.a.23 735 :

θ.a.34 900 :

steps 5 :

t.init 0 :

t.12 147.6 :

t.23 204.5 :

t.34 289.4 :

t.final 360 :

3 appVersion 0.98.6179 ≡

======== the suite of 6671 is not compatible with 6179 ========

sol_1 θ.a.init t.init t.12 steps t.12 t.init - (* t θ.a D 1 el dn_GearsBDF :

res θ.a.init t.init t.12 steps t.12 t.init - (* t θ.a D 1 el dn_GearsBDF θ.a.12 t.12 t.23 steps t.23 t.12 - (* t θ.a D 2 el dn_GearsBDF θ.a.23 t.23 t.34 steps t.34 t.23 - (* t θ.a D 3 el dn_GearsBDF θ.a.34 t.34 t.final steps t.final t.34 - (* t θ.a D 4 el dn_GearsBDF 41 mat :

θ.a t.12 res 1 el 2 col res 1 el 1 col θ.a ainterp :

θ.a.12 t.12 #

θ.a t.23 res 2 el 2 col res 2 el 1 col θ.a ainterp :

θ.a.23 t.23 #

θ.a t.34 res 3 el 2 col res 3 el 1 col θ.a ainterp :

θ.a.34 t.34 #

check t.12 θ.a.12 t.12 - abs 1105 -^* < t12 er tilstrekkelig itterert For stort avvik på t12 if t.23 θ.a.23 t.23 - abs 1105 -^* < t23 er tilstrekkelig itterert For stort avvik på t23 if t.34 θ.a.34 t.34 - abs 1105 -^* < t34 er tilstrekkelig itterert For stort avvik på t34 if 31 mat : #

res 1 el #