Engineering Hobby

[Kevrumbo]

How to program an old HP 33s/35s RPN Calculator (HP Focal Language) to calculate breathing gas density for a dive.

Input prompts for Oxygen ("O"), Helium ("H") percentages only, and Depth ("D") in meters.

G0001 LBL G
G0002 INPUT O
G0003 100
G0004 ÷
G0005 1.331 [// Gas Density of O2 //]
G0006 X [// "X" denotes multiplication operation symbol and not a variable "x" //]
G0007 Σ+
G0008 INPUT H
G0009 100
G0010 ÷
G0011 0.1664 [// Gas Density of He //]
G0012 X
G0013 Σ+
G0014 RCL O
G0015 RCL H
G0016 +
G0017 100
G0018 x<>y
G0019 -
G0020 100
G0021 ÷
G0022 1.165 [// Gas Density of N2 //]
G0023 X
G0024 Σ+
G0025 INPUT D
G0026 10
G0027 ÷
G0028 1
G0029 +
G0030 Σx [// Recall Sum Total Gas Density at 1 ata//]
G0031 X [// "X" denotes multiplication operation symbol and not a variable "x" //]
G0032 ENTER
G0033 CLVARS
G0034 CLΣ
G0035 RTN

 

[Kevrumbo]

How to program an old HP 33s/35s RPN Calculator (HP Focal Language) to calculate a deeper Theoretical Ocean Depth (TOD) in Feet Salt Water (fsw) in order to use a sea level Dive Table at Altitude.

Input prompts for Altitude ("A") in feet, and Depth ("D") in feet fresh water.

A0001 LBL A
A0002 INPUT A
A0003 6.8756E-6
A0004 X [// "X" denotes multiplication operation symbol and not a variable "x" //]
A0005 1
A0007 x<>y
A0008 -
A0009 LN
A0010 5.255876
A0011 X [// "X" denotes multiplication operation symbol and not a variable "x" //]
A0012 e^x [// exponent "e to the x" //]
A0013 1/x
A0014 33
A0015 34
A0016 ÷
A0017 X
A0018 INPUT D
A0019 X
A0020 ENTER
A0021 CLVARS
A0022 RTN

How to program an old HP 33s/35s RPN Calculator (HP Focal Language) to calculate Feet Fresh Water (ffw) at Altitude, given a depth at sea level in Feet Salt Water (fsw).

Input prompts for Altitude ("A") in feet, and Depth ("D") in feet salt water.

B0001 LBL B
B0002 INPUT A
B0003 6.8756E-6
B0004 X [// "X" denotes multiplication operation symbol and not a variable "x" //]
B0005 1
B0006 x<>y
B0007 -
B0008 LN
B0009 5.255876
B0010 X [// "X" denotes multiplication operation symbol and not a variable "x" //]
B0011 e^x [// exponent "e to the x" //]
B0012 INPUT D
B0013 X
B0014 34
B0015 33
B0016 ÷
B0017 X
B0018 ENTER
B0019 CLVARS
B0020 RTN