Cumulative standard deviation: Difference between revisions
Content deleted Content added
No edit summary |
No edit summary |
||
Line 663:
runningSD <- sdAccum
mapM runningSD [2, 4, 4, 4, 5, 5, 7, 9]</lang>
=={{header|HicEst}}==
<lang HicEst>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</lang>
<pre>Adding 2 stdev = 0
Adding 4 stdev = 1
Adding 4 stdev = 0.9428090416
Adding 4 stdev = 0.8660254038
Adding 5 stdev = 0.9797958971
Adding 5 stdev = 1
Adding 7 stdev = 1.399708424
Adding 9 stdev = 2</pre>
=={{header|J}}==
| |||