You've already forked lazarus-ccr
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.
|
||
|
|
|