Post Reply 
(49g) (50g) Density of water
06-05-2021, 06:35 PM (This post was last modified: 02-21-2022 01:11 PM by Gene.)
Post: #1
(49g) (50g) Density of water
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
Tongue.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
\>>
\>>


Attached File(s)
.doc  DENS.WATER.DOC (Size: 720 bytes / Downloads: 8)
Find all posts by this user
Quote this message in a reply
06-05-2021, 06:46 PM
Post: #2
RE: HP49-50G
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
Find all posts by this user
Quote this message in a reply
08-13-2021, 11:47 PM
Post: #3
RE: HP49-50G Density of water
Just in case here included
the new directory relative to
- water density
- and boiling temperature of water = f(altitude, air.Temp).

Regards,
Gil


Attached File(s)
.doc  Water.doc (Size: 1.38 KB / Downloads: 5)
Find all posts by this user
Quote this message in a reply
Post Reply 




User(s) browsing this thread: 1 Guest(s)