The Museum of HP Calculators

Mann-Whitney Statistic for the HP-41C/CV/CX

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 "M-W"
 02 LBL A
 03 XEQ 03
 04 LBL 01
 05 1
 06 ST+ 03
 07 CLA
 08 ARCL 03
 09 ":F1^F2?"
 10 PROMPT
 11 STO 05
 12 X<>Y
 13 STO 04
 14 XEQ 02
 15 FIX 01
 16 "RANK = "
 17 ARCL X
 18 AVIEW
 19 PSE
 20 FIX 00
 21 RCL 04
 22 ST+ 01
 23 *
 24 ST+ 00
 25 RCL 05
 26 ST+ 02
 27 GTO 01
 28 LBL a
 29 RCL 05
 30 ST- 02
 31 RCL 04
 32 ST- 01
 33 XEQ 02
 34 RCL 04
 35 *
 36 ST- 00
 37 2
 38 ST- 03
 39 GTO 01
 40 LBL 02
 41 +
 42 STO Y
 43 1
 44 +
 45 2
 46 /
 47 RCL 01
 48 RCL 02
 49 +
 50 +
 51 FC? 55
 52 RTN
 53 ADV
 54 "F1 = "
 55 ARCL 04
 56 AVIEW
 57 "F2 = "
 58 ARCL 05
 59 AVIEW
 60 RTN
 61 LBL 03
 62 SF 12
 63 CF 21
 64 FS? 55
 65 SF 21
 66 "MANN-WHITNEY"
 67 AVIEW
 68 PSE
 69 CF 12
 70 0
 71 STO 00
 72 STO 01
 73 STO 02
 74 STO 03
 75 SF 27
 76 CF 29
 77 FIX 00
 78 RTN
 79 LBL e
 80 RCL 04
 81 RCL 05
 82 LBL d
 83 CLA
 84 ARCL Y
 85 "  "
 86 ARCL X
 87 " DELETED"
 88 AVIEW
 89 X<>Y
 90 ST- 06
 91 *
 92 ST- 00
 93 2
 94 ST- 03
 95 GTO 04
 96 LBL E
 97 XEQ 03
 98 STO 06
 99 "N1?"
100 PROMPT
101 STO 01
102 "N2?"
103 PROMPT
104 STO 02
105 FC? 55
106 GTO 04
107 ADV
108 "N1 = "
109 ARCL 01
110 AVIEW
111 "N2 = "
112 ARCL 02
113 AVIEW
114 ADV
115 LBL 04
116 1
117 ST+ 03
118 CLA
119 ARCL 03
120 ":F^R?"
121 PROMPT
122 STO 05
123 X<>Y
124 STO 04
125 FS? 55
126 XEQ 07
127 ST+ 06
128 *
129 ST+ 00
130 RCL 01
131 RCL 06
132 X<Y?
133 GTO 04
134 LBL C
135 SF 29
136 FIX 04
137 RCL 01
138 RCL 02
139 *
140 RCL 01
141 1
142 +
143 RCL 01
144 *
145 2
146 /
147 +
148 RCL 00
149 -
150 "U="
151 20
152 RCL 01
153 X>Y?
154 GTO 05
155 CLX
156 RCL 02
157 X>Y?
158 GTO 05
159 RCL Z
160 STO Y
161 CHS
162 RCL 01
163 RCL 02
164 *
165 +
166 X>Y?
167 X<>Y
168 GTO 06
169 LBL 07
170 FIX 01
171 "F="
172 ARCL 04
173 "   R="
174 ARCL 05
175 AVIEW
176 FIX 00
177 RTN
178 LBL 05
179 SF 21
180 FS? 55
181 ADV
182 RCL Z
183 ARCL X
184 AVIEW
185 RCL 01
186 RCL 02
187 *
188 2
189 /
190 -
191 RCL 01
192 RCL 02
193 *
194 RCL 01
195 RCL 02
196 +
197 1
198 +
199 *
200 12
201 /
202 SQRT
203 /
204 "Z="
205 LBL 06
206 ARCL X
207 AVIEW
208 END

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