HP33

PROGRAM 137
NAME COVARIANCE

01  E+
02  GTO 00
03  r
04  R/S
05  s
06  *
07  *
08  R/S
09  RCL 2
10  1
11  -
12  *
13  RCL 2
14  /
15  GTO 00

END

PROGRAM 138
NAME MOMENTS

01  ENTER
02  x^2
03  E+
04  GTO 00
05  RCL 5
06  RCL 2
07  /
08  STO 6
09  R/S
10  RCL 3
11  RCL 2
12  /
13  RCL 6
14  x^2
15  -
16  STO 1
17  R/S
18  RCL 7
19  RCL 2
20  /
21  RCL 3
22  RCL 6
23  *
24  RCL 2
25  /
26  3
27  *
28  -
29  RCL 6
30  ENTER
31  x^2
32  *
33  2
34  *
35  +
36  STO 0
37  R/S
38  RCL 0
39  RCL 1
40  1
41  .
42  5
43  Y^X
44  /
45  GTO 00

END

PROGRAM 139
NAME PART.CORREL

01  STO 2
02  x^2
03  1
04  -
05  X<>Y
06  STO 1
07  x^2
08  1
09  -
10  *
11  SQRT
12  X<>Y
13  STO 0
14  RCL 1
15  RCL 2
16  *
17  -
18  X<>Y
19  /
20  R/S
21  RCL 1
22  RCL 2
23  RCL 0
24  GTO 01

END

PROGRAM 140
NAME FACTORIAL

01  GSB 13
02  ENTER
03  1
04  STO 0
05  X<>Y
06  STO * 0
07  1
08  -
09  x!=y
10  GTO 06
11  RCL 0
12  GTO 00
13  6
14  9
15  X<>Y
16  x>y
17  GTO 28
18  2
19  x>y
20  GTO 28
21  X<>Y
22  ENTER
23  FRAC
24  x!=0
25  GTO 28
26  X<>Y
27  RTN
28  0
29  /

END

PROGRAM 141
NAME PERMUTATION

01  STO 1
02  X<>Y
03  STO 0
04  RCL 0
05  RCL 1
06  x=0
07  GTO 31
08  x=y
09  GTO 33
10  x>y
11  GTO 41
12  1
13  x=y
14  GTO 43
15  ROLL
16  -
17  1
18  +
19  *
20  LASTX
21  RCL 0
22  1
23  -
24  x=y
25  GTO 28
26  ROLL
27  GTO 17
28  ROLL
29  ROLL
30  GTO 00
31  1
32  GTO 00
33  1
34  -
35  x=0
36  GTO 39
37  STO * 0
38  GTO 33
39  RCL 0
40  GTO 00
41  0
42  /
43  ROLL
44  ROLL
45  GTO 00

END

PROGRAM 142
NAME COMBINATION

01  -
02  LASTX
03  x<=y
04  X<>Y
05  STO 0
06  1
07  STO 1
08  +
09  STO 2
10  ROLL
11  x=0
12  GTO 32
13  1
14  RCL 1
15  +
16  STO 1
17  X<>Y
18  x>y
19  GTO 24
20  x=y
21  GTO 24
22  RCL 2
23  GTO 00
24  X<>Y
25  RCL 0
26  +
27  RCL 1
28  /
29  STO * 2
30  ROLL
31  GTO 13
32  1
33  GTO 00

END

PROGRAM 143
NAME RANDOM NUMBER

01  PI
02  RCL 0
03  +
04  3
05  Y^X
06  FRAC
07  STO 0
08  GTO 00

END

PROGRAM 144
NAME NORMAL DISTR

01  ENTER
02  STO 6
03  *
04  2
05  /
06  CHS
07  e^x
08  PI
09  2
10  *
11  SQRT
12  /
13  STO 7
14  R/S
15  RCL 0
16  RCL 6
17  *
18  1
19  +
20  1/x
21  ENTER
22  ENTER
23  ENTER
24  RCL 5
25  *
26  RCL 4
27  +
28  *
29  RCL 3
30  +
31  *
32  RCL 2
33  +
34  *
35  RCL 1
36  +
37  *
38  RCL 7
39  *
40  GTO 00

END

PROGRAM 145
NAME INVERS NORMAL

01  ENTER
02  *
03  1/x
04  LN
05  SQRT
06  STO 6
07  ENTER
08  ENTER
09  ENTER
10  RCL 5
11  *
12  RCL 4
13  +
14  *
15  RCL 3
16  +
17  *
18  1
19  +
20  STO 7
21  CLX
22  RCL 2
23  *
24  RCL 1
25  +
26  *
27  RCL 0
28  +
29  RCL 7
30  /
31  -
32  GTO 00

END

PROGRAM 146
NAME EXP. CURVE

01  LN
02  X<>Y
03  E+
04  GTO 00
05  L.R.
06  e^x
07  R/S
08  r
09  x^2
10  R/S
11  ^y
12  e^x
13  R/S

END

PROGRAM 147
NAME LOG. CURVE

01  X<>Y
02  LN
03  E+
04  GTO 00
05  L.R.
06  R/S
07  r
08  x^2
09  R/S
10  LN
11  ^y
12  R/S

END

PROGRAM 148
NAME POW. CURVE

01  LN
02  X<>Y
03  LN
04  E+
05  GTO 00
06  L.R.
07  e^x
08  R/S
09  r
10  x^2
11  R/S
12  LN
13  ^y
14  e^x
15  R/S

END

PROGRAM 149
NAME CHI SQUARE

01  0
02  STO 0
03  STO 1
04  R/S
05  STO 2
06  -
07  x^2
08  2
09  /
10  STO + 1
11  RCL 0
12  1
13  +
14  STO 0
15  GTO 04
16  STO 2
17  -
18  x^2
19  RCL 2
20  /
21  STO - 1
22  RCL 0
23  1
24  -
25  STO 0
26  GTO 04

END

PROGRAM 150
NAME PAIRED T STAT

01  -
02  E+
03  GTO 00
04  s
05  RCL 2
06  SQRT
07  /
08  STO 0
09  /x
10  RCL 0
11  /
12  R/S
13  RCL 2
14  1
15  -
16  GTO 00
17  -
18  E-
19  GTO 00

END

PROGRAM 151
NAME T STATISTIC

01  STO 1
02  /x
03  STO 5
04  RCL 4
05  STO 6
06  0
07  STO 2
08  STO 3
09  STO 4
10  R/S
11  STO 0
12  /x
13  STO 3
14  RCL 6
15  RCL 1
16  RCL 5
17  GSB 45
18  RCL 4
19  RCL 2
20  RCL 3
21  GSB 45
22  +
23  RCL 1
24  RCL 2
25  +
26  2
27  -
28  /
29  SQRT
30  RCL 1
31  1/x
32  RCL 2
33  1/x
34  +
35  SQRT
36  *
37  RCL 5
38  RCL 3
39  -
40  RCL 0
41  -
42  X<>Y
43  /
44  R/S
45  x^2
46  *
47  -
48  RTN

END

PROGRAM 152
NAME ONE SAMPLE TEST

01  STO 1
02  /x
03  RCL 1
04  -
05  RCL 2
06  SQRT
07  *
08  STO 0
09  CLX
10  R/S
11  s
12  RCL 0
13  X<>Y
14  /
15  R/S
16  RCL 0
17  X<>Y
18  /
19  GTO 00

END
