HP HP-32S - Page 168

Program Listing:
Program Lines:
R91 LBL R
R92 INPUT X
R03 INPUT Y
R04 INPUT Z
Bytes and Checksum:
Q01 LBL Q
Q02 RCL Y
Q03 RCL X
Q04 yfx*8,r
Q05 xOy
Q06 STO T
Q07 R+
Q08 RCL Z
Q09 y,x+Q,r
Q10 STO R
Qll xOy
Q12 STO P
Bytes and Checksum:
P01 LBL P
P02
P03
P04
P05
P06
P07
P08
P09
P10
Pll
INPUT
INPUT
INPUT
RCL T
RCL P
RCL R
B,r*y,x
STO Z
R+
Q,r+y,x
P12 STO X
P13 xOy
Description:
Defines the beginning of the rectangular
input/display routine.
Displays or accepts input of X.
Displays or accepts input of Y.
Displays or accepts input of Z.
006.0, 80FB
Defines beginning of rectangular-to-polar
conversion process.
Calculates V(X2 + Y2) and arctan(Y/X).
Saves T = arctan(Y/X).
Gets V(X2 + Y2) back.
Calculates
V(X2 + Y2 -\- Z2) and P.
Saves R.
Saves P.
018.0, D6D5
Defines the beginning of the polar
input/display routine.
Displays or accepts input of R.
Displays or accepts input of T.
Displays or accepts input of P.
Calculates R cos(P) and Rsin(P).
Stores Z = R cos(P).
Calculates R sin(P) cos(T) and R sin(P)
sin(T).
Saves X = R sin(P) cos(T).
166 12: Mathematics Programs