(49g) (50g) Density of water - Printable Version +- HP Forums (https://www.hpmuseum.org/forum) +-- Forum: HP Software Libraries (/forum-10.html) +--- Forum: General Software Library (/forum-13.html) +--- Thread: (49g) (50g) Density of water (/thread-17057.html) (49g) (50g) Density of water - Gil - 06-05-2021 06:35 PM 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 \>> \>> RE: HP49-50G - Gil - 06-05-2021 06:46 PM 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 RE: HP49-50G Density of water - Gil - 08-13-2021 11:47 PM Just in case here included the new directory relative to - water density - and boiling temperature of water = f(altitude, air.Temp). Regards, Gil