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

[Gil]

HP49-50G :
Water boiling temperature
= f(altitude + temp.air )

Water density
(already published, but now included in
the directory WATER)

Water boiling temperature
= f(altitude + temp.air )

Here two programs are given:
- one when you have the altitude [in m] AND the air temperature at that altitude [in degrees C] as inputs ;
- another, using a different formulae, to be used only with altitude [in m] as single argument (without the air temperature).

Code 1
'MT—>BOIL.H²O'
\<< "2 Arg:
. alt [m]
. temp.air [\^oC at alt]
" DROP 273.15 + 100. 273.15 + 9.80665 28.9647 18.0153 2257000. \-> h Tair T0 g \Gmair \GmH\178O q12
\<< "At " h + "m/" + Tair 273.15 - + "\^oC" + 'T0*Tair*q12*\GmH\178O/(q12*\GmH\178O*Tair+\Gmair*g*h*T0)' \->NUM 273.15 - "\^oC H\178O boiling" \->TAG
\>>
\>>

Code 2
'M—>BOIL.H²O'
\<< "1 Arg only:
. alt [m]
" DROP DUP .3048 / \-> alt.m ft
\<< "At " alt.m + "m" + '29.921*(1.-.0000068753*ft)^5.2559' EVAL \-> HG
\<< '(49.161*LN(HG)+44.932-32.)/1.8' EVAL \->NUM "\^oC H\178O boiling" \->TAG
\>>
\>>
\>>

Code for density of water:
'—>DENS.H²O'
\<< "3 Arg:
\[] temp [\^oC]
\[] pressure [PA]
\[] 1/0
[1 for tap water]
[0 for pure water]

According to Tanaka
0 < t.C < 40 \^oC
" DROP ROT DTAG ROT DTAG ROT \-> t.C p.PA tap.wat
\<< t.C "t.C" \->TAG p.PA "p.PA" \->TAG -3.983035 301.797 522528.9 69.34881 tap.wat 1 == 999.972 999.97495 IFTE 5.074E-10 -3.26E-12 4.16E-15 \-> a1 a2 a3 a4 a5 c1 c2 c3 'a5*(1.-(t.C+a1)^2.*(t.C+a2)/(a3*(t.C+a4)))*(1.+(c1+c2*t.C+c3*t.C^2.)*(p.PA-101325.))' EVAL tap.wat 1 ==
IF
THEN "Tap H\178O"
ELSE "Pure H\178O"
END ", w/o air" + \->TAG DUP '-.004612+.000106*t.C' + EVAL tap.wat 1 == "Tap H\178O" "Pure H\178O" IFTE ", 100% air" + \->TAG
\>>
\>>

Example
Boiling temperature at Everest, 8848 m, and local temperature - 20 degrees Celsius : 68.842 degrees Celsius.

And using the program without giving the local/unknown temperature returns 68.048 degrees Celsius.

Just download the Directory-file Water
in your HP49-50G and use one of the 3 files given above.

Regards,
Gil