9000  REM  *****  GEOMEN  *****  STATISTICS PROGRAM  *****
9001  REM  *****  VERSION 1  *****  7/31/69  *****
9002  REM  STATISTICS OF GEOMETRIC DISTRIBUTION
9003  READ N
9004  LET N1=1/N
9005  LET M=1
9006  LET B=0
9007  FOR I=1 TO N
9008  READ A
9009  LET M=M*A^N1
9010  LET B=B+LOG(A)^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
9015  STOP 
9900  DATA 10
9901  DATA 2,4,2,4,2,4,2,4,2,4
9999  END 
