This TI-83 program emulates a set of statistical tables

for standard distributions and p-values.

----begin documentation----

This program computes the values of the normal, 

Student's t, chi-square, and F distributions 

corresponding to commonly tabulated significance 

levels (.1, .05, .02, .01, .005, .002, .001).



The user first chooses a display mode: 3 or 4 fixed 

decimal places, or floating point. He or she then 

selects a distribution. For the t and chi-square 

distributions, the degrees of freedom must be entered. 

The F distribution requires two degrees of freedom. 

When the table is calculated and displayed, the user 

may move around the table using the arrow keys to view 

any value in 12-digit floating-point format. The last 

few digits are probably not correct, but the first few 

are more accurate than most existing tables. When 

finished viewing the table, the user presses ENTER to 

select another distribution or exit the program.



When QUIT is selected, all variables are deleted except

the table variables and the list DF. The degrees of 

freedom may be seen by displaying list DF, and the 

table may be reviewed by pressing the TABLE key.



For the normal distribution, the program uses the 

built-in invNorm( function. For all others, it uses 

the Solve( function, which, like the interactive 

SOLVER, takes some time to home in on an accurate 

value. Since values must be calculated for seven 

significance levels, it takes quite a while for the 

table to appear. However, the program, unlike a set of 

tables, can compute accurate values for any number of 

degrees of freedom without interpolation.



The tabulated values for the chi-square and F 

distributions correspond to a single tail. For the 

normal and t distributions, which are symmetrical, the 

values are for both tails, so that the single-tail 

value for P=.01 will be found in the table where X=.02.

----begin ASCII----

\start83\

\comment=Computes normal, t, chi-square, F tables

\name=STATTBL

\file=STATTBL.TXT

Func

FnOff 

FnOn 0

ClrTable

IndpntAsk

DependAuto

{.1,.05,.02,.01,.005,.002,.001}\->\TblInput

"NORMAL"\->\Str1

"STUDENT'S t"\->\Str2

"\chi\\^2\(CHI-SQUARE)"\->\Str3

"FISHER'S \F\"\->\Str4

Menu("DISPLAY MODE","FIX 3",3,"FIX 4",4,"FLOAT",0)

Lbl 3

Fix 3

Goto M

Lbl 4

Fix 4

Goto M

Lbl 0

Float

Lbl M

ClrHome

Menu("STAT TABLE",Str1,N,Str2,T,Str3,C,Str4,F,"QUIT",Q)

Lbl N

Disp Str1

"\(-)\invNorm(.5X)"\->\Y\0\

Goto Z

Lbl T

Disp Str2

Disp ""

1\->\dim(\L\DF)

"solve(2tcdf(Z,1\EE\99,\L\DF(1))-X,Z,2)"\->\Y\0\

Input "df: ",N

N\->\\L\DF(1)

Goto Z

Lbl C

Disp Str3

Disp ""

1\->\dim(\L\DF)

"solve(\chi\\^2\cdf(Z,1\EE\99,\L\DF(1))-X,Z,\L\DF(1))"\->\Y\0\

Input "df: ",N

N\->\\L\DF(1)

Goto Z

Lbl F

Disp Str4

Disp ""

2\->\dim(\L\DF)

"solve(\F\cdf(Z,1\EE\99,\L\DF(1),\L\DF(2))-X,Z,2)"\->\Y\0\

Input "df(1): ",N

N\->\\L\DF(1)

Input "df(2): ",N

N\->\\L\DF(2)

Lbl Z

Disp ""

Disp ""

Disp "TABULATING..."

DispTable

Goto M

Lbl Q

DelVar N

DelVar Str1

DelVar Str2

DelVar Str3

DelVar Str4

ClrHome

\stop83\