Anonymous user
Cumulative standard deviation: Difference between revisions
Delphi: see Pascal.
(→{{header|Delphi}}: Corrected Program) |
(Delphi: see Pascal.) |
||
Line 972:
2.000000e+00</pre>
=={{header|
See: [[#Pascal]]
==={{header|Delphi}}===▼
<lang Delphi>program prj_CalcStdDerv;▼
{$APPTYPE CONSOLE}▼
uses▼
Math;▼
var Series:Array of Extended;▼
UserString:String;▼
function AppendAndCalc(NewVal:Extended):Extended;▼
begin▼
setlength(Series,high(Series)+2);▼
Series[high(Series)] := NewVal;▼
result := PopnStdDev(Series);▼
end;▼
const data:array[0..7] of Extended =▼
(2,4,4,4,5,5,7,9);▼
var rr: Extended;▼
begin▼
setlength(Series,0);▼
for rr in data do▼
begin▼
writeln(rr,' -> ',AppendAndCalc(rr));▼
end;▼
Readln;▼
end. </lang>▼
<pre>▼
2.0000000000000000E+0000 -> 0.0000000000000000E+0000▼
4.0000000000000000E+0000 -> 1.0000000000000000E+0000▼
4.0000000000000000E+0000 -> 9.4280904158206337E-0001▼
4.0000000000000000E+0000 -> 8.6602540378443865E-0001▼
5.0000000000000000E+0000 -> 9.7979589711327124E-0001▼
5.0000000000000000E+0000 -> 1.0000000000000000E+0000▼
7.0000000000000000E+0000 -> 1.3997084244475303E+0000▼
9.0000000000000000E+0000 -> 2.0000000000000000E+0000▼
</pre>▼
=={{header|E}}==
Line 2,294 ⟶ 2,252:
=={{header|Pascal}}==
===Std.Pascal===
{{trans|AWK}}
<lang pascal>program stddev;
Line 2,332 ⟶ 2,291:
7 item= 7 stddev= 1.399708424447530
8 item= 9 stddev= 2.000000000000000</pre>
▲==={{header|Delphi}}===
▲<lang Delphi>program prj_CalcStdDerv;
▲{$APPTYPE CONSOLE}
▲uses
▲ Math;
▲var Series:Array of Extended;
▲ UserString:String;
▲function AppendAndCalc(NewVal:Extended):Extended;
▲begin
▲ setlength(Series,high(Series)+2);
▲ Series[high(Series)] := NewVal;
▲ result := PopnStdDev(Series);
▲end;
▲const data:array[0..7] of Extended =
▲ (2,4,4,4,5,5,7,9);
▲var rr: Extended;
▲begin
▲ setlength(Series,0);
▲ for rr in data do
▲ begin
▲ writeln(rr,' -> ',AppendAndCalc(rr));
▲ end;
▲ Readln;
▲end. </lang>
{{out}}
▲<pre>
▲ 2.0000000000000000E+0000 -> 0.0000000000000000E+0000
▲ 4.0000000000000000E+0000 -> 1.0000000000000000E+0000
▲ 4.0000000000000000E+0000 -> 9.4280904158206337E-0001
▲ 4.0000000000000000E+0000 -> 8.6602540378443865E-0001
▲ 5.0000000000000000E+0000 -> 9.7979589711327124E-0001
▲ 5.0000000000000000E+0000 -> 1.0000000000000000E+0000
▲ 7.0000000000000000E+0000 -> 1.3997084244475303E+0000
▲ 9.0000000000000000E+0000 -> 2.0000000000000000E+0000
▲</pre>
=={{header|Perl}}==
<lang perl>{
| |||