The Museum of HP Calculators


Incomplete Elliptic Integrals for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 High Level Math Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. 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 "INELLPT"
 02 LBL 10
 03 LBL A
 04 1
 05 ENTER
 06 GTO 12
 07 LBL 11
 08 LBL B
 09 1
 10 ENTER
 11 0
 12 GTO 12
 13 LBL 13
 14 LBL D
 15 0
 16 ENTER
 17 1
 18 GTO 12
 19 LBL 14
 20 LBL E
 21 X^2
 22 LASTX
 23 X<>Y
 24 1
 25 X<>Y
 26 LBL 12
 27 LBL C
 28 7P<>S
 29 STO 03
 30 X<>Y
 31 STO 02
 32 -
 33 STO 08
 34 1
 35 STO 00
 36 R^
 37 X=0?
 38 RTN
 39 ABS
 40 /
 41 STO 04
 42 STO 07
 43 R^
 44 ABS
 45 STO 01
 46 0
 47 X=Y?
 48 /
 49 STO 06
 50 STO 25
 51 RDN
 52 X^2
 53 X<>Y
 54 X^2
 55 +
 56 LASTX
 57 1
 58 +
 59 ST/ 07
 60 /
 61 SQRT
 62 STO 05
 63 LBL 00
 64 RCL 07
 65 RCL 00
 66 RCL 01
 67 *
 68 STO 09
 69 RCL 06
 70 *
 71 RCL 05
 72 /
 73 ST+ 07
 74 CLX
 75 LASTX
 76 /
 77 RCL 06
 78 +
 79 2
 80 /
 81 STO 06
 82 RCL 09
 83 RCL 05
 84 /
 85 ST+ 05
 86 RCL 09
 87 CHS
 88 RCL 04
 89 /
 90 LASTX
 91 +
 92 X#0?
 93 GTO 01
 94 RCL 09
 95 SQRT
 96  E-12
 97 *
 98 LBL 01
 99 STO 04
100 RCL 03
101 RCL 02
102 RCL 01
103 *
104 ST+ 03
105 CLX
106 RCL 00
107 /
108 RCL 02
109 +
110 2
111 /
112 STO 02
113 RCL 00
114 RCL 01
115 ST+ 00
116 -
117 ABS
118 RCL 00
119 /
120  E-5
121 X>Y?
122 GTO 02
123 RCL 25
124 2
125 *
126 STO 25
127 LASTX
128 RCL 09
129 SQRT
130 *
131 STO 01
132 RCL 04
133 X<0?
134 7ISZ
135 GTO 00
136 LBL 02
137 RCL 00
138 RCL 04
139 X<0?
140 7ISZ
141 /
142 ATAN
143 RCL 25
144 PI
145 *
146 +
147 RCL 02
148 *
149 RCL 00
150 /
151 RCL 06
152 RCL 08
153 *
154 -
155 7P<>S
156 RTN
157 STOP
158 END

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