<p>CoolProp</p>

f409f1f3-3cbe-49f0-a41d-5954577da179 171 4 5 decimal

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

<p>CoolProp</p>

x rows x rows 0 try :

x cols x cols 0 try :

x IsMatrix x rows 0 ≠ :

A wrapper for CoolProp

x IsVector x rows 0 ≠ (x cols 1 ≠ (& :

x ¦FProp1 ¦Fluid strtoupper x strtoupper CoolProp_Props1 :

¦MM MOLARMASS ¦FProp1 :

¦ω ACENTRIC ¦FProp1 :

¦Pr PRANDTL ¦FProp1 :

q t f ¦if q t f if :

¦ϖ VISCOSITY ¦FProp1 :

¦T.f T_FREEZE ¦FProp1 :

¦δM DIPOLE_MOMENT ¦FProp1 :

¦T.c TCRIT ¦FProp1 :

¦P.c PCRIT ¦FProp1 :

¦q.min FRACTION_MIN ¦FProp1 :

¦T.t TTRIPLE ¦FProp1 :

¦P.t PTRIPLE ¦FProp :

¦q.max FRACTION_MAX ¦FProp1 :

¦F a b ¦ITrap h b a - ¦N / : h a ¦F b ¦F + 2 / a k h * + ¦F k 1 ¦N 1 - sum + (* 21 line :

¦H HELMHOLTZ ¦Bas concat ¦FProp1 :

¦G G ¦Bas concat ¦FProp1 :

¦ρ.c RHO ¦Bas_CRITICAL concat ¦FProp1 :

¦β ISOBARIC_EXPANSION_COEFFICIENT ¦FProp1 :

¦κ ISOTHERMAL_COMPRESSIBILITY ¦FProp1 :

¦F a b ¦ISimp h b a - ¦N / : h 6 / a ¦F b ¦F + (* h 3 / a k h * + ¦F k 1 ¦N 1 - sum * + 23 / h * a h 2 / - k h * + ¦F k 1 ¦N sum * + 21 line :

x y ¦Z Z x y ¦FProp :

x y ¦Q Q x y ¦FProp :

x y ¦T T x y ¦FProp :

x y ¦P P x y ¦FProp :

x y ¦h H ¦Bas concat x y ¦FProp :

x y ¦s S ¦Bas concat x y ¦FProp :

x y ¦ρ D ¦Bas concat x y ¦FProp :

x y ¦u U ¦Bas concat x y ¦FProp :

x y ¦v x y ¦ρ 1 -^:

x y ¦Cp CP ¦Bas concat x y ¦FProp :

x y ¦Cv CV ¦Bas concat x y ¦FProp :

X Y ¦FDiagram X Y 1 - ¦FDiagram :

X Y Z ¦FDiagram X X IsMatrix X X 11 mat ¦if : Y Y IsMatrix Y Y 11 mat ¦if : Z Z IsMatrix Z Z 11 mat ¦if : Z 1 el 1 - ≡ Zs X 1 el ¦FProp T ≡ P T ¦if : k 1 X rows range Z k el Zs X k el Y k el ¦FProp : 11 line Z k el : try for 21 line if Xs X 1 el ¦FProp : Ys Y 1 el ¦FProp : ν Z rows : 13 mat X.m Xs MIN concat ¦FProp1 : X.M Xs MAX concat ¦FProp1 : X.c Xs CRIT concat ¦FProp1 : Xi X.m X.c X.m X.c X.m - ¦N / + range : Ξi X.m X.M X.m X.M X.m - ¦N / + range : 12 mat L 1 el Xi Ys 0 ¦FDiagramV : L 2 el Xi Ys 1 ¦FDiagramV : L 3 el Y Y 1 el stack X X 1 el stack augment : k 1 ν range L 3 k + el Ξi Ys Z k el ¦FDiagramV : for L 4 ν + el k 1 ν range Π k 1 el ¦FSymb N ≡ k num2str ¦FSymb if : Π k 2 el 8 : Π k 3 el black : 13 mat for Y X Π augment 21 line 11 mat : L mat2sys.1 151 line :

X Y Z ¦FDiagramV i 1 X rows range L0 i el Y X i el Z ¦FProp : for L0 X augment 21 line 0012 mat try 11 line :

To avoid vectorize

p x y ¦FProp p strtoupper x ¦FProp x y ¦FProp y ¦Fluid strtoupper CoolProp_Props :

x ¦FProp x ¦FPropU x ¦FProp1 try :

x ¦FPropU ¦FPropM transpose x UnitsOf 1 findrows 12 el :

x ¦FProp x ¦FProp1 x IsString T x UnitsOf K ≡ P x UnitsOf Pa ≡ H x UnitsOf Gy ≡ S x UnitsOf Gy K 1 -^* ≡ D x UnitsOf kg m 3 -^* ≡ HMOLAR x UnitsOf J mol 1 -^* ≡ SMOLAR x UnitsOf J mol 1 -^* K 1 -^* ≡ DMOLAR x UnitsOf mol m 3 -^* ≡ VMOLAR x UnitsOf m 3^mol 1 -^* ≡ Q cases :

¦FPropM 1 K Pa Gy Gy K 1 -^* kg m 3 -^* J mol 1 -^* J mol 1 -^* K 1 -^* mol m 3 -^* m 3^mol 1 -^* Q T P H S D HMOLAR SMOLAR DMOLAR VMOLAR 210 mat :

Notice that given that UoM(u) = UoM(h) whe choose only h

¦Fluid Nitrogen :

¦Bas MASS :

¦N 30 :

¦FSymb o :

470 °C * 60 kPa * ¦s ¦FProp S

470 °C * 60 kPa * ¦s 7959.0387 Gy K / *

TCrit ¦FProp 126.192 K *

¦T.c 126.192 K *

¦Fluid Water :

¦Bas Molar :

¦N 30 :

¦FSymb o :

470 °C * 60 kPa * ¦s ¦FProp SMOLAR

470 °C * 60 kPa * ¦s 161.9267 J mol K * / *

TCrit ¦FProp 647.096 K *

¦T.c 647.096 K *

Rankine Cycle with Reheat

¦Fluid Water :

¦Bas MOLAR :

¦N 50 :

¦FSymb N :

ΔP.RH 12 kPa * :

T 5 el 470 °C * :

η.LPT 75 % * :

T 3 el 500 °C * :

η.HPT 75 % * :

P 6 el 60 kPa * :

P 4 el 3000 kPa * :

ΔP.B 20 kPa * :

ΔP.B 20 kPa * :

ΔP.C 1 kPa * :

P 2 el 8000 kPa * :

η.P 75 % * :

̇m 450 kmol hr / * :

Pump

P 1 el P 6 el ΔP.C - :

h 1 el P 1 el 0 ¦h :

w.P P 1 el 0 ¦v P 2 el P 1 el - η.P / * :

h 2 el h 1 el w.P + :

Boiler

P 3 el P 2 el ΔP.B - :

h 3 el T 3 el P 3 el ¦h :

s 3 el T 3 el P 3 el ¦s :

HP Turbine

s'.4 s 3 el :

h'.4 s'.4 P 4 el ¦h :

h 4 el h 3 el η.HPT h 3 el h'.4 - (* - :

Re Heater

P 5 el P 4 el :

h 5 el T 5 el P 5 el ¦h :

s 5 el T 5 el P 5 el ¦s :

LP Turbine

s'.6 s 5 el :

h.s6 s'.6 P 6 el ¦h :

h 6 el h 5 el η.LPT h 5 el h.s6 - (* - :

Complete the table

T 1 el P 1 el 0 ¦T :

T 2 el h 2 el P 5 el ¦T :

T 4 el h 4 el P 4 el ¦T :

T 6 el h 6 el P 6 el ¦T :

MBTU 106^BTU * :

s 1 el P 1 el 0 ¦s :

s 2 el h 2 el P 5 el ¦s :

s 4 el h 4 el P 4 el ¦s :

s 6 el h 6 el P 6 el ¦s :

T °C 85.4954 87.552 500 377.055 470 126.58 61 mat

P kPa 5980007980300030006061 mat

h kJ mol / 6.4512 6.6482 61.2471 57.2721 61.0686 49.2472 61 mat

s J mol K * / 20.5448 20.9403 121.2063 123.2954 128.7546 139.5161 61 mat

T h P ¦FDiagram T s ¦FDiagram

Balance

Q.B ̇m h 3 el h 2 el - (* :

Q.RH ̇m h 5 el h 4 el - (* :

Q.C ̇m h 6 el h 1 el - (* :

Q.in Q.B Q.RH + :

W.HPT ̇m h 3 el h 4 el - (* :

W.LPT ̇m h 5 el h 6 el - (* :

W.P ̇m w.P * :

W.net W.HPT W.LPT + W.P - :

Efficience

η W.net Q.in / :

Q.in MBTU hr / 24.9067

W.net MW 1.9499

η % 26.71

Q.RH kJ hr / 1.71 106^*

Q.B kJ hr / 2.46 107^*

W.LPT kJ hr / 5.32 106^*

Q.C kJ hr / 1.93 107^*

W.HPT kJ hr / 1.79 106^*

W.P kJ hr / 88648.31

̇m ¦MM * kg hr / 8106.87

Hysys results

̇m Cp T T 4 el T 5 el int *

̇m T ¦F T P 5 el ¦Cp : T 4 el T 5 el ¦ITrap * 4.7457 105^* W *

Q.RH 4.7457 105^* W *

̇m η.P / 1 ρ / P P 1 el P 2 el int *

̇m η.P / P ¦F P s 1 el ¦v : P 1 el P 2 el ¦ITrap * 24583.017 W *

̇m η.P / Cv T T 1 el T 2 el int *

̇m η.P / T ¦F T s 1 el ¦Cv : T 1 el T 2 el ¦ITrap * 23521.0777 W *

W.P 24624.5298 W *

ρ P s ¦ρ vectorize :

D LogScale

¦FSymb o :

P ρ ¦FDiagram T ρ ¦FDiagram

ρ mol m 3^/ 53747.2192 53860.0774 1325.4391 581.9735 499.0443 18.17 61 mat

Alvaro