6f6479e7-5946-49a3-a287-e9da95fb44b5 8 4 5 decimal

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

PRIMER 3.8

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 :

A 0 0.018 00000 0.125 - 0.045 - 0.045 - 000 0.797 - 0.797 - 0000045 mat :

B 014988274274007153530003943940000045 mat :

z 0.35 0.1 0.1 0.1 0.35 51 mat :

P 101.33 :

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

Tr Ψ 0.0364 Tr φ * Tr log10 - :

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

T x γRK Nc x length : C A B T / + : nul Nc el 0 : C C nul transpose stack : C C C transpose + : j 1 Nc range s C j k el x k el * 1 x j el - (* (k 1 Nc sum : m 1 Nc 1 - range n m 1 + Nc range y j n ≡ (j m ≡ (| 0 C m n el x m el * x n el * if : s s y - : 21 line for for γ j el s exp : 31 line for γ 71 line :

x P T kγ γ T x γRK : k γ Tc Pc α T Po * P / vectorize : k 31 line :

T 350 :

Φ 0.5 :

Initial guess

k Tc Pc α T Po vectorize :

x z k 1 - (Φ * 1 + / vectorize :

y k x * vectorize :

Initial guess

z 0.35 0.1 0.1 0.1 0.35 51 mat

y 0.699 0.1981 0.1978 0.1978 0.6541 51 mat

x 0.001 0.0019 0.0022 0.0022 0.0459 51 mat

Φ x y f f z Φ y * 1 Φ - (x * + (- : g y x / vectorize x P T kγ - : h x sum (y sum (- : f g h stack 41 line :

Φ x y f 00000 681.7827 100.7947 89.2397 90.6594 14.1025 1.8935 - 111 mat

HOW TO SOLVE for Φ,x,y ???

Φ x y f 0 ≡

CLOSE ENOUGH TO THE SOLUTION

x 0.049 0.0973 0.0953 0.1047 0.6538 51 mat :

y 0.6044 0.1023 0.104 0.096 0.0933 51 mat :

Φ 0.542 :

Φ x y f 2.68 105 -^* - 1105 -^* - 1.54 105 -^* - 1.54 105 -^* 9106 -^* - 0.005 - 00 0.001 - 2.904 105 -^* - 0111 mat