(49g) (50g) Density of water

[Gil]

HP49-50G
Density of water calculation.
According to Tanaka's work.

For boiling temperature of water = f(altitude, air.temp),
see more recent directory
water.doc posted on August 20th 2021.

3 Arguments to be given:
- temperature in Celsius
- pressure in Pascals
- 1 or 0
(1 for tap water;
0 for pure water).

Example
10 (degrees Celsius)
101325 (normal pressure)
0 (for pure water, not tap water)

Result
:t.C: 10
.PA: 101325
:Pure H²O, w/o air:
999.702701629 :
Pure H²O, 100% air:
999.699149629

Code
\<< "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
\>>
\>>

[Gil]

Sorry,
Forget this untitled thread — that should be better, if possible, deleted.

Refer instead to
the next thread called
HP49-50G Density of water.

Thanks for your comprehension.

Regards,
Gil

[Gil]

Just in case here included
the new directory relative to
- water density
- and boiling temperature of water = f(altitude, air.Temp).

Regards,
Gil