Directory of image this file is from
This file as a plain text file

()0K-BTC-PS/8 FOCAL, 1971?MB)BJC FISHERS F AND STUDENTS T P-VALUES?MB/BLG 2.01?MCLBOT "PROBABILITY OF F(M,N)=X",!!,"ENTER M,N, AND X",!?MCWBTA 
M
,
N
,
X
,!!?MC.B^S A=2*FITR(M/2)-M+2;S B=2*FITR(N/2)-N+2?MC<B(S W=X*M/N;S Z=1/(1+W)?MDKB2I (FITR(A-1))1.7,1.7,1.6?MDSB<D 11;G 1.8?MDXCFD 10?MD CPS Y=2*W/Z?MD	CUS J=B+2?MD1CZI (J-N)5.1,5.1?MEC\S Y=W*Z;S Z=2/Z;S B=N-2?MEGC^S I=A+2?MEQC
I (I-M)6.1,6.1?ME%C!T %6.04,!!,"P   ",1-P;D 3?ME;CQ?ME!C"A "MORE
(Y)",M;I (M-0Y)1.99,1.12,1.99?ME?DAC?MFXDET !!!"CALCULATION OF F OR T PROBABILITY",!!?MF%DJA "F(1) OR T(2)
",Q,?MF.DTI (Q-2)1.15?MGHD^T "PROBABILITY OF T(N)=X",!!"ENTER N AND X",!?MG[D(A 
N
,
X
,!!;S M=1;S X=X*X;G 1.3?MG	FJI (Q-2)3.2,3.3,3.3?MG9FTT %3,!,"  FOR F(",M,","N," )"?MHCFYT %6.04,X,!!;R?MHXF^T %3,!,"  FOR TWO TAILED T(",N," )"?MH%FT %6.04,FSQT(X),!!;R?MH2JJS D=(1+A/(J-2))*D*Z?MH>JTI (A-1)5.3,5.4,5.3?MINJ^S P=(P+W)*Z;S J=J+2;G 1.9?MI J(S
P=P+D*Y/(J-1);S J=J+2;G 1.9?MI<LJS J=I+B;S D=Y*D*J/(I-2);S P=P-Z*D/J;S I=I+2;G 1.95?MJJTJI (B-1)10.2,10.3,10.2?MJ\TTS P=FSQT(W*Z);S D=0.5*P*Z/W;R?MJ,T^S P=FSQT(W);S Y=0.31830989?MJ<T(S D=Y*Z/P;S P=2*Y*FATN(P)?MK
T2R?MKLVTS D=Z*Z;S P=W*Z;R?MV^S P=FSQT(Z);S D=0.5*Z*P;S P=1-P?MKVJI (B-1)11.2,11.3,11.2?M2?L S  FISTU?M?M(U(178)),4.35?MLIH^S 

Note: Lines longer than 256 characters were wrapped