
(FPCore (x) :precision binary32 (atanh x))
float code(float x) {
return atanhf(x);
}
function code(x) return atanh(x) end
function tmp = code(x) tmp = atanh(x); end
\tanh^{-1} x
Herbie found 5 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x) :precision binary32 (* 0.5 (log1p (/ (* 2.0 x) (- 1.0 x)))))
float code(float x) {
return 0.5f * log1pf(((2.0f * x) / (1.0f - x)));
}
function code(x) return Float32(Float32(0.5) * log1p(Float32(Float32(Float32(2.0) * x) / Float32(Float32(1.0) - x)))) end
0.5 \cdot \mathsf{log1p}\left(\frac{2 \cdot x}{1 - x}\right)
(FPCore (x) :precision binary32 (* (copysign 1.0 x) (if (<= (fabs x) 1.0) (* 0.5 (log1p (/ (+ (fabs x) (fabs x)) (- 1.0 (fabs x))))) (* 0.0 (* 2.0 (fabs x))))))
float code(float x) {
float tmp;
if (fabsf(x) <= 1.0f) {
tmp = 0.5f * log1pf(((fabsf(x) + fabsf(x)) / (1.0f - fabsf(x))));
} else {
tmp = 0.0f * (2.0f * fabsf(x));
}
return copysignf(1.0f, x) * tmp;
}
function code(x) tmp = Float32(0.0) if (abs(x) <= Float32(1.0)) tmp = Float32(Float32(0.5) * log1p(Float32(Float32(abs(x) + abs(x)) / Float32(Float32(1.0) - abs(x))))); else tmp = Float32(Float32(0.0) * Float32(Float32(2.0) * abs(x))); end return Float32(copysign(Float32(1.0), x) * tmp) end
\mathsf{copysign}\left(1, x\right) \cdot \begin{array}{l}
\mathbf{if}\;\left|x\right| \leq 1:\\
\;\;\;\;0.5 \cdot \mathsf{log1p}\left(\frac{\left|x\right| + \left|x\right|}{1 - \left|x\right|}\right)\\
\mathbf{else}:\\
\;\;\;\;0 \cdot \left(2 \cdot \left|x\right|\right)\\
\end{array}
if x < 1Initial program 49.1%
lift--.f32N/A
flip--N/A
remove-sound-/N/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
+-commutativeN/A
add-flipN/A
metadata-evalN/A
lower--.f3274.1%
Applied rewrites74.1%
lift-*.f32N/A
count-2-revN/A
lower-+.f3274.1%
lift-/.f32N/A
remove-sound-/N/A
lift--.f32N/A
metadata-evalN/A
lift-*.f32N/A
lift--.f32N/A
sub-flipN/A
metadata-evalN/A
+-commutativeN/A
flip--N/A
lower--.f3249.1%
Applied rewrites49.1%
if 1 < x Initial program 49.1%
lift--.f32N/A
flip--N/A
remove-sound-/N/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
+-commutativeN/A
add-flipN/A
metadata-evalN/A
lower--.f3274.1%
Applied rewrites74.1%
lift-log1p.f32N/A
lift-/.f32N/A
add-to-fractionN/A
log-divN/A
diff-logN/A
fabs-divN/A
add-to-fractionN/A
lift-/.f32N/A
lower-log.f32N/A
lower-fabs.f32N/A
Applied rewrites53.2%
Taylor expanded in undef-var around zero
Applied rewrites56.1%
Taylor expanded in x around 0
lower-*.f3255.7%
Applied rewrites55.7%
(FPCore (x)
:precision binary32
(*
(copysign 1.0 x)
(if (<= (fabs x) 1.0)
(fma
(* (* (fabs x) (fabs x)) (fabs x))
0.3333333333333333
(fabs x))
(* 0.0 (* 2.0 (fabs x))))))float code(float x) {
float tmp;
if (fabsf(x) <= 1.0f) {
tmp = fmaf(((fabsf(x) * fabsf(x)) * fabsf(x)), 0.3333333333333333f, fabsf(x));
} else {
tmp = 0.0f * (2.0f * fabsf(x));
}
return copysignf(1.0f, x) * tmp;
}
function code(x) tmp = Float32(0.0) if (abs(x) <= Float32(1.0)) tmp = fma(Float32(Float32(abs(x) * abs(x)) * abs(x)), Float32(0.3333333333333333), abs(x)); else tmp = Float32(Float32(0.0) * Float32(Float32(2.0) * abs(x))); end return Float32(copysign(Float32(1.0), x) * tmp) end
\mathsf{copysign}\left(1, x\right) \cdot \begin{array}{l}
\mathbf{if}\;\left|x\right| \leq 1:\\
\;\;\;\;\mathsf{fma}\left(\left(\left|x\right| \cdot \left|x\right|\right) \cdot \left|x\right|, 0.3333333333333333, \left|x\right|\right)\\
\mathbf{else}:\\
\;\;\;\;0 \cdot \left(2 \cdot \left|x\right|\right)\\
\end{array}
if x < 1Initial program 49.1%
Taylor expanded in x around 0
lower-*.f32N/A
lower-+.f32N/A
lower-*.f32N/A
lower-pow.f3250.3%
Applied rewrites50.3%
lift-*.f32N/A
lift-+.f32N/A
+-commutativeN/A
distribute-lft-inN/A
lift-*.f32N/A
lift-pow.f32N/A
pow2N/A
lift-*.f32N/A
*-commutativeN/A
associate-*r*N/A
lift-*.f32N/A
cube-multN/A
*-rgt-identityN/A
lower-fma.f32N/A
unpow3N/A
lift-*.f32N/A
lower-*.f3250.4%
Applied rewrites50.4%
if 1 < x Initial program 49.1%
lift--.f32N/A
flip--N/A
remove-sound-/N/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
+-commutativeN/A
add-flipN/A
metadata-evalN/A
lower--.f3274.1%
Applied rewrites74.1%
lift-log1p.f32N/A
lift-/.f32N/A
add-to-fractionN/A
log-divN/A
diff-logN/A
fabs-divN/A
add-to-fractionN/A
lift-/.f32N/A
lower-log.f32N/A
lower-fabs.f32N/A
Applied rewrites53.2%
Taylor expanded in undef-var around zero
Applied rewrites56.1%
Taylor expanded in x around 0
lower-*.f3255.7%
Applied rewrites55.7%
(FPCore (x) :precision binary32 (* (copysign 1.0 x) (if (<= (fabs x) 1.0) (log (+ 1.0 (fabs x))) (* 0.0 (* 2.0 (fabs x))))))
float code(float x) {
float tmp;
if (fabsf(x) <= 1.0f) {
tmp = logf((1.0f + fabsf(x)));
} else {
tmp = 0.0f * (2.0f * fabsf(x));
}
return copysignf(1.0f, x) * tmp;
}
function code(x) tmp = Float32(0.0) if (abs(x) <= Float32(1.0)) tmp = log(Float32(Float32(1.0) + abs(x))); else tmp = Float32(Float32(0.0) * Float32(Float32(2.0) * abs(x))); end return Float32(copysign(Float32(1.0), x) * tmp) end
function tmp_2 = code(x) tmp = single(0.0); if (abs(x) <= single(1.0)) tmp = log((single(1.0) + abs(x))); else tmp = single(0.0) * (single(2.0) * abs(x)); end tmp_2 = (sign(x) * abs(single(1.0))) * tmp; end
\mathsf{copysign}\left(1, x\right) \cdot \begin{array}{l}
\mathbf{if}\;\left|x\right| \leq 1:\\
\;\;\;\;\log \left(1 + \left|x\right|\right)\\
\mathbf{else}:\\
\;\;\;\;0 \cdot \left(2 \cdot \left|x\right|\right)\\
\end{array}
if x < 1Initial program 49.1%
lift-*.f32N/A
lift-log1p.f32N/A
log-pow-revN/A
lower-log.f32N/A
unpow1/2N/A
lower-sqrt.f32N/A
+-commutativeN/A
lift-/.f32N/A
lift-*.f32N/A
associate-/l*N/A
*-commutativeN/A
lower-fma.f32N/A
lower-/.f3210.9%
Applied rewrites10.9%
Taylor expanded in x around 0
lower-+.f3210.7%
Applied rewrites10.7%
if 1 < x Initial program 49.1%
lift--.f32N/A
flip--N/A
remove-sound-/N/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
+-commutativeN/A
add-flipN/A
metadata-evalN/A
lower--.f3274.1%
Applied rewrites74.1%
lift-log1p.f32N/A
lift-/.f32N/A
add-to-fractionN/A
log-divN/A
diff-logN/A
fabs-divN/A
add-to-fractionN/A
lift-/.f32N/A
lower-log.f32N/A
lower-fabs.f32N/A
Applied rewrites53.2%
Taylor expanded in undef-var around zero
Applied rewrites56.1%
Taylor expanded in x around 0
lower-*.f3255.7%
Applied rewrites55.7%
(FPCore (x) :precision binary32 (* 0.0 (* 2.0 x)))
float code(float x) {
return 0.0f * (2.0f * x);
}
real(4) function code(x)
use fmin_fmax_functions
real(4), intent (in) :: x
code = 0.0e0 * (2.0e0 * x)
end function
function code(x) return Float32(Float32(0.0) * Float32(Float32(2.0) * x)) end
function tmp = code(x) tmp = single(0.0) * (single(2.0) * x); end
0 \cdot \left(2 \cdot x\right)
Initial program 49.1%
lift--.f32N/A
flip--N/A
remove-sound-/N/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
+-commutativeN/A
add-flipN/A
metadata-evalN/A
lower--.f3274.1%
Applied rewrites74.1%
lift-log1p.f32N/A
lift-/.f32N/A
add-to-fractionN/A
log-divN/A
diff-logN/A
fabs-divN/A
add-to-fractionN/A
lift-/.f32N/A
lower-log.f32N/A
lower-fabs.f32N/A
Applied rewrites53.2%
Taylor expanded in undef-var around zero
Applied rewrites56.1%
Taylor expanded in x around 0
lower-*.f3255.7%
Applied rewrites55.7%
(FPCore (x) :precision binary32 (/ 1.0 x))
float code(float x) {
return 1.0f / x;
}
real(4) function code(x)
use fmin_fmax_functions
real(4), intent (in) :: x
code = 1.0e0 / x
end function
function code(x) return Float32(Float32(1.0) / x) end
function tmp = code(x) tmp = single(1.0) / x; end
\frac{1}{x}
Initial program 49.1%
lift--.f32N/A
flip--N/A
remove-sound-/N/A
lower-/.f32N/A
metadata-evalN/A
lower--.f32N/A
lower-*.f32N/A
+-commutativeN/A
add-flipN/A
metadata-evalN/A
lower--.f3274.1%
Applied rewrites74.1%
lift-log1p.f32N/A
lift-/.f32N/A
add-to-fractionN/A
log-divN/A
diff-logN/A
fabs-divN/A
add-to-fractionN/A
lift-/.f32N/A
lower-log.f32N/A
lower-fabs.f32N/A
Applied rewrites53.2%
Taylor expanded in x around inf
lower-/.f329.3%
Applied rewrites9.3%
herbie shell --seed 2025313 -o setup:search
(FPCore (x)
:name "Rust f32::atanh"
:precision binary32
(* 0.5 (log1p (/ (* 2.0 x) (- 1.0 x)))))