The Museum of HP Calculators

Tangent Circle to 2 Straight Lines 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 "TANGENT"
 02 CF 01
 03 CF 02
 04 CF 03
 05 CF 04
 06 "TANGENT CIRC."
 07 AVIEW
 08 PSE
 09 "R?"
 10 PROMPT
 11 STO 08
 12 "WHERE<L,R,A,B>?"
 13 AON
 14 PROMPT
 15 AOFF
 16 ASTO Y
 17 "A"
 18 ASTO X
 19 X=Y?
 20 SF 02
 21 "B"
 22 ASTO X
 23 X=Y?
 24 SF 03
 25 "L"
 26 ASTO X
 27 X=Y?
 28 SF 04
 29 LBL 07
 30 "X?"
 31 PROMPT
 32 "Y?"
 33 PROMPT
 34 "THETA ?"
 35 PROMPT
 36 FS? 02
 37 GTO B
 38 FS? 03
 39 GTO C
 40 FS? 04
 41 GTO D
 42 X<0?
 43 GTO B
 44 GTO C
 45 LBL D
 46 X<0?
 47 GTO C
 48 LBL B
 49 RCL 08
 50 GTO 01
 51 LBL C
 52 RCL 08
 53 CHS
 54 LBL 01
 55 X<>Y
 56 FS?C 01
 57 GTO 02
 58 STO 03
 59 X<>Y
 60 P-R
 61 X<>Y
 62 RDN
 63 +
 64 STO 02
 65 RDN
 66 X<>Y
 67 -
 68 STO 01
 69 SF 01
 70 GTO 07
 71 LBL 02
 72 STO 06
 73 X<>Y
 74 P-R
 75 X<>Y
 76 RDN
 77 +
 78 STO 05
 79 RDN
 80 X<>Y
 81 -
 82 STO 04
 83 RCL 05
 84 RCL 02
 85 -
 86 RCL 03
 87 COS
 88 STO 07
 89 *
 90 RCL 06
 91 COS
 92 STO 08
 93 *
 94 RCL 01
 95 RCL 08
 96 *
 97 RCL 03
 98 SIN
 99 *
100 +
101 RCL 04
102 RCL 07
103 *
104 RCL 06
105 SIN
106 *
107 -
108 RCL 03
109 RCL 06
110 -
111 SIN
112 /
113 STO 07
114 "X"
115 XEQ 11
116 RCL 03
117 ABS
118 90
119 X>Y?
120 GTO 03
121 RCL 07
122 RCL 01
123 -
124 RCL 03
125 TAN
126 *
127 RCL 02
128 GTO 04
129 LBL 03
130 RCL 07
131 RCL 04
132 -
133 RCL 06
134 TAN
135 *
136 RCL 05
137 LBL 04
138 +
139 "Y"
140 LBL 11
141 "="
142 ARCL X
143 AVIEW
144 STOP
145 RTN
146 END

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