Cumulative standard deviation: Difference between revisions
Content added Content deleted
(ââJS :: functional (ES 6): Added an ES6 draft) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 1,477: | Line 1,477: | ||
<standard-deviator> [ [ add-value ] curry each ] keep |
<standard-deviator> [ [ add-value ] curry each ] keep |
||
current-std number>string print ;</lang> |
current-std number>string print ;</lang> |
||
=={{header|FOCAL}}== |
|||
<lang FOCAL>01.01 C-- TEST SET |
|||
01.10 S T(1)=2;S T(2)=4;S T(3)=4;S T(4)=4 |
|||
01.20 S T(5)=5;S T(6)=5;S T(7)=7;S T(8)=9 |
|||
01.30 D 2.1 |
|||
01.35 T %6.40 |
|||
01.40 F I=1,8;S A=T(I);D 2.2;T "VAL",A;D 2.3;T " SD",A,! |
|||
01.50 Q |
|||
02.01 C-- RUNNING STDDEV |
|||
02.02 C-- 2.1: INITIALIZE |
|||
02.03 C-- 2.2: INSERT VALUE A |
|||
02.04 C-- 2.3: A = CURRENT STDDEV |
|||
02.10 S XN=0;S XS=0;S XQ=0 |
|||
02.20 S XN=XN+1;S XS=XS+A;S XQ=XQ+A*A |
|||
02.30 S A=FSQT(XQ/XN - (XS/XN)^2)</lang> |
|||
{{out}} |
|||
<pre>VAL= 2.00000 SD= 0.00000 |
|||
VAL= 4.00000 SD= 1.00000 |
|||
VAL= 4.00000 SD= 0.94281 |
|||
VAL= 4.00000 SD= 0.86603 |
|||
VAL= 5.00000 SD= 0.97980 |
|||
VAL= 5.00000 SD= 1.00000 |
|||
VAL= 7.00000 SD= 1.39971 |
|||
VAL= 9.00000 SD= 2.00000</pre> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |