The Museum of HP Calculators


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

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