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
333 B
ObjectPascal
27 lines
333 B
ObjectPascal
program NormalDist_Test;
|
|
|
|
uses
|
|
MathUnit;
|
|
|
|
const
|
|
dx = 0.2;
|
|
Range = 3.0;
|
|
|
|
var
|
|
i: Integer;
|
|
x, p, z: Double;
|
|
begin
|
|
WriteLn('x':20, 'p':20, 'z':20);
|
|
|
|
x := -Range;
|
|
while x <= Range do begin
|
|
p := NormalDist(x);
|
|
z := InverseNormaldist(p);
|
|
WriteLn(x:20:5, p:20:5, z:20:5);
|
|
x := x + dx;
|
|
end;
|
|
|
|
Readln;
|
|
end.
|
|
|