image of READY prompt

Wang2200.org

Listing of file='25A' on disk='vmedia/glbr_22.wvd.zip'

# Sector 189, program filename = '25A'
0005 PRINT
0010 PRINT "NO. OF DATA ELEMENTS"
0015 INPUT N
0020 N1=1/N
0030 M=1
0035 PRINT "DATA ELEMENTS 1/LINE"
0040 FOR I=1 TO N
0050 INPUT A
0060 M=M*A^N1
0070 B=B+LOG(A)^2
0080 NEXT I
0090 S=EXP(SQR(B/(N-1)-(N/(N-1))*(LOG(M))^2))
0100 PRINT "GEOMETRIC MEAN IS:";M
0110 PRINT "GEOMETRIC STANDARD DEVIATION IS:";S
0999 END