如何求解标准正态分布函数？

li913

ivf自带有个erf函数，变换后可以用于求标准正态分布函数。

[Fortran] 纯文本查看 复制代码

program test
real(kind=8) a,x
x=1.0d20
a= 0.5*erf(sqrt(2.0)*x) + 0.5
print*,a

x=0.0d20
a= 0.5*erf(sqrt(2.0)*x) + 0.5
print*,a

x=-1.0d20
a= 0.5*erf(sqrt(2.0)*x) + 0.5
print*,a
end