Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0020/geomen.sta
There are 2 other files named geomen.sta in the archive. Click here to see a list.
100' NAME--GEOMEN
110'
120' DESCRIPTION--COMPUTES THE GEOMETRIC MEAN AND THE GEOMETRIC
130' STANDARD DEVIATION FOR A GEOMETRICALLY NORMAL SET OF DATA.
140'
150' SOURCE--UNKNOWN
160'
170' INSTRUCTIONS--ENTER THE NUMBER OF DATA IN LINE 900.
180' IN LINE 901-929 ENTER THE DATA THEMSELVES.
190'
200'
210' * * * * * * MAIN PROGRAM * * * * * * * * *
220'
230'
240 READ N
250 LET N1 = 1/N
260 LET M = 1
270 FOR I = 1 TO N
280 READ A
290 LET M = M*A^N1
300 LET B = B + LOG(A)^2
310 NEXT I
320 LET S = EXP(SQR(B/(N-1)-(N/(N-1))*(LOG(M))^2))
330 PRINT "GEOMETRIC MEAN IS"M
340 PRINT "GEOMETRIC STANDARD DEVIATION IS"S
900 DATA 24
910 DATA 1100,2630,695,3630,1550,1150,1010,2110,736,1260,1690,2680
920 DATA 2520,2030,1280,2400,938,1860,2410,3370,1380,2200,2290,1220
930END