C-PS/8 FOCAL, 1971
30.01 C PROBABILITY (2P) FROM T(	STUDENT	)-DISTRIBUTION
30.02 C PR0GRAM PT  /   DECUS FOCAL 8-128
30.05 A 
NU ,T 

30.10 S X=FATN(FABS(T)/FSQT(NU));S T=0;S Q=1;F I=1,2;S G(I)=1
30.20 I (NU-2)30.4;S T=FSIN(X)*FEXP((NU-2)*FLOG(FCOS(X)))/(NU-1)
30.30 I (NU-4)30.4;F K=2.2NU-2;D 31
30.40 F I=1,2;F K=I,2,NU-1;S G(I)=G(I)*K/2
30.45 I (FITR(NU/2)-NU/2)30.5,30.6,30.5
30.50 S P=1-.63662*(T+Q*X/2)*G(2)/G(1);G 30.7
30.60 S P=1-2*T*G(1)/G(2)
30.70 T "   2P=",%6.05,P,!
31.10 S Q=Q*(NU-K)/(NU-K+1)
31.20 S T=T+Q*FSIN(X)*FEXP((NU-K-2)*FLOG(FCOS(X)))/(NU-K-1)