--------------------------------------------------------------------------- AutoBinomial: Does pretty much everything through short menus (this is a long freaking program for a little TI.) Before you do HISTOGRAM you have to run through DISTRIBUTION to load table of values. In place of the SYSTEM CLEAR procedure you can run from there the CLEAR program (listed previously). PGRM: AUTOBINO Lbl 7 ClrHome Disp "TRIALS" Input N Disp "PROBABILITY" Input S Lbl Z ClrHome Disp "1.DISTRIBUTION" Disp "2.DEVIATION" Disp "3.TOTAL PROB" Disp "4.HISTOGRAM" Disp "5.NEW BINOMIAL" Disp "6.SYSTEM CLEAR" Disp "7.EXIT PROGRAM" Input I If I=7 End If I=6 Goto S If I=5 Goto 7 If I=1 Goto 5 If I=4 Goto 9 If I=2 Goto 2 ClrHome Disp "START" Input G G -> Z Disp "STOP" Input H 0 -> T Lbl F (N nCr Z)(S^Z)(1-S)^(N-Z) -> Y Y+T -> T Z+1 -> Z If Z > H Goto G Goto F Lbl G Disp "TOTAL=" Disp T Pause Goto Z Lbl 5 1 -> D ClrDraw ClrStat 0 -> Z 1 -> Arow 2 -> Acol ClrHome Disp " SUC PCT" Lbl 1 (N nCr Z)(S^Z)(1-S)^(N-Z) -> Y If Y<.001 0 -> Y Z -> [A](1,1) Y -> [A](1,2) Disp [A] Pause [A](1,1) -> {x}(D) Int (([A](1,2))(1E9)) -> {y}(D) D+1 -> D Z+1 -> Z If Z > N Goto Z Goto 1 Lbl 2 SN(1-S) -> Q sqrtQ -> V SN -> M ClrHome Disp "STANDARD DEV" Disp V Disp "VARIANCE" Disp Q Disp "MEAN" Disp M Pause Goto Z Lbl S ClrHome ClrDraw ClrStat -10 -> Xmin 10 -> Xmax -10 -> Ymin 10 -> Ymax Disp "SYSTEM CLEARED" Pause Goto Z Lbl 9 N+1 -> D 0 -> Xmin D -> Xmax 0 -> Ymin ySort {y}(D) -> Ymax Hist Pause Goto Z