Geodesic Tracking Method Programming for HP-32Sii Calculator
Starting Conditions:
Register A = Tracking Station #1's Elevation Angle in Degrees
Register B = Tracking Station #1's Azimuth Angle in Degrees
Register C = Tracking Station #2's Elevation Angle in Degrees
Register D = Tracking Station #2's Azimuth Angle in Degrees
Register E = Baseline length (distance between tracking stations #1 & #2)
After Execution:
(To execute: press R/S (1st time execution requires 2 presses);
execution time: 2 seconds)
Register A = Tracking Station #1's Elevation Angle in Degrees (unchanged)
Register B = Tracking Station #1's Azimuth Angle in Degrees (unchanged)
Register C = Tracking Station #2's Elevation Angle in Degrees (unchanged)
Register D = Tracking Station #2's Azimuth Angle in Degrees (unchanged)
Register E = Baseline length (unchanged)
Register F = Calculated height above base plane; this value will also be
displayed on the calculator (in the X Register)
Register G = Closure Error as a percentage of height; this value is also
in the Y Register (one above the X Register in the stack)
Registers H - T are used for various intermediary values
Assumptions:
The azimuth angles entered into registers "B" & "D" are expected to come
from theodolites which measure azimuth angles from 0 to 360. This will
result in one of the azimuth angles being an external angle while the other
one is an internal angle. For the calculations to be correct, both angles
must be of the same type (it doesn't matter which type) so one of the
azimuth angles is subtracted from 360 to convert it to the other type. If
the theodolites being used measure azimuth angles from 0 to +/-180, then
both angles are naturally internal angles. In this case, the program below
will need to be modified to disable the subtraction of Az2 from 360. To
this end, two versions of this program are included. Use whichever one is
right for your theodolites.
Key:
<-, (left arrow with a tail) orange function prefix
,-> (right arrow with a tail) blue function prefix
v (orange downward-pointing triangle) step forward in program
^ (orange upward-pointing triangle) step backward in program
<= (white bold left arrow) program delete line
Editing Hints:
To delete a program line:
1) Select the relevent program ("<-, GTO A")
2) Get into program mode ("<-, PGRM")
3) Scroll to the line to be deleted ("<-, v" or "<-, ^") or use
"<-, GTO. axx" where axx is the program line number.
4) Verify that you are indeed looking at the line you want to delete.
5) Press the "<=" key to delete the line. All the subsequent lines will
be moved up and renumbered to fill the gap
To remove a group of lines, go to the last line in the group and delete
back toward the beginning of the program.
To insert a program line:
1) Get into program mode (<-, PGRM)
2) Scroll to the line to be deleted ("<-, v" or "<-, ^") or use
"<-, GTO. axx" where axx is the program line number.
3) Enter the new instruction(s). They will be inserted after the line
currently displayed.
To change a program line:
1) Delete the old program line(s)
2) Add the new program lines(s)
Geodesic Tracking Method Programming for HP-32Sii Calculator
for 0 to 360 Degree Azimuth Measurements
Key:
<-, (left arrow with a tail) orange function prefix
,-> (right arrow with a tail) blue function prefix
Rv ("R" followed by a down arrow) Stack roll down
x<->y Swap X and Y registers
x^2 x squared
Sqrt(x) Square Root of x
/ Divide
X Multiply
Don't execute the "<-, CLEAR ALL {Y}" command if there is anything
within the calculator that you want to save in the calculator.
The "<-, GTO .." step may be skipped if you have done
a "<-, CLEAR ALL {Y}", otherwise it will be necessary.
Instruction Line# Instruction Line# Instruction Line#
<-, CLEAR ALL {Y} X A37 X A76
<-, PGRM Rcl O A38 Sto J A77
<-, GTO .. X A39 Rcl I A78
<-, LBL A A01 Rcl L A40 X A79
Rcl A A02 Rcl P A41 Rcl J A80
Cos A03 X A42 Rcl I A81
Sto K A04 x<->y A43 + A82
Rcl A A05 - A44 / A83
Sin A06 Sto S A45 Rcl L A84
Sto L A07 <-, X2 A46 Rcl P A85
Rcl B A08 1 A47 + A86
Cos A09 x<->y A48 X A87
Sto M A10 - A49 Sto F A88
Rcl B A11 Sto T A50 Rcl T A89
Sin A12 Rcl E A51 Sqrt(x) A90
Sto N A13 x<->y A52 X A91
Rcl C A14 / A53 Rcl E A92
Cos A15 Sto H A54 x<->y A93
Sto O A16 Rcl S A55 / A94
Rcl C A17 Rcl O A56 Rcl O A95
Sin A18 X A57 Rcl L A96
Sto P A19 Rcl Q A58 X A97
360 A20 X A59 Rcl R A98
Rcl D A21 Rcl K A60 X A99
- A22 Rcl M A61 Rcl K A.00
Enter A23 X A62 Rcl P A.01
Cos A24 + A63 X A.02
Sto Q A25 X A64 Rcl N A.03
Rv A26 Sto I A65 X A.04
Sin A27 Rcl H A66 - A.05
Sto R A28 Rcl S A67 ,-> PARTS ABS A.06
Rcl N A29 Rcl K A68 X A.07
X A30 X A69 100 A.08
Rcl M A31 Rcl M A70 X A.09
Rcl Q A32 X A71 Sto G A.10
X A33 Rcl O A72 Rcl F A.11
x<->y A34 Rcl Q A73 ,-> Rtn A.12
- A35 X A74 <-, PGRM
Rcl K A36 + A75
Test Data for 0 to 360 Degree Azimuth Measurements
Baseline length = 300 (Register E)
Elevation #1 Azimuth #1 Elevation #2 Azimuth #2 Altitude Closure
(Reg A) (Reg B) (Reg C) (Reg D) (Reg F) (Reg G)
45 270 40 50 380.0 6.3%
45 330 45 60 203.3 31.2%
75 240 55 25 596.3 6.2%
80 330 85 40 1337.8 3.2%
Geodesic Tracking Method Programming for HP-32Sii Calculator
for 0 to +/-180 Degree Azimuth Measurements
Key:
<-, (left arrow with a tail) orange function prefix
,-> (right arrow with a tail) blue function prefix
Rv ("R" followed by a down arrow) Stack roll down
x<->y Swap X and Y registers
x^2 x squared
Sqrt(x) Square Root of x
/ Divide
X Multiply
Don't execute the "<-, CLEAR ALL {Y}" command if there is anything
within the calculator that you want to save in the calculator.
The "<-, GTO .." step may be skipped if you have done
a "<-, CLEAR ALL {Y}", otherwise it will be necessary.
Instruction Line# Instruction Line# Instruction Line#
<-, CLEAR ALL {Y} X A36 Sto J A74
<-, PGRM Rcl L A37 Rcl I A75
<-, GTO .. Rcl P A38 X A76
<-, LBL A A01 X A39 Rcl J A77
Rcl A A02 x<->y A40 Rcl I A78
Cos A03 - A41 + A79
Sto K A04 Sto S A42 / A80
Rcl A A05 <-, X2 A43 Rcl L A81
Sin A06 1 A44 Rcl P A82
Sto L A07 x<->y A45 + A83
Rcl B A08 - A46 X A84
Cos A09 Sto T A47 Sto F A85
Sto M A10 Rcl E A48 Rcl T A86
Rcl B A11 x<->y A49 Sqrt(x) A87
Sin A12 / A50 X A88
Sto N A13 Sto H A51 Rcl E A89
Rcl C A14 Rcl S A52 x<->y A90
Cos A15 Rcl O A53 / A91
Sto O A16 X A54 Rcl O A92
Rcl C A17 Rcl Q A55 Rcl L A93
Sin A18 X A56 X A94
Sto P A19 Rcl K A57 Rcl R A95
Rcl D A20 Rcl M A58 X A96
Cos A21 X A59 Rcl K A97
Sto Q A22 + A60 Rcl P A98
Rcl D A23 X A61 X A99
Sin A24 Sto I A62 Rcl N A.00
Sto R A25 Rcl H A63 X A.01
Rcl N A26 Rcl S A64 - A.02
X A27 Rcl K A65 ,-> PARTS ABS A.03
Rcl M A28 X A66 X A.04
Rcl Q A29 Rcl M A67 100 A.05
X A30 X A68 X A.06
x<->y A31 Rcl O A69 Sto G A.07
- A32 Rcl Q A70 Rcl F A.08
Rcl K A33 X A71 ,-> Rtn A.09
X A34 + A72 <-, PGRM A.10
Rcl O A35 X A73
Test Data for 0 to +/-180 Degree Azimuth Measurements
Baseline length = 300 (Register E)
Elevation #1 Azimuth #1 Elevation #2 Azimuth #2 Altitude Closure
(Reg A) (Reg B) (Reg C) (Reg D) (Reg F) (Reg G)
45 90 40 50 380.0 6.3%
45 30 45 60 203.3 31.2%
75 120 55 25 596.3 6.2%
80 30 85 40 1337.8 3.2%