f15bafe7-4ca5-424e-a932-df37ae48c83c 5 4 5 decimal

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

vx vy char size color plotG n vx length : plot vx 1 el vy 1 el char size color augment : i 2 n range plot plot vx i el vy i el char size color augment stack : for plot 41 line :

PT 0.01 6.97 0.05 32.88 0.1 45.81 0.25 64.96 0.5 81.32 0.75 91.76 1 99.61 2.5 127.41 5 151.84 10 179.98 25 223.96 50 263.94 100311150 342.16 200 365.75 220 373.71 162 mat :

X PT 1 col :

PK 0.01 6.97 0.05 0.0015 0.1 64.6502 0.25 0.0121 0.5 58.9206 0.75 0.0446 1 55.8065 2.5 0.1254 5 85.7831 10 0.4473 25 107.9361 50 0.8389 100 113.5761 150 2.8153 200 92.5928 220 3.0301 - 162 mat :

Y PT 2 col :

XY X Y . 10 black plotG :

Thiele system P.in PK 1 col : s.in PK 2 col : 21 line

Thiele Function s P p size T i size 2 range i size ≡ T s i 1 - el p P i 1 - el - s i el / (+ : T T : 21 line T s i 1 - el p P i 1 - el - T / (+ : T T : 21 line if for s P p size T T : 21 line :

Thiele Size size 10 :

p Tbar s.in P.in p size T :

Optimiz => numeric Tbar p 0.01 10 0.025 range : i 1 p rows range u i el p i el : ρ i el p i el Tbar eval : 21 line for u ρ augment 31 line :

1.333 Tbar 1.667 Tbar 2 Tbar 31 mat 108.152 114.8236 120.4606 31 mat

108.2 114.8 120.5 31 mat

Tbar rows 667

Water saturation temperature °C/p[bar]

1 99.6 + 20 green 1 5 mat Tbar XY 3 1 sys

p 0.01 10100 logpts :

low high N logpts linear-log populate step high low / log10 N / : i 1 N range x i el low 10 step i *^* : for x 41 line :

Optimiz => numeric Tlogpts i 1 p rows range u i el p i el : ρ i el p i el Tbar eval : 21 line for u ρ augment 21 line :

Water saturation temperature °C <= p[bar]

1 99.6 + 20 green 1 5 mat Tlogpts XY 3 1 sys