8999 REM REVISED ANDY ROTH C.C.G. JUNE ,1972
9000 REM ***** GEOMEN ***** STATISTICS PROGRAM *****
9001 REM ***** VERSION 1 ***** 7/31/69 *****
9002 REM STATISTICS OF GEOMETRIC DISTRIBUTION
9003 INPUT"NUMBER OF POINTS";N
9004 LET N1=1/N
9005 LET M=1
9006 LET B=0
9007 PRINT"DATA";:MAT INPUT A
9008 FOR I=1 TO N
9009 M=M*A(I)^N1
9010 B=B+LOG(A(I))^2
9011 NEXT I
9012 LET S=EXP(SQR(B/(N-1)-(N/(N-1))*(LOG(M))^2))
9013 PRINT "GEOMETRIC MEAN IS"M
9014 PRINT "GEOMETRIC STANDARD DEVIATION IS"S
9999 END