You've already forked lazarus-ccr
26 lines
370 B
ObjectPascal
26 lines
370 B
ObjectPascal
|
program Distributions;
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils, Math;
|
||
|
|
|
||
|
|
const
|
||
|
|
MEAN = 56;
|
||
|
|
STDDEV = 12;
|
||
|
|
N = 5000;
|
||
|
|
var
|
||
|
|
F: TextFile;
|
||
|
|
i: Integer;
|
||
|
|
x: Double;
|
||
|
|
begin
|
||
|
|
AssignFile(F, '../../data/dists.csv');
|
||
|
|
Rewrite(F);
|
||
|
|
WriteLn(F, 'Index,Group,Value');
|
||
|
|
for i := 0 to N-1 do begin
|
||
|
|
x := RandG(MEAN, STDDEV);
|
||
|
|
WriteLn(F, i, ',', i div 5, ',', x:0:6);
|
||
|
|
end;
|
||
|
|
CloseFile(F);
|
||
|
|
|
||
|
|
end.
|
||
|
|
|