You've already forked lazarus-ccr
27 lines
369 B
ObjectPascal
27 lines
369 B
ObjectPascal
|
program BasicStats_test;
|
||
|
|
|
||
|
|
uses
|
||
|
|
MatrixUnit;
|
||
|
|
|
||
|
|
var
|
||
|
|
v: TDblVector;
|
||
|
|
mu, variance, sig: Double;
|
||
|
|
begin
|
||
|
|
SetLength(v, 5);
|
||
|
|
v[0] := 1.2;
|
||
|
|
v[1] := -4.3;
|
||
|
|
v[2] := 5.9;
|
||
|
|
v[3] := -9.6;
|
||
|
|
v[4] := 5.3;
|
||
|
|
|
||
|
|
VecMeanVarStdDev(v, mu, variance, sig);
|
||
|
|
|
||
|
|
WriteLn('Mean: ', mu:10:3);
|
||
|
|
WriteLn('Variance: ', variance:10:3);
|
||
|
|
WriteLn('Std.Dev.: ', sig:10:3);
|
||
|
|
|
||
|
|
ReadLn;
|
||
|
|
|
||
|
|
end.
|
||
|
|
|