The Museum of HP Calculators

# Mann-Whitney Statistic 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)

## 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
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
108 "N1 = "
109 ARCL 01
110 AVIEW
111 "N2 = "
112 ARCL 02
113 AVIEW
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
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
```