; HP34C Statistics Applications

HP34

PROGRAM 88
NAME STAT 2 VAR

001  LBL B
002  STO 9
003  F? 0
004  CHS
005  STO + 0
006  ROLL
007  STO 8
008  ROLL
009  STO 7
010  ROLL UP
011  ROLL UP
012  ABS
013  *
014  *
015  F? 0
016  CHS
017  STO + 5
018  RCL 8
019  x^2
020  RCL 9
021  *
022  F? 0
023  CHS
024  STO + 4
025  RCL 8
026  RCL 9
027  *
028  F? 0
029  CHS
030  STO + 3
031  RCL 7
032  x^2
033  RCL 9
034  *
035  F? 0
036  CHS
037  STO + 2
038  RCL 7
039  RCL 9
040  *
041  F? 0
042  CHS
043  STO + 1
044  RCL 0
045  CF 0
046  R/S
047  LBL A
048  x<>y
049  E+
050  R/S
051  LBL 1
052  /x
053  R/S
054  x<>y
055  R/S
056  LBL 2
057  s
058  R/S
059  GTO 9
060  LBL 3
061  s    
062  x<>y 
063  R/S  
064  LBL 9
065  RCL 0
066  ENTER
067  x<>y 
068  1    
069  -    
070  :    
071  SQRT 
072  :    
073  R/S
074  LBL 4
075  s
076  /x
077  x<>y
078  ROLL
079  :
080  EEX
081  2
082  *
083  R/S
084  s
085  /x
086  x<>y
087  ROLL UP
088  x<>y
089  :
090  EEX
091  2
092  *
093  R/S
094  LBL 5
095  /x
096  x<>y
097  STO 6
098  RCL 5
099  RCL 1
100  RCL 6
101  *
102  -
103  RCL 0
104  1
105  -
106  :
107  STO .0
108  R/S
109  RCL 0
110  ENTER
111  x<>y
112  1
113  -
114  :
115  :
116  R/S
117  LBL 6
118  s
119  RCL .0
120  :
121  *
122  1/x
123  R/S
124  GTO 1
END

PROGRAM 89
NAME FACTORIAL

001  LBL A
002  FIX 9
003  STO 1
004  STO 3
005  6
006  9
007  x<>y
008  x<=y
009  GTO 9
010  x<>y
011  -
012  STO I
013  LastX
014  x!
015  LOG
016  STO 2
017  RCL 1
018  ENTER
019  LOG
020  STO + 2
021  LBL 7
022  DSE
023  GTO 8
024  RCL 2
025  FRAC
026  10^x
027  FIX 9
028  R/S
029  RCL 2
030  FIX 0
031  INT
032  RTN
033  LBL 8
034  RCL 3
035  1
036  -
037  STO 3
038  LOG
039  STO + 2
040  GTO 7
041  LBL 9
042  x!
043  RTN
044  LBL B
045  FIX 0
046  x<>y
047  STO 0
048  x<>y
049  x>y
050  GTO 2
051  x=y
052  GTO 9
053  ENTER
054  0
055  x=y
056  GTO 3
057  CLX
058  1
059  x=y
060  GTO 5
061  -
062  STO I
063  ROLL
064  STO 4
065  LBL 4
066  RCL 4
067  1
068  -
069  STO 4
070  *
071  DSE
072  GTO 4
073  RTN
074  LBL 2
075  0
076  :
077  LBL 3
078  1
079  RTN
080  LBL 1
081  FIX 0
082  x>y
083  GTO 2
084  -
085  LastX
086  x<=y
087  GSB 6
088  STO 4
089  1
090  STO I
091  +
092  STO 0
093  CLX
094  x=y
095  GTO 3
096  LBL 0
097  ROLL
098  1
099  RCL I
100  +
101  STO I
102  x>y
103  GTO 5
104  RCL 4
105  x<>y
106  +
107  LastX
108  :
109  RCL 0
110  *
111  STO 0
112  GTO 0
113  LBL 6
114  STO 0
115  x<>y
116  RTN
117  LBL 5
118  RCL 0
END

PROGRAM 90
NAME MOMENTS

001  LBL A
002  ENTER
003  1
004  GSB 0
005  R/S
006  LBL B
007  GSB 0
008  R/S
009  LBL 0
010  F? 0
011  CHS
012  STO + 1
013  x<>y
014  *
015  STO + 2
016  LastX
017  *
018  STO + 3
019  LastX
020  *
021  STO + 4
022  LastX
023  *
024  STO + 5
025  1
026  F? 0
027  CHS
028  STO + 1
029  RCL 0
030  CF 0
031  RTN
032  LBL 1
033  RCL 2
034  RCL 1
035  :
036  STO 6
037  R/S
038  RCL 3
039  RCL 1
040  :
041  RCL 6
042  x^2
043  STO 8
044  -
045  STO 7
046  R/S
047  RCL 4
048  RCL 3
049  RCL 6
050  *
051  3
052  *
053  -
054  RCL 1
055  :
056  RCL 6
057  RCL 8
058  *
059  2
060  *
061  +
062  STO 9
063  R/S
064  RCL 5
065  RCL 6
066  RCL 4
067  *
068  4
069  *
070  -
071  RCL 8
072  RCL 3
073  *
074  6
075  *
076  +
077  RCL 1
078  :
079  RCL 8
080  x^2
081  3
082  *
083  -
084  STO 6
085  R/S
086  LBL 2
087  RCL 9
088  RCL 7
089  1
090  .
091  5
092  y^x
093  :
094  R/S
095  RCL 6
096  RCL 7
097  x^2
098  :
099  R/S
END

PROGRAM 91
NAME NORMAL DIST.

001  LBL A
002  STO 0
003  LBL 0
004  ENTER
005  *
006  2
007  :
008  CHS
009  e^x
010  Pi
011  2
012  *
013  SQRT
014  :
015  RTN
016  LBL B
017  GSB A
018  RCL 0
019  CHS
020  RCL 0
021  SUM 0
022  1    
023  x<>y 
024  -    
025  2    
026  :    
027  R/S
END

PROGRAM 92
NAME INVERSE DIST

001  LBL 1
002  x<0
003  GTO 0
004  1
005  x<=y
006  GTO 0
007  ROLL
008  .
009  5
010  x<>y
011  x>y
012  GSB 8
013  ENTER
014  *
015  1/x
016  LN
017  SQRT
018  STO I
019  RCL 2
020  *
021  RCL 1
022  +
023  RCL I
024  *
025  RCL 0
026  +
027  RCL I
028  RCL 5
029  *
030  RCL 4
031  +
032  RCL I
033  *
034  RCL 3
035  +
036  RCL I
037  *
038  1
039  +
040  :
041  RCL I
042  x<>y
043  -
044  F? 1
045  CHS
046  CF 1
047  R/S
048  LBL 8
049  SF 1
050  1
051  -
052  CHS
END

PROGRAM 93
NAME CHI SQUARE

001  LBL B
002  GSB A
003  0
004  RCL 2
005  SUM 3
006  R/S
007  LBL A
008  STO 2
009  x<>y
010  1
011  STO 3
012  x<>y
013  2
014  :
015  STO 1
016  INT
017  LastX
018  x!=y
019  GTO 1
020  1
021  -
022  x!
023  STO 3
024  RCL 2
025  GTO 3
026  LBL 1
027  .
028  5
029  x=y
030  GTO 2
031  x<>y
032  1
033  -
034  STO * 3
035  GTO 1
036  LBL 2
037  PI
038  SQRT
039  STO * 3
040  RCL 2
041  LBL 3
042  ENTER
043  ENTER
044  RCL 1
045  1
046  -
047  y^x
048  x<>y
049  2
050  :
051  CHS
052  e^x
053  *
054  2
055  RCL 1
056  y^x
057  :
058  RCL 3
059  :
END

PROGRAM 94
NAME T DISTRIBUT.

001  LBL A
002  STO 1
003  x<>y
004  STO 0
005  x<>y
006  LBL 0
007  GSB 1
008  STO 4
009  RCL 0
010  GSB 3
011  STO 2
012  RCL 0
013  1
014  +
015  GSB 3
016  STO 3
017  RCL 2
018  :
019  PI
020  RCL 0
021  *
022  SQRT
023  :
024  RCL 4
025  *
026  RTN
027  LBL 1
028  x^2
029  RCL 0
030  :
031  1
032  +
033  RCL 0
034  1
035  +
036  2
037  :
038  CHS
039  y^x
040  RTN
041  LBL 3
042  1
043  STO 5
044  x<>y
045  2
046  :
047  INT
048  LastX
049  x!=y
050  GTO 4
051  1
052  -
053  x!
054  STO 5
055  RTN
056  LBL 4
057  .
058  5
059  x=y
060  GTO 2
061  x<>y
062  1
063  -
064  STO * 5
065  GTO 4
066  LBL 2
067  PI
068  SQRT
069  STO * 5
070  RCL 5
071  RTN
072  LBL B
073  GSB A
074  CF 0
075  RCL 1
076  x=0
077  GTO 5
078  x<0
079  SF 0
080  CHS
081  RCL 1
082  SUM 0
083  F? 0
084  CHS
085  ENTER
086  ENTER
087  ENTER
088  1
089  x<>y
090  -
091  2
092  :
093  F? 0
094  R/S
095  +
096  R/S
097  LBL 5
098  .
099  5
100  R/S
END

PROGRAM 95
NAME F DISTRIBUT.

001  LBL A
002  STO 2
003  ROLL
004  STO 1
005  x<>y
006  STO 0
007  GSB 3
008  STO 3
009  RCL 1
010  GSB 3
011  STO 4
012  RCL 0
013  RCL 1
014  +
015  GSB 3
016  STO 5
017  RCL 2
018  LBL 0
019  ENTER
020  ENTER
021  ENTER
022  RCL 0
023  RCL 1
024  :
025  STO 7
026  *
027  1
028  +
029  RCL 0
030  RCL 1
031  +
032  2
033  :
034  y^x
035  x<>y
036  RCL 0
037  2
038  :
039  1
040  -
041  y^x
042  x<>y
043  :
044  RCL 7
045  RCL 0
046  2
047  :
048  y^x
049  *
050  RCL 5
051  *
052  RCL 3
053  :
054  RCL 4
055  :
056  RTN
057  LBL 3
058  1
059  STO 6
060  x<>y
061  2
062  :
063  INT
064  LastX
065  x!=y
066  GTO 1
067  1
068  -
069  x!
070  STO 6
071  RTN
072  LBL 1
073  .
074  5
075  x=y
076  GTO 2
077  x<>y
078  1
079  -
080  STO * 6
081  GTO 1
082  LBL 2
083  PI
084  SQRT
085  STO * 6
086  RCL 6
087  RTN
088  LBL B
089  GSB A
090  0
091  RCL 2
092  SUM 0
093  1
094  -
095  CHS
096  R/S
END

PROGRAM 96
NAME T STATISTICS

001  LBL A
002  -
003  E+
004  R/S
005  LBL 1
006  /x
007  STO 6
008  R/S
009  s
010  R/S
011  RCL 6
012  RCL 0
013  SQRT
014  *
015  x<>y
016  :
017  R/S
018  RCL 0
019  1
020  -
021  R/S
022  GTO 1
023  LBL B
024  E+
025  R/S
026  RCL 1
027  STO .1
028  RCL 2
029  STO .2
030  RCL 0
031  STO .0
032  0
033  CLR E
034  R/S
035  LBL 2
036  STO 6
037  RCL .1
038  RCL .2
039  STO 4
040  x<>y
041  STO 3
042  /x
043  STO 8
044  x<>y
045  RCL 0
046  *
047  RCL .0
048  :
049  STO 7
050  x<>y
051  -
052  RCL 6
053  -
054  RCL 4
055  RCL 3
056  RCL 7
057  *
058  -
059  RCL 2
060  +
061  RCL 1
062  RCL 8
063  *
064  -
065  RCL 0
066  RCL .0
067  +
068  2
069  -
070  STO 9
071  :
072  SQRT
073  RCL 0
074  1/x
075  RCL .0
076  1/x
077  +
078  SQRT
079  *
080  :
081  R/S
082  RCL 9
083  R/S
084  GTO 2
END

PROGRAM 97
NAME CHI SQU EVAL

001  LBL A
002  ENTER
003  ROLL
004  -
005  x^2
006  ROLL UP
007  :
008  F? 0
009  CHS
010  STO + 1
011  1
012  f? 0
013  CHS
014  STO + 0
015  RCL 0
016  CF 0
017  R/S
018  LBL 1
019  RCL 1
020  R/S
021  GTO 1
022  LBL B
023  E+
024  R/S
025  LBL 2
026  RCL 0
027  RCL 0
028  RCL 2
029  *
030  RCL 1
031  :
032  RCL 1
033  -
034  R/S
035  RCL 1
036  RCL 0
037  :
038  R/S
039  GTO 2
END

PROGRAM 98
NAME CONTINGENCY

001  LBL 0
002  CLREG
003  CF 0
004  CF 1
005  0
006  R/S
007  LBL B
008  SF 0
009  LBL A
010  F? 1
011  0
012  GSB 9
013  R/S
014  RCL 7
015  R/S
016  LBL 1
017  F? 1
018  1
019  F? 1
020  STO 3
021  RCL 4
022  RCL 1
023  :
024  STO 9
025  RCL 5
026  RCL 2
027  :
028  STO + 9
029  RCL 6
030  RCL 3
031  :
032  STO + 9
033  RCL 9
034  1
035  -
036  RCL 0
037  *
038  R/S
039  ENTER
040  ENTER
041  RCL 0
042  +
043  :
044  SQRT
045  R/S
046  LBL 2
047  RCL 1
048  R/S
049  RCL 2
050  R/S
051  F? 1
052  GTO 3
053  RCL 3
054  R/S
055  LBL 3
056  RCL 0
057  R/S
058  GTO 1
059  LBL 9
060  F? 0
061  CHS
062  STO + 3
063  STO + 0
064  STO 7
065  x^2
066  STO 8
067  ROLL
068  F? 0
069  CHS
070  STO + 2
071  STO + 0
072  STO + 7
073  x^2
074  STO 9
075  ROLL
076  F? 0
077  CHS
078  STO + 1 
079  STO + 0
080  STO + 7
081  x^2
082  RCL 7
083  :
084  STO + 4
085  RCL 9
086  RCL 7
087  :
088  STO + 5
089  RCL 8
090  RCL 7
091  :
092  STO + 6
093  RCL I
094  1
095  F? 0
096  CHS
097  +
098  STO I
099  CF 0
END
