Directory of image this file is from
This file as a plain text file
CS()0WYS=C-PS/8 FOCAL, 1971?MB DCS DM=MM(1)-MM(2)?MB=DDS PC=((NN(1)-1)*SS(1)+(NN(2)-1)*SS(2))/(NN(1)+NN(2)-2)?MCKDES PD=(1/NN(1)+1/NN(2))?MC%DFS PE=FSQT(PC*PD);S TT=DM/PE;S DD=NN(1)+NN(2)-2?MC7DGI (SS(1)-SS(2))2.08,2.09,2.09?MDFDHS VR=SS(1)/SS(2);G 2.10?MUDDIS VR=SS(2)/SS(1)?MD]HAS SZ= Z+(X(I)-M)^2?MHCHBR?MD2NAI (X(I)-X(J))7.03,7.03,7.02?MEENBS TX=X(I);S X(I)=X(J);S X(J)=TX?MEWNCS J=J+1;I (J-N)7.01,7.01,7.04?ME)NDS I=I+1;I (I-K)7.05,7.05,7.06?ME3NES J=I+1;G 7.01?MS$NFR?MPCQ?MFKB$S K=N-1;S I=1;S J=I+1;D 7?MF[B%S M=S/N;S SZ=0;F I=1,N;D 4? IDB&S SZ=SZ/(N-1);S SD=FSQT(SZ);S DF=(N-1)?MGQB,I (G-2) 8.01,2.01,8.01?MF1B+S L=L+1;I (SZ) 1.44,1.45,1.44?MKFB-T "VARIANCE OF 0"!!G 8.01?MG$BE?MM]BFC THIS PROGRAM DETERMINES VARIOUS STATISTICS FROM A?MD!HJT "TOO MANY GROUPS";G 8.01?MQUDMI (SS(2)) 3.01 8.01,3.01?ME;B"T !!"NO MORE INPUT!"!!?ML;B^S X=FOUT(1);F K=0,25;S X=FOUT(24)?MI%B S SE=FSQT(SZ/N);S ST=M/SE;S R=X(N)-X(1);T !!"MAX":30,X(N)!!?MJIB(T "MIN":30,X(1)!!"RANGE":30,R,!!"MEAN":30,M,!!"VARIANCE":30,SZ,!!?MJ(B)T "STANDARD DEVIATION":30,SD,!!"STAND RD ERROR":30,SE,!!?MF?B*T "T-STATISTIC":30,ST,!!"DEGREES OF FREEDOM":30,DF,!!?MT9DAS MM(L)=M;S NN(L)=N;S SS(L)=SZ;S SX(L)=SE?MTZDKT "TWO GROUP T-STATISTIC":30,TT,!!"VARIANCE RATIO":30,VR,!!?MLQBBC MODIFIED BY JOHN HUISMAN?MV1BCC OMSI SOFTWARE DEVE OPMENT GROUP?MH"B!F C=1,N;A "SAMPLE:"X(C);S S=S+X(C)?MVOB T !!!%10.04;A "NUMBER OF GROUPS:"G;S L=0;I (G-2) 1.32,1.32,4.1?MM<BGC MAXIMUM OF TWO SAMPLE GROUPS. IT WILL ASK YOU FOR THE?MNZBHC NUMBER OF GROUPS, AND THEN FOR THE NUMBER OF SAMPLES?MN8BIC IN THE FIRST GROUP. WHEN THAT HAS BEEN ENTERED, IT?MOUBJC WILL HAVE YOU INPUT THAT MANY SAMPLES, AND FIGURE?MO5BKC CERTAIN STATISTICS FOR THAT GROUP. THEN IT WILL ASK FOR?MPVBLC THE NUMBER OF SAMPLES IN THE OTHER GROUP IF YOU ASKED FOR?MQKBMC TWO GROUPS, FIGURE ITS STATISTICS, AND THEN TWO-GROUP?MU:B[T "YOU DO NOT H VE ENOUGH FEATURES. "?MWUBNC STATISTICS.?MQ)FAS AC=FSQT(SS(1)/NN(1)+SS(2)/NN(2))?MQ7FBS X1=(MM(1)-MM(2))/AC?MRJFCS RS=(SS(1)/NN(1)+SS(2)/NN(2))^2?MU*FDS L=(SS(1)/NN(1))^2/(NN(1)-1)+(SS(2)/NN(2))^2/(NN(2)-1)?MSKFFS K=RS/L;T "T-STATISTIC":30,X1,!!"DEGREES F FREEDOM":30,K,!!?MDQFGT "UNPOOLED STANDARD ERROR":30,AC,!!;G 8.01?ME7PAA !!"AGAIN " ,AN;I (AN-0YES) 8.03,1.29,8.03?MK?BAC FROM STAT1 BY M.J. MC KEOWN (DECUS: FOCAL8-16)?MHSDLT "DEGREES OF FREEDOM":30,MF,!!;I (SS(1)) 2.13,4.1,2.13?MBTDBI (L-2)1.32,2.03?MK^DJT !"DIFFERENCE BETWEEN MEANS":30,DM,!!"POOLED STANDARD ERROR":30,PE,!!?MR)FE !!"WELCH STATISTICS:"!!!?MWRB\T "RESTART FOCAL WITH FEATURE 3."!;Q?ML B S S=0;T %1.00,"HOW MANY SAMPLES IN GROUP",L+1;A %10.04," ",N?MG!BDC LAST CHANGE: 9/9/71?MP5BZI (FITR(/5)-(/5)) 1.27,1.3?MH0B]?MWABOE?MBOL S STAT1?M?/5)-(/5)) 1.27,1.3?M;L R STAT1?M?M%10.04," ",N?TING LOCATION:3M;A3D^ "M&J3DGC2 CO7Q2JNI3C/H*I>I3SWE2 [I* 3MN7G2J*I+MCP3C?G+B>IN7O6JBI3USJ*M2INI3HSR"+&22/WD7LSE3E6 ",7N2J C+O3A2IGT3D& 2 CO Q6/WN3MWB3R> 3FN 7HKA3S& 7NF 2-WRG*M6IWP3S+H"M&J6ICUP N2/?M+VCE7TE3TJ 3U[F+ECRU7P6JFI3S7U*I>I3C7O7PSU7EF 2-WR7GB 3O S Note: Lines longer than 256 characters were wrapped