The Museum of HP Calculators

Points of Tangency with Circles and Arcs for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Geometry Solution Book. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "POINTS"
 02 "POINTS OF T."
 03 AVIEW
 04 STOP
 05 LBL A
 06 "a?"
 07 PROMPT
 08 "R?"
 09 PROMPT
 10 STO 01
 11 +
 12 STO 00
 13 X^2
 14 RCL 01
 15 X^2
 16 -
 17 SQRT
 18 STO 02
 19 RCL 01
 20 RCL 00
 21 /
 22 *
 23 LASTX
 24 RCL 01
 25 *
 26 "X"
 27 XEQ 11
 28 RDN
 29 "Y"
 30 XEQ 11
 31 RCL 02
 32 "b"
 33 XEQ 11
 34 /
 35 ASIN
 36 "THETA"
 37 XEQ 11
 38 LBL B
 39 "b?"
 40 PROMPT
 41 STO 00
 42 "c?"
 43 PROMPT
 44 STO 01
 45 R-P
 46 "R?"
 47 PROMPT
 48 STO 04
 49 -
 50 STO 02
 51 LASTX
 52 LASTX
 53 RCL 02
 54 +
 55 /
 56 ASIN
 57 STO 03
 58 90
 59 -
 60 CHS
 61 RCL 00
 62 RCL 01
 63 /
 64 ATAN
 65 STO 05
 66 -
 67 RCL 04
 68 P-R
 69 RCL 01
 70 -
 71 CHS
 72 X<>Y
 73 RCL 00
 74 +
 75 "X1"
 76 XEQ 11
 77 RDN
 78 "Y1"
 79 XEQ 11
 80 RCL 02
 81 "a"
 82 XEQ 11
 83 RCL 03
 84 "THETA"
 85 XEQ 11
 86 RCL 05
 87 "ALPHA"
 88 XEQ 11
 89 LBL C
 90 "a?"
 91 PROMPT
 92 STO 00
 93 "b?"
 94 PROMPT
 95 STO 01
 96 R-P
 97 STO 02
 98 "R2?"
 99 PROMPT
100 STO 04
101 "R1?"
102 PROMPT
103 STO 05
104 -
105 /
106 1/X
107 ASIN
108 STO 03
109 RCL 01
110 RCL 00
111 /
112 ATAN
113 STO 00
114 +
115 STO 06
116 RCL 05
117 P-R
118 X<>Y
119 "X1"
120 XEQ 11
121 X<>Y
122 "Y1"
123 XEQ 11
124 RCL 06
125 RCL 04
126 P-R
127 RCL 01
128 +
129 X<>Y
130 "X2"
131 XEQ 11
132 X<>Y
133 "Y2"
134 XEQ 11
135 RCL 02
136 "c"
137 XEQ 11
138 RCL 00
139 "THETA"
140 XEQ 11
141 RCL 03
142 "PHI"
143 LBL 11
144 "="
145 ARCL X
146 AVIEW
147 STOP
148 RTN
149 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall