Jump to content

Cumulative standard deviation: Difference between revisions

Cumulative standard deviation (view source)

Revision as of 16:43, 30 December 2009

39 bytes removed ,  14 years ago
m
→‎[[Standard_Deviation#ALGOL 68]]: tidy
Line 56:
MODE ACTION = UNION ( VALUE, STDDEV, MEAN, VAR, COUNT, RESET );
 
LONG REAL sum := 0.0;
LONG REAL sum2 := 0.0;
INT num := 0;
 
Line 70:
sum +:= v;
sum2 +:= v*v;
stat object(0.0, LOC STDDEV)
),
(STDDEV):
long sqrt(stat object(0.0, LOC VAR)),
(MEAN):
IF (num>0) THEN sum/LONG REAL(num) ELSE 0.0 FI,
(VAR):(
m := stat object(0.0, LOC MEAN);
IF (num>0) THEN sum2/LONG REAL(num) - m*m ELSE 0.0 FI
),
(COUNT):
num,
(RESET):(
sum := sum2 := 0.0; num := 0;
0.0
)
ESAC
);
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/116342"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information