The Museum of HP Calculators

Fisher's Exact Test for 2*2 Contingency for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Test Stats 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 "FIS"
 02 FIX 02
 03 CF 01
 04 CF 29
 05 "FISHERS TEST"
 06 AVIEW
 07 PSE
 08 CLRG
 09 "a?"
 10 PROMPT
 11 STO 01
 12 STO 08
 13 "b?"
 14 PROMPT
 15 STO 02
 16 +
 17 STO 05
 18 "c?"
 19 PROMPT
 20 STO 03
 21 "d?"
 22 PROMPT
 23 STO 04
 24 +
 25 STO 06
 26 FACT
 27 RCL 05
 28 FACT
 29 *
 30 RCL 05
 31 RCL 06
 32 +
 33 FACT
 34 /
 35 RCL 01
 36 RCL 03
 37 +
 38 FACT
 39 *
 40 RCL 02
 41 RCL 04
 42 +
 43 FACT
 44 *
 45 STO 07
 46 0
 47 STO 05
 48 RDN
 49 LBL 00
 50 RCL 01
 51 FACT
 52 /
 53 RCL 02
 54 FACT
 55 /
 56 RCL 03
 57 FACT
 58 /
 59 RCL 04
 60 FACT
 61 /
 62 ST+ 05
 63 FS? 01
 64 RTN
 65 "P"
 66 XEQ 11
 67 RCL 05
 68 "S"
 69 XEQ 11
 70 STOP
 71 LBL A
 72 1
 73 ST- 01
 74 ST+ 02
 75 ST+ 03
 76 ST- 04
 77 ST- 08
 78 ST+ 00
 79 RCL 07
 80 GTO 00
 81 LBL E
 82 SF 01
 83 RCL 08
 84 0
 85 X=Y?
 86 XEQ 01
 87 XEQ A
 88 GTO E
 89 LBL 01
 90 CF 01
 91 RCL 05
 92 "S="
 93 ARCL X
 94 AVIEW
 95 STOP
 96 LBL 11
 97 FIX 00
 98 ARCL 00
 99 "="
100 FIX 02
101 ARCL X
102 AVIEW
103 STOP
104 RTN
105 END

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