(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 .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 \>> \>> |
|||
« Next Oldest | Next Newest »
|
Messages In This Thread |
(49g) (50g) Density of water - Gil - 06-05-2021 06:35 PM
RE: HP49-50G - Gil - 06-05-2021, 06:46 PM
RE: HP49-50G Density of water - Gil - 08-13-2021, 11:47 PM
|
User(s) browsing this thread: 1 Guest(s)