(49g) (50g) Water boiling temperature = f(altitude/pressure + temp); Water density

[Gil]

HP49-50G

New version 5

As always, 3 programs
- MTBoil.H²O P
- Boil.H²O
- DENS.H²O

regarding 2 distinct topics on water:
- water boiling temperature = f(altitude + temp);
- water density=w[/align](pressure, temperature, water pureness[not from tap / from tap] ).

New calculation here:
Added the classical Clausius-Clapeyron equation relative to boiling temperature.

Example result:

P [Pa]: 150000
"
CLAUSIUS-CLAPEYRON
" :Boil.°C H²O: 111.518
"
GOFF.GRATCH 1984
" :Boil.°C H²O: 111.374
"
ARDEN
 
BUCK 1996
" :Boil.°C H²O: 111.420

Conclusion

GOFF.GRATCH 1984
& "
& "
ARDEN
 
BUCK 1996
"
give very similar results, meanwhile Clausius-Clapeyron output differ somewhat more from Goff-Gratch & "
ARDEN
 
BUCK"

New code for :

P—>Boil.H2O

\<< "1 Arg:
. 
Pressure
 in [Pa]

" DROP STD "P [Pa]" \->TAG DUP 'P' STO "
CLAUSIUS-CLAPEYRON
\->" 8.31446261815 40650 \-> R \GDHvap
\<< 'LN(P/101325)=-(\GDHvap/R*(1/(T1+273.15)-1/(100+273.15)))' 'T1' 100 ROOT
\>> "Boil.\^oC H\178O" \->TAG "
GOFF.GRATCH 1984
\->" 'LOG(P/100)=-(7.90298*(373.15/(T2+273.15)-1))+5.02808*LOG(373.15/(T2+273.15))-.00000013816*(10^(11.344*(1-(T2+273.15)/373.15))-1)+.0081328*(10^(-3.49149*(373.15/(T2+273.15)-1))-1)+LOG(1013.246)' 'T2' 100 ROOT "Boil.\^oC H\178O" \->TAG "
ARDEN
 
BUCK 1996
\->" 'P=611.21*e^((18.678-T3/234.5)*(T3/(257.14+T3)))' 'T3' 100 ROOT "Boil.\^oC H\178O" \->TAG 3 FIX
\>>

Regards,
Gil