RandomAccess;

{Dimension Arrays}
Dim sum (31,10);
Dim p(31,10);
Dim inp(31,10);

{Set initial values for column and row headings}
colhead:=0.00;
rowhead:=0.0;

for i:=1 to 10 do
	begin  {begin loop for filling columns of the Z table}
	for j:=1 to 31 do
	      begin  {begin loop for filling rows of the Z table}
	      sum(j,i):=colhead + rowhead;  {Calculate the Z-score to use for the ijth cell}
	      p(j,i):=1-INORMAL (sum(j,i),0,1); {Calculates right tail areas (p-values) for the Standard Normal}
	      inp(j,i):=.5 - p(j,i); {Calculates area between 0 and z for the Standard Normal}
	      rowhead:=rowhead+.10;
	end;
	colhead:= colhead+0.01;
            rowhead:=0.0;
   end;



NewScrollsheet (31, 10, inp, 'Z table',
'0.0|0.1|0.2|0.3|0.4|0.5|0.6|0.7|0.8|0.9|1.0|1.1|1.2|1.3|1.4|1.5|1.6|1.7|1.8|1.9|2.0|2.1|2.2|2.3|2.4|2.5|2.6|2.7|2.8|2.9|3.0',
'0.00|0.01|0.02|0.03|0.04|0.05|0.06|0.07|0.08|0.09'); 

2300 East 14th Street, Tulsa, OK 74104
Phone: (918) 749-1119; Fax: (918) 749-2217
e-mail: info@statsoft.com

©Copyright StatSoft, Inc., 1984-2004.
StatSoft, StatSoft logo, STATISTICA, SEWSS, SEDAS, Data Miner, SEPATH and GTrees are trademarks of StatSoft, Inc.