The Museum of HP Calculators


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

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