CALCULATION FOR CALIBRATION OF THE DO METER

INPUT BP
INPUT C


O001 LBL O
O002 SF 10
O003 DO CALC
O004 PSE
O005 BP mmHG
O006 PSE
O007 CF10
O008 INPUT B
O009 SF 10
O010 TEMP C
O011 PSE
O012 CF 10
O013 INPUT T
O014 (T + 273.15)
O015 STO K
O016 EXP (-139.34411+(157570.1/K)-(66423080/K^2)+(12438000000/K^3)-(862194900000/K^4))
O017 STO C
O018 EXP(11.8571-(3840.7/K)-(216961/K^2))
O019 STO P
O020 (0.000975-(1.426E-005*T)+(6.436E-008*T^2))
O021 STO D
O022 (C*(B/760)*(((1-P/(B/760))*(1-D*(B/760)))/((1-P)*(1-D))))
O023 STO N
O024 SF 10
O025 CORRECTED DO
O026 PSE
O027 CF 10
O028 VIEW N
O029 SF 10
O030 TEMP C
O031 PSE
O032 CF 10
O033 VIEW T
O034 SF 10
O035 BP MMHG
O036 PSE
O037 CF 10
O038 VIEW B
0039 RTN




K= T + 273.15
C = @EXP(-139.34411+(157570.1/K)-(66423080/K^2)+(12438000000/K^3)-(862194900000/K^4))
PWV = @EXP(11.8571-(3840.7/Keltmp)-(216961/Keltmp^2))
THETA = 0.000975-(1.426E-005*C temp)+(6.436E-008*C temp^2)
CP = +C2*($BP/760)*(((1-PWV/($BP/760))*(1-THETA*($BP/760)))/((1-PWV)*(1-THETA)))