You've already forked lazarus-ccr
LazStats: Add tests.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7925 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -0,0 +1,24 @@
|
||||
program NormalDist;
|
||||
|
||||
uses
|
||||
SysUtils, Math;
|
||||
|
||||
const
|
||||
MEAN = 56;
|
||||
STDDEV = 12;
|
||||
N = 5; //200;
|
||||
var
|
||||
F: TextFile;
|
||||
i: Integer;
|
||||
x: Double;
|
||||
begin
|
||||
AssignFile(F, '../../data/normal_dist_5.csv');
|
||||
Rewrite(F);
|
||||
WriteLn(F, 'Index,Value');
|
||||
for i := 1 to N do begin
|
||||
x := RandG(MEAN, STDDEV);
|
||||
WriteLn(F, i, ',', x:0:6);
|
||||
end;
|
||||
CloseFile(F);
|
||||
end.
|
||||
|
Reference in New Issue
Block a user