9461744b-9cfb-4cee-a7b8-7755cd01e3b9 19 6 9 decimal

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

Tr φ 36 Tr / 42 Tr ln * + 35 - Tr 6^- :

Tr Ψ 0.0364 Tr φ * Tr log10 - :

Tc Pc α T Pvap 10 Pc log10 0.1183 T Tc / φ * - 7 T Tc / log10 * + α 7 - (T Tc / Ψ * -^:

Tc 433.8 556.4 553562 619.6 51 mat :

Pc 31.6 4540 48.6 3851 mat 101.33 * :

α 6.771 6.742 6.844 6.848 7.330 51 mat :

z 0.35 0.1 0.1 0.1 0.35 51 mat :

P 101.33 :

T 350 :

T P Tc Pc α k Tc Pc α T Pvap P / :

i 1 Tc length range k i el T P Tc i el Pc i el α i el k : for

ii 1 Tc length range kk ii el T P Tc ii el Pc ii el α ii el k : for

K i 1 Tc length range k i el T P Tc i el Pc i el α i el k : for k 21 line :

kk k K 13 mat 6.798 1.005 0.89 0.904 0.141 51 mat 6.798 1.005 0.89 0.904 0.141 51 mat 6.798 1.005 0.89 0.904 0.141 51 mat 13 mat

x unknown 1 - :

Φ f z i el K i el 1 - (* K i el 1 - (Φ * 1 + / (i 1 z length sum :

δ 1.1636 :

Plot spec's 0 x ≤ (x 1.5 ≤ (& x f rejected if δ 200 δ 200 - 22 mat x unknown 31 sys

0 x ≤ x 1.5 ≤ & x f rejected if δ 200 δ 200 - 2 2 mat x unknown 3 1 sys

δ f 7445.470398

0.5 f 0.028336 -

Φ f 0 ≡ Φ 0.4 0.6 solve 0.481969

Φ f x unknown ≡ Φ 0.6 1 solve 0.895438

z k Φ.o Fleš Φ Φ# k z f Φ.o FindRoot : i 1 z length range x i el z i el k i el 1 - (Φ * 1 + / : y i el k i el x i el * : 21 line for Φ x y 31 mat 31 line :

x φ x Ψ 2 1 sys

Φ.o 0.5 :

T P Tc Pc α k vectorize #

rez z k Φ.o Fleš :

Φ rez 1 el :

x rez 2 el :

y rez 3 el :

Φ #

x #

y #

x sum #

y sum #