The Museum of HP Calculators

# Non-Parametric Frequency Test for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Applied Stats 2 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)

## Program Listing

```LINE  KEYS
01 LBL "FREQ"
02 LBL A
03 CLRG
04 LBL 01
05 STOP
06 STO 20
07 LN
08 RCL 20
09 *
10 ST+ 00
11 STOP
12 LN
13 RCL 20
14 *
15 ST+ 01
17 GTO 01
18 LBL B
19 RCL 00
20 RCL 01
21 -
22 2
23 *
24 "G"
25 XEQ 11
26 STO 24
27 STOP
28 STO 22
29 XEQ 10
30 RTN
31 LBL C
32 CLRG
33 STOP
34 STO 30
35 STOP
36 STO 31
37 STOP
38 STO 32
39 STOP
40 STO 33
41 +
42 +
43 +
44 STO 34
45 RCL 30
46 RCL 31
47 +
48 STO 35
50 "A+B"
51 XEQ 11
52 RCL 32
53 RCL 33
54 +
55 STO 36
56 "C+D"
57 XEQ 11
58 RCL 30
59 RCL 32
60 +
61 STO 37
62 "A+C"
63 XEQ 11
64 RCL 31
65 RCL 33
66 +
67 STO 38
68 "B+D"
69 XEQ 11
70 RCL 34
71 "N"
72 XEQ 11
73 RTN
74 LBL D
75 XEQ 05
76 RCL 30
77 X=0?
78 GTO 12
79 RCL 31
80 X=0?
81 GTO 12
82 RCL 32
83 X=0?
84 GTO 12
85 RCL 33
86 X=0?
87 GTO 12
88 RCL 30
89 RCL 33
90 *
91 RCL 31
92 RCL 32
93 *
94 -
95 X<0?
96 GTO 14
97 1
98 ST+ 30
99 ST+ 33
100 ST- 31
101 ST- 32
102 GTO 15
103 LBL 14
104 1
105 ST- 30
106 ST- 33
107 ST+ 31
108 ST+ 32
109 LBL 15
110 XEQ 05
111 LBL 12
112 RCL 14
113 FIX 04
114 "P.UNI"
115 XEQ 11
116 2
117 *
118 "P.BIL"
119 XEQ 11
120 FIX 02
121 RTN
122 LBL 05
123 30
124 STO 25
125 RCL IND 25
126 FACT
127 STO 12
128 LBL 16
129 XROM 30,29
130 RCL IND 25
131 FACT
132 ST* 12
133 34
134 RCL 25
135 X#Y?
136 GTO 16
137 XROM 30,29
138 RCL IND 25
139 FACT
140 STO 13
141 LBL 13
142 XROM 30,29
143 RCL IND 25
144 FACT
145 ST* 13
146 38
147 RCL 25
148 X#Y?
149 GTO 13
150 RCL 13
151 RCL 12
152 /
153 ST+ 14
154 RTN
155 LBL F
156 RCL 34
157 RCL 30
158 RCL 33
159 *
160 RCL 31
161 RCL 32
162 *
163 -
164 ABS
165 RCL 34
166 2
167 /
168 -
169 X^2
170 *
171 RCL 35
172 /
173 RCL 36
174 /
175 RCL 37
176 /
177 RCL 38
178 /
180 "X2"
181 XEQ 11
182 STO 24
183 1
184 STO 22
185 XEQ 10
186 RTN
187 LBL 10
188 RCL 24
189 SQRT
190 STO 26
191 RCL 22
192 1
193 X=Y?
194 GTO 08
195 RCL 22
196 2
197 X=Y?
198 GTO 17
199 RCL 22
200 2
201 /
202 INT
203 LASTX
204 X#Y?
205 GTO 07
206 SF 01
207 RCL 22
208 2
209 -
210 2
211 /
212 STO 25
213 XEQ 02
214 0
215 STO 05
216 1
217 STO 06
218 LBL 03
219 RCL 24
220 *
221 RCL 05
222 2
223 +
224 STO 05
225 /
226 ST+ 06
227 XROM 30,23
228 GTO 03
229 FS? 01
230 GTO 06
231 RCL 07
232 2
233 *
234 RCL 02
235 2
236 *
237 RCL 06
238 *
239 +
240 FIX 03
241 "P"
242 XEQ 11
243 FIX 02
244 RTN
245 LBL 06
246 RCL 10
247 RCL 02
248 RCL 06
249 *
250 *
251 LBL 09
252 FIX 03
253 "P"
254 XEQ 11
255 FIX 02
256 CF 01
257 RTN
258 LBL 07
259 RCL 22
260 1
261 -
262 2
263 /
264 1
265 -
266 STO 25
267 XEQ 04
268 XEQ 02
269 1
270 STO 05
271 RCL 26
272 STO 06
273 GTO 03
274 LBL 02
275 PI
276 2
277 *
278 SQRT
279 STO 10
280 RCL 24
281 2
282 /
283 CHS
284 E^X
285 RCL 10
286 1/X
287 *
288 STO 02
289 RTN
290 LBL 04
291 1
292 RCL 26
293 .196854
294 *
295 +
296 RCL 26
297 X^2
298 .115194
299 *
300 +
301 RCL 26
302 3
303 Y^X
304 .000344
305 *
306 +
307 RCL 26
308 4
309 Y^X
310 .019527
311 *
312 +
313 -4
314 Y^X
315 2
316 /
317 CHS
318 1
319 +
320 1
321 X<>Y
322 -
323 STO 07
324 RTN
325 LBL 08
326 XEQ 04
327 2
328 *
329 GTO 09
330 LBL 17
331 XEQ 02
332 RCL 10
333 RCL 02
334 *
335 GTO 09
336 LBL 11
337 "="
338 ARCL X
339 AVIEW
340 RTN
341 LBL G
342 CLRG
343 STOP
344 STO 23
345 13
346 X<=Y?
347 GTO 19
348 STOP
349 STO 21
352 LBL 20
353 STOP
354 X#0?
355 SF 02
356 ST+ 13
357 ST+ IND 25
358 XROM 30,29
359 XEQ 21
360 GTO 20
361 LBL H
362 RCL 13
363 "~R"
364 XEQ 11
366 ST+ 14
367 XEQ 22
368 0
369 STO 13
370 STO 25
371 1
372 ST+ 15
373 RCL 21
374 RCL 15
375 X#Y?
376 GTO 20
377 LBL 23
378 RCL IND 25
379 "~C"
380 XEQ 11
381 XEQ 22
382 XROM 30,29
383 RCL 23
384 RCL 25
385 X#Y?
386 GTO 23
387 RCL 14
389 "N"
390 XEQ 11
392 LN
393 LASTX
394 *
395 RCL 16
396 +
397 RCL 17
398 -
399 2
400 *
401 "G"
402 XEQ 11
403 STO 24
404 RCL 23
405 1
406 -
407 RCL 21
408 1
409 -
410 *
411 STO 22
412 "D.L."
413 XEQ 11
414 XEQ 10
415 RTN
416 LBL 21
417 FS?C 02
418 LN
419 LASTX
420 *
421 ST+ 16
422 RTN
423 LBL 22
424 LN
425 LASTX
426 *
427 ST+ 17
428 RTN
429 LBL E
430 XROM 30,23
431 STOP
432 X#0?
433 SF 02
434 ST- 13
435 ST- IND 25
436 FS?C 02
437 LN
438 LASTX
439 *
440 ST- 16
441 GTO 20
442 END
```