You've already forked lazarus-ccr
21484fc4bd
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7925 8e941d3f-bd1b-0410-a28a-d453659cc2b4
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.
|
|
|