The Museum of HP Calculators

Eigenvalues for 3rd-Order Systems for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the High-Level Math 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 "EV"
 02 CLRG
 03 10
 04 ENTER
 05 1
 06 LBL A
 07 STOP
 08 STO IND Y
 09 RDN
 10 1
 11 +
 12 X#Y?
 13 GTO A
 14 RCL 08
 15 RCL 06
 16 RCL 05
 17 RCL 09
 18 XEQ 09
 19 RCL 01
 20 *
 21 STO 10
 22 RCL 02
 23 RCL 09
 24 RCL 08
 25 RCL 03
 26 XEQ 09
 27 RCL 04
 28 *
 29 ST+ 10
 30 RCL 03
 31 RCL 05
 32 RCL 06
 33 RCL 02
 34 XEQ 09
 35 RCL 07
 36 *
 37 ST+ 10
 38 RCL 01
 39 RCL 05
 40 RCL 07
 41 RCL 03
 42 XEQ 09
 43 STO 11
 44 RCL 01
 45 RCL 09
 46 RCL 08
 47 RCL 06
 48 XEQ 09
 49 ST+ 11
 50 RCL 05
 51 RCL 09
 52 RCL 04
 53 RCL 02
 54 XEQ 09
 55 ST+ 11
 56 RCL 01
 57 RCL 05
 58 RCL 09
 59 +
 60 +
 61 CHS
 62 STO 12
 63 CF 00
 64 CF 01
 65 RCL 10
 66 X=0?
 67 GTO d
 68 RCL 11
 69 3
 70 *
 71 RCL 12
 72 X^2
 73 -
 74 9
 75 /
 76 STO 13
 77 RCL 11
 78 RCL 12
 79 *
 80 9
 81 *
 82 RCL 10
 83 27
 84 *
 85 -
 86 RCL 12
 87 3
 88 Y^X
 89 2
 90 *
 91 -
 92 54
 93 /
 94 STO 14
 95 X^2
 96 RCL 13
 97 3
 98 Y^X
 99 +
100 0
101 X<=Y?
102 GTO 03
103 RCL 14
104 RCL 13
105 3
106 Y^X
107 CHS
108 SQRT
109 /
110 ACOS
111 3
112 /
113 COS
114 RCL 13
115 CHS
116 SQRT
117 *
118 2
119 *
120 GTO 04
121 LBL 03
122 X<>Y
123 SQRT
124 STO 19
125 RCL 14
126 +
127 XEQ 05
128 RCL 14
129 RCL 19
130 -
131 XEQ 05
132 +
133 LBL 04
134 RCL 12
135 3
136 /
137 -
138 STO 19
139 STOP
140 RCL 12
141 RCL 19
142 +
143 STO 18
144 RCL 10
145 RCL 19
146 /
147 CHS
148 STO 17
149 LBL 07
150 RCL 18
151 X^2
152 RCL 17
153 4
154 *
155 -
156 CHS
157 X>0?
158 SF 01
159 X=0?
160 SF 00
161 ABS
162 SQRT
163 2
164 /
165 STO 20
166 RCL 18
167 CHS
168 2
169 /
170 STO 00
171 FS? 01
172 GTO 01
173 RCL 20
174 +
175 0
176 X<>Y
177 RCL 00
178 RCL 20
179 -
180 0
181 X<>Y
182 STOP
183 LBL 01
184 RCL 20
185 X<>Y
186 RCL 20
187 CHS
188 RCL 00
189 STOP
190 LBL 09
191 *
192 RDN
193 *
194 R^
195 -
196 RTN
197 LBL 05
198 X<0?
199 SF 02
200 ABS
201 1
202 ENTER
203 3
204 /
205 Y^X
206 FS?C 02
207 CHS
208 RTN
209 LBL d
210 STOP
211 RCL 11
212 STO 17
213 RCL 12
214 STO 18
215 GTO 07
216 END

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