The Museum of HP Calculators

Gaussian Quadrature 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 Math Pac 1. 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 "GQAD67"
 02 LBL 10
 03 LBL A
 04 7P<>S
 05 .2386191861
 06 STO 00
 07 .4679139346
 08 STO 01
 09 .6612093865
 10 STO 02
 11 .360761573
 12 STO 03
 13 .9324695142
 14 STO 04
 15 .1713244924
 16 STO 05
 17 7P<>S
 18 CLX
 19 RTN
 20 LBL 11
 21 LBL B
 22 STO 21
 23 X<>Y
 24 STO 22
 25 -
 26 2
 27 /
 28 STO 20
 29 RCL 22
 30 RCL 21
 31 +
 32 2
 33 /
 34 STO 21
 35 0
 36 STO 00
 37 10
 38 STO 25
 39 XEQ 16
 40 XEQ 16
 41 XEQ 16
 42 RCL 00
 43 RCL 20
 44 *
 45 7PRTX
 46 RTN
 47 LBL 16
 48 LBL b
 49 RCL IND 25
 50 7ISZ
 51 STO 22
 52 CHS
 53 RCL 20
 54 *
 55 RCL 21
 56 +
 57 XEQ 14
 58 RCL IND 25
 59 *
 60 ST+ 00
 61 RCL 22
 62 RCL 20
 63 *
 64 RCL 21
 65 +
 66 XEQ 14
 67 RCL IND 25
 68 *
 69 ST+ 00
 70 7ISZ
 71 RTN
 72 LBL 12
 73 LBL C
 74 STO 20
 75 0
 76 STO 00
 77 10
 78 STO 25
 79 XEQ 17
 80 XEQ 17
 81 XEQ 17
 82 RCL 00
 83 2
 84 *
 85 7PRTX
 86 RTN
 87 LBL 17
 88 LBL c
 89 RCL IND 25
 90 7ISZ
 91 STO 22
 92 CHS
 93 XEQ 09
 94 XEQ 14
 95 XEQ 08
 96 RCL 22
 97 XEQ 09
 98 XEQ 14
 99 XEQ 08
100 7ISZ
101 RTN
102 LBL 09
103 1
104 +
105 STO 21
106 2
107 X<>Y
108 /
109 RCL 20
110 +
111 1
112 -
113 RTN
114 LBL 08
115 RCL IND 25
116 *
117 RCL 21
118 X^2
119 /
120 ST+ 00
121 RTN
122 LBL 14
123 LBL E
124 RTN
125 STOP
126 END

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