Directory of image this file is from
This file as a plain text file
@E DIM X1(5,7),X2(5,7)@@@J RECORD Z(128)@@@O Q1=1\Q2=5@@@P C=0@@@T OPEN 8,"IGI2"@@@^ M8=0 @@@ FOR I=1TO5 @@@ FOR J=0 TO 7 @@@! X1(I,J)=0@@@" X2(I,J)=0@@@ NEXT J @@@$ NEXT I @@@( FOR I=1 TO 36@@@* GET 8,10,M8@@@- GET 8,10,M8@@@2 FOR J=1 TO Q2-Q1+1 @@@7 J1=2*(64-Q1-J+2)-1 @@@; IF Z(J1)=7 THEN 63 @@@< IF Z(J1)=1 THEN 63 @@@= IF Z(J1)=0 THEN 64 @@@> K1=Z(J1)-1\GO TO 70@@@? K1=7\GO TO 70@@A@ K1=0 @@AF IFZ(J1+1)=6 THEN 73@@AH K2=Z(J1+1)\GO TO 80@@AI K2=7 @@AK K1=Z(J1) @@AL K2=Z(J1+1) @@AP X1(J,K1)=X1(J,K1)+1@@AQ X2(J,K2)=X2(J,K2)+1 @@A$ NEXT J @@A. NEXT I @@A3 IF C<>0 THEN 170 @@A8 PRINT " TABULATION OF PAGE 1"@@A= PRINT\PRINT " Q";@@B@ PRINT TAB(6);"OMIT"; @@BB FOR I = 1 TO 6 @@BL PRINT TAB((I+1)*6);I;@@BV NEXT I @@B[ PRINT " ERROR MEAN S.D." @@B PRINT\PRINT@@B* FOR I=1 TO Q2-Q1+1 @@B, GO SUB 500 @@B/ PRINT Q1+I-1;"L";@@B4 FOR J=0 TO 7 @@B> PRINT TAB((J+1)*6);X2(I,J);@@B? NEXT J @@C@ PRINT TAB(54);M2;TAB(60);D2@@CA PRINT Q1+I-1;"R";@@CB FOR J=0 TO 7 @@CC PRINT TAB((J+1)*6);X1(I,J);@@CD NEXT J @@CR PRINT TAB(54);M1;TAB(60);D1@@CW PRINT@@C\ NEXT I @@C& C=1@@C' Q1=Q1+5@@C( Q2=Q2+5@@C) IF Q1>64 THEN 238@@C* IF Q2>64 THEN 236@@C+ GO TO 30 @@C, Q2=64@@C- GO TO 30 @@C. STOP @@G4 S1=0\N1=0\D1=0 @@G5 S2=0\N2=0\D2=0 @@G9 FOR L=1 TO 6 @@G> N1=N1+X1(I,L)@@HH S1=S1+L*X1(I,L)@@HR N2=N2+X2(I,L)@@H\ S2=S2+L*X2(I,L)@@H& NEXT L @@H0 IF N1=0 THEN 590 @@H: M1=S1/N1 @@ID GO TO 600@@IN M1=0 @@IX IF N2=0 THEN 630 @@I" M2=S2/N2 @@I, GO TO 640@@I6 M2=0 @@J@ FOR L=1 TO 6 @@JJ D1=D1+((L-M1)^2*X1(I,L)) @@JT D2=D2+((L-M2)^2*X2(I,L)) @@J^ NEXT L @@J( IF N1<=1 THEN 710@@J2 D1=SQR(D1/(N1-1))@@J< GO TO 720@@KF D1=0 @@KP IF N2<=1 THEN 750@@KZ D2=SQR(D2/(N2-1))@@K$ GO TO 751@@K. D2=0 @@K/ M1=INT((M1+.005)*100)/100 @@K0 M2=INT((M2+.005)*100)/100@@K1 D1=INT((D1+.0005)*1000)/1000 @@K2 D2=INT((D2+.0005)*1000)/1000 @@K8 RETURN @@L END@@ ?@@@@@@PL@@@@EMPV@@@@PT@@@@ @@@@@@@@@@@@@@@>%X=@@@@@@@@@SD!Z@@TBQX2>>@EH8P$@@@@@T@AX1>>B\@MFI@XB\@LCH$RB\@KTA@BB\@JQW4@@@N4FIM4P>P@@@OMG+!QP7 @@@P60@@@P @@@@P^@@@@PT@@@@P4 @@@PL@@@@@@@@@@*(*S@@P$@@@@