aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

44
Task/Cumulative-standard-deviation/ALGOL-W/cumulative-standard-deviation.alg
View file

@ -1,25 +1,37 @@
begin
long real sum, sum2;
integer n;
record CSD ( long real sumof, sum2of, sdof; integer countof );
long real procedure sd (long real value x) ;
long real procedure sample ( reference(CSD) value sdv; long real value x) ;
begin
sum := sum + x;
sum2 := sum2 + (x*x);
n := n + 1;
if n = 0 then 0 else longsqrt(sum2/n - sum*sum/n/n)
end sd;
long real sum, sum2;
integer n;
sum := sum2 := n := 0;
countof(sdv) := countof(sdv) + 1;
sum := sumof(sdv);
sum2 := sum2of(sdv);
n := countof(sdv);
sum := sum + x;
sum2 := sum2 + (x*x);
sdof(sdv) := if n = 0 then 0 else longsqrt(sum2/n - sum*sum/n/n);
sumof(sdv) := sum;
sum2of(sdv) := sum2;
sdof(sdv)
end sample;
r_format := "A"; r_w := 14; r_d := 6; % set output to fixed point format %
reference(CSD) procedure NewCSD; CSD( 0, 0, 0, 0 );
for i := 2,4,4,4,5,5,7,9
do begin
long real val;
val := i;
write(val, sd(val))
end for_i
begin
reference(CSD) sd;
sd := NewCSD;
r_format := "A"; r_w := 14; r_d := 6; % set output to fixed point format %
i_w := 6; s_w := 0; % also set integer and separator format %
for i := 2,4,4,4,5,5,7,9 do begin
long real val, newSd;
val := i;
newSd := sample( sd, val );
write( countof(sd), ": ", val, " -> ", newSd )
end for_i
end
end.