Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50110/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