16 lines
285 B
Text
16 lines
285 B
Text
REAL :: n=8, set(n), sum=0, sum2=0
|
|
|
|
set = (2,4,4,4,5,5,7,9)
|
|
|
|
DO k = 1, n
|
|
WRITE() 'Adding ' // set(k) // 'stdev = ' // stdev(set(k))
|
|
ENDDO
|
|
|
|
END ! end of "main"
|
|
|
|
FUNCTION stdev(x)
|
|
USE : sum, sum2, k
|
|
sum = sum + x
|
|
sum2 = sum2 + x*x
|
|
stdev = ( sum2/k - (sum/k)^2) ^ 0.5
|
|
END
|