\[1 - \left(\frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(0.254829592 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(-0.284496736 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(1.421413741 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(-1.453152027 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot 1.061405429\right)\right)\right)\right)\right) \cdot e^{-\left|x\right| \cdot \left|x\right|}
\]
↓
\[\begin{array}{l}
t_0 := \frac{1}{1 + 0.3275911 \cdot \left|x\right|}\\
t_1 := 1.421413741 + t_0 \cdot \left(-1.453152027 + t_0 \cdot 1.061405429\right)\\
t_2 := t_1 \cdot t_1\\
1 - t_0 \cdot \left(\left(0.254829592 + t_0 \cdot \left(-0.284496736 + t_0 \cdot \left(\left(t_2 \cdot t_2\right) \cdot \frac{\frac{1}{t_1}}{t_2}\right)\right)\right) \cdot e^{x \cdot \left(-x\right)}\right)
\end{array}
\]
(FPCore (x)
:precision binary64
(-
1.0
(*
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
0.254829592
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
-0.284496736
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
1.421413741
(*
(/ 1.0 (+ 1.0 (* 0.3275911 (fabs x))))
(+
-1.453152027
(* (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))) 1.061405429)))))))))
(exp (- (* (fabs x) (fabs x)))))))↓
(FPCore (x)
:precision binary64
(let* ((t_0 (/ 1.0 (+ 1.0 (* 0.3275911 (fabs x)))))
(t_1 (+ 1.421413741 (* t_0 (+ -1.453152027 (* t_0 1.061405429)))))
(t_2 (* t_1 t_1)))
(-
1.0
(*
t_0
(*
(+
0.254829592
(* t_0 (+ -0.284496736 (* t_0 (* (* t_2 t_2) (/ (/ 1.0 t_1) t_2))))))
(exp (* x (- x))))))))double code(double x) {
return 1.0 - (((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (0.254829592 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (-0.284496736 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (1.421413741 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * (-1.453152027 + ((1.0 / (1.0 + (0.3275911 * fabs(x)))) * 1.061405429))))))))) * exp(-(fabs(x) * fabs(x))));
}
↓
double code(double x) {
double t_0 = 1.0 / (1.0 + (0.3275911 * fabs(x)));
double t_1 = 1.421413741 + (t_0 * (-1.453152027 + (t_0 * 1.061405429)));
double t_2 = t_1 * t_1;
return 1.0 - (t_0 * ((0.254829592 + (t_0 * (-0.284496736 + (t_0 * ((t_2 * t_2) * ((1.0 / t_1) / t_2)))))) * exp((x * -x))));
}
real(8) function code(x)
real(8), intent (in) :: x
code = 1.0d0 - (((1.0d0 / (1.0d0 + (0.3275911d0 * abs(x)))) * (0.254829592d0 + ((1.0d0 / (1.0d0 + (0.3275911d0 * abs(x)))) * ((-0.284496736d0) + ((1.0d0 / (1.0d0 + (0.3275911d0 * abs(x)))) * (1.421413741d0 + ((1.0d0 / (1.0d0 + (0.3275911d0 * abs(x)))) * ((-1.453152027d0) + ((1.0d0 / (1.0d0 + (0.3275911d0 * abs(x)))) * 1.061405429d0))))))))) * exp(-(abs(x) * abs(x))))
end function
↓
real(8) function code(x)
real(8), intent (in) :: x
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
t_0 = 1.0d0 / (1.0d0 + (0.3275911d0 * abs(x)))
t_1 = 1.421413741d0 + (t_0 * ((-1.453152027d0) + (t_0 * 1.061405429d0)))
t_2 = t_1 * t_1
code = 1.0d0 - (t_0 * ((0.254829592d0 + (t_0 * ((-0.284496736d0) + (t_0 * ((t_2 * t_2) * ((1.0d0 / t_1) / t_2)))))) * exp((x * -x))))
end function
public static double code(double x) {
return 1.0 - (((1.0 / (1.0 + (0.3275911 * Math.abs(x)))) * (0.254829592 + ((1.0 / (1.0 + (0.3275911 * Math.abs(x)))) * (-0.284496736 + ((1.0 / (1.0 + (0.3275911 * Math.abs(x)))) * (1.421413741 + ((1.0 / (1.0 + (0.3275911 * Math.abs(x)))) * (-1.453152027 + ((1.0 / (1.0 + (0.3275911 * Math.abs(x)))) * 1.061405429))))))))) * Math.exp(-(Math.abs(x) * Math.abs(x))));
}
↓
public static double code(double x) {
double t_0 = 1.0 / (1.0 + (0.3275911 * Math.abs(x)));
double t_1 = 1.421413741 + (t_0 * (-1.453152027 + (t_0 * 1.061405429)));
double t_2 = t_1 * t_1;
return 1.0 - (t_0 * ((0.254829592 + (t_0 * (-0.284496736 + (t_0 * ((t_2 * t_2) * ((1.0 / t_1) / t_2)))))) * Math.exp((x * -x))));
}
def code(x):
return 1.0 - (((1.0 / (1.0 + (0.3275911 * math.fabs(x)))) * (0.254829592 + ((1.0 / (1.0 + (0.3275911 * math.fabs(x)))) * (-0.284496736 + ((1.0 / (1.0 + (0.3275911 * math.fabs(x)))) * (1.421413741 + ((1.0 / (1.0 + (0.3275911 * math.fabs(x)))) * (-1.453152027 + ((1.0 / (1.0 + (0.3275911 * math.fabs(x)))) * 1.061405429))))))))) * math.exp(-(math.fabs(x) * math.fabs(x))))
↓
def code(x):
t_0 = 1.0 / (1.0 + (0.3275911 * math.fabs(x)))
t_1 = 1.421413741 + (t_0 * (-1.453152027 + (t_0 * 1.061405429)))
t_2 = t_1 * t_1
return 1.0 - (t_0 * ((0.254829592 + (t_0 * (-0.284496736 + (t_0 * ((t_2 * t_2) * ((1.0 / t_1) / t_2)))))) * math.exp((x * -x))))
function code(x)
return Float64(1.0 - Float64(Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(0.254829592 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(-0.284496736 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(1.421413741 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * Float64(-1.453152027 + Float64(Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x)))) * 1.061405429))))))))) * exp(Float64(-Float64(abs(x) * abs(x))))))
end
↓
function code(x)
t_0 = Float64(1.0 / Float64(1.0 + Float64(0.3275911 * abs(x))))
t_1 = Float64(1.421413741 + Float64(t_0 * Float64(-1.453152027 + Float64(t_0 * 1.061405429))))
t_2 = Float64(t_1 * t_1)
return Float64(1.0 - Float64(t_0 * Float64(Float64(0.254829592 + Float64(t_0 * Float64(-0.284496736 + Float64(t_0 * Float64(Float64(t_2 * t_2) * Float64(Float64(1.0 / t_1) / t_2)))))) * exp(Float64(x * Float64(-x))))))
end
function tmp = code(x)
tmp = 1.0 - (((1.0 / (1.0 + (0.3275911 * abs(x)))) * (0.254829592 + ((1.0 / (1.0 + (0.3275911 * abs(x)))) * (-0.284496736 + ((1.0 / (1.0 + (0.3275911 * abs(x)))) * (1.421413741 + ((1.0 / (1.0 + (0.3275911 * abs(x)))) * (-1.453152027 + ((1.0 / (1.0 + (0.3275911 * abs(x)))) * 1.061405429))))))))) * exp(-(abs(x) * abs(x))));
end
↓
function tmp = code(x)
t_0 = 1.0 / (1.0 + (0.3275911 * abs(x)));
t_1 = 1.421413741 + (t_0 * (-1.453152027 + (t_0 * 1.061405429)));
t_2 = t_1 * t_1;
tmp = 1.0 - (t_0 * ((0.254829592 + (t_0 * (-0.284496736 + (t_0 * ((t_2 * t_2) * ((1.0 / t_1) / t_2)))))) * exp((x * -x))));
end
code[x_] := N[(1.0 - N[(N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(0.254829592 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(-0.284496736 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.421413741 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(-1.453152027 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Exp[(-N[(N[Abs[x], $MachinePrecision] * N[Abs[x], $MachinePrecision]), $MachinePrecision])], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[x_] := Block[{t$95$0 = N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(1.421413741 + N[(t$95$0 * N[(-1.453152027 + N[(t$95$0 * 1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$1 * t$95$1), $MachinePrecision]}, N[(1.0 - N[(t$95$0 * N[(N[(0.254829592 + N[(t$95$0 * N[(-0.284496736 + N[(t$95$0 * N[(N[(t$95$2 * t$95$2), $MachinePrecision] * N[(N[(1.0 / t$95$1), $MachinePrecision] / t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Exp[N[(x * (-x)), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]
1 - \left(\frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(0.254829592 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(-0.284496736 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(1.421413741 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot \left(-1.453152027 + \frac{1}{1 + 0.3275911 \cdot \left|x\right|} \cdot 1.061405429\right)\right)\right)\right)\right) \cdot e^{-\left|x\right| \cdot \left|x\right|}
↓
\begin{array}{l}
t_0 := \frac{1}{1 + 0.3275911 \cdot \left|x\right|}\\
t_1 := 1.421413741 + t_0 \cdot \left(-1.453152027 + t_0 \cdot 1.061405429\right)\\
t_2 := t_1 \cdot t_1\\
1 - t_0 \cdot \left(\left(0.254829592 + t_0 \cdot \left(-0.284496736 + t_0 \cdot \left(\left(t_2 \cdot t_2\right) \cdot \frac{\frac{1}{t_1}}{t_2}\right)\right)\right) \cdot e^{x \cdot \left(-x\right)}\right)
\end{array}