C-FOCAL,1969

01.90 C    FOCAL ROUTINE TO COMPUTE : GEO. MEAN, HAR. MEAN
01.91 C    XBAR, SDEV, VARIANCE FROM FREQ. 
01.92 C    TABLE OUTPUT OF FLHSTO

02.10 S SX=0;S SF=0;S S2=0;S SL=0;S SR=0
02.20 A !!!"SUM OF FREQ",N
02.21 T !!"RET. TO 3.1 AFT. C/C",!
02.30 A !"X ",X," F ",RQ;S P=X*RQ
02.40 S SX=SX+P;S S2=S2+(X*P)
02.41 S SL=SL+(FLOG(X)*RQ);S SR=SR+((1/X)*RQ)
02.50 S SF=SF+RQ;G 2.3

03.10 I (N-SF)4.1,3.2,4.1
03.20 T !!!"XBAR",SX/SF;S P=SX*SX
03.21 T !!!"GEO. MEAN ",FEXP(SL/N)
03.22 T !!!"HAR. MEAN ",N/SR
03.30 S VR=(S2-(P/N))/N
03.40 T !!!"VARIANCE",VR
03.50 T !!!"ST. DEV.",FSQT(VR);G 2.1

04.10 T !!!"INPUT ERR",!!;G 2.1
*8x~