erfc(x)：互补误差

互补误差函数。

声明

语法

retval = erfc(x)
elemental real function erfc(x)

参数

x ，输入值必须是实数类型。

返回值

返回值是 real 类型，与输入参数 x 的类型相同。 erfc(x) 返回 \(1 - erf(x)\)。

描述

erf(x) 计算 x 的误差函数。结果位于以下范围内：

\(0 \leq erf (x) \leq 2\)

它是使用以下方法计算的：

\(\frac{2}{\sqrt\pi}\int_{x}^{\infty}e^{-t^2}dt\)

它用于在相对精度损失较大的情况下，如果为较大的 x 调用 erf(x) 并且从 1 中减去结果。

类型

支持的参数类型是实数。

interface erfc
    module procedure serfc, derfc
end interface

contains

elemental real(sp) function serfc(x)
real(sp), intent(in) :: x
end function

elemental real(dp) function derfc(x)
real(dp), intent(in) :: x
end function

示例

program intrinsics_erfc
	print *, erfc(1.0)
end program

结果：

0.1572992057

也可以看看

erf.