The Museum of HP Calculators

Fourier Series (updated?) 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 E.E. Pac 1. 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 "FRIER"
 02 LBL 15
 03 LBL a
 04 CLRG
 05 XROM 30,31
 06 CLRG
 07 RAD
 08 RTN
 09 LBL 10
 10 LBL A
 11 2
 12 *
 13 STO 21
 14 X<>Y
 15 STO 24
 16 RTN
 17 LBL 11
 18 LBL B
 19 STO 23
 20 1
 21 STO 00
 22 RTN
 23 LBL 12
 24 LBL C
 25 STO 22
 26 RCL 21
 27 STO 25
 28 LBL 01
 29 CLX
 30 RCL 00
 31 RCL 25
 32 RCL 21
 33 -
 34 -2
 35 /
 36 RCL 23
 37 +
 38 RCL 24
 39 /
 40 *
 41 2
 42 *
 43 PI
 44 *
 45 X<>Y
 46 P-R
 47 ST+ IND 25
 48 X<>Y
 49 XROM 30,23
 50 ST+ IND 25
 51 RCL 22
 52 ENTER
 53 XROM 30,23
 54 GTO 01
 55 1
 56 ST+ 00
 57 RCL 24
 58 RCL 00
 59 X<=Y?
 60 GTO 00
 61 9
 62 1/X
 63 RTN
 64 LBL 00
 65 STOP
 66 GTO 12
 67 LBL 18
 68 LBL d
 69 SF 01
 70 RCL 21
 71 STO 25
 72 GTO 02
 73 LBL 13
 74 LBL D
 75 CF 01
 76 RCL 21
 77 STO 25
 78 LBL 02
 79 RCL 25
 80 RCL 21
 81 -
 82 -2
 83 /
 84 RCL 23
 85 +
 86 XROM 30,26
 87 XROM 30,12
 88 XEQ 05
 89 XROM 30,15
 90 RCL IND 25
 91 XROM 30,23
 92 RCL IND 25
 93 FS? 01
 94 GTO 03
 95 2
 96 RCL 24
 97 /
 98 *
 99 X<>Y
100 LASTX
101 *
102 LBL 04
103 X<>Y
104 XEQ 05
105 RDN
106 XEQ 05
107 FS? 00
108 ADV
109 XROM 30,23
110 GTO 02
111 RTN
112 LBL 03
113 R-P
114 2
115 RCL 24
116 /
117 *
118 GTO 04
119 LBL 14
120 LBL E
121 CF 02
122 STO 00
123 RCL 21
124 STO 25
125 CLX
126 LBL 06
127 RCL 25
128 RCL 21
129 -
130 -2
131 /
132 RCL 23
133 +
134 X=0?
135 SF 02
136 2
137 *
138 PI
139 *
140 RCL 00
141 *
142 RCL 24
143 /
144 1
145 "FS?C 02"
146 XEQ 00
147 P-R
148 RCL IND 25
149 *
150 X<>Y
151 XROM 30,23
152 RCL IND 25
153 *
154 +
155 RCL 24
156 /
157 2
158 *
159 +
160 XROM 30,23
161 GTO 06
162 XEQ 05
163 FS? 00
164 ADV
165 RTN
166 LBL 00
167 CLX
168 .5
169 RTN
170 LBL 05
171 FS? 00
172 XROM 30,34
173 FS? 00
174 RTN
175 STOP
176 RTN
177 STOP
178 END

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