15 lines
409 B
Text
15 lines
409 B
Text
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)
|