*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