
(FPCore (c_p c_n t s)
:precision binary64
(let* ((t_1 (/ 1.0 (+ 1.0 (exp (- t))))) (t_2 (/ 1.0 (+ 1.0 (exp (- s))))))
(/
(* (pow t_2 c_p) (pow (- 1.0 t_2) c_n))
(* (pow t_1 c_p) (pow (- 1.0 t_1) c_n)))))
double code(double c_p, double c_n, double t, double s) {
double t_1 = 1.0 / (1.0 + exp(-t));
double t_2 = 1.0 / (1.0 + exp(-s));
return (pow(t_2, c_p) * pow((1.0 - t_2), c_n)) / (pow(t_1, c_p) * pow((1.0 - t_1), c_n));
}
real(8) function code(c_p, c_n, t, s)
real(8), intent (in) :: c_p
real(8), intent (in) :: c_n
real(8), intent (in) :: t
real(8), intent (in) :: s
real(8) :: t_1
real(8) :: t_2
t_1 = 1.0d0 / (1.0d0 + exp(-t))
t_2 = 1.0d0 / (1.0d0 + exp(-s))
code = ((t_2 ** c_p) * ((1.0d0 - t_2) ** c_n)) / ((t_1 ** c_p) * ((1.0d0 - t_1) ** c_n))
end function
public static double code(double c_p, double c_n, double t, double s) {
double t_1 = 1.0 / (1.0 + Math.exp(-t));
double t_2 = 1.0 / (1.0 + Math.exp(-s));
return (Math.pow(t_2, c_p) * Math.pow((1.0 - t_2), c_n)) / (Math.pow(t_1, c_p) * Math.pow((1.0 - t_1), c_n));
}
def code(c_p, c_n, t, s): t_1 = 1.0 / (1.0 + math.exp(-t)) t_2 = 1.0 / (1.0 + math.exp(-s)) return (math.pow(t_2, c_p) * math.pow((1.0 - t_2), c_n)) / (math.pow(t_1, c_p) * math.pow((1.0 - t_1), c_n))
function code(c_p, c_n, t, s) t_1 = Float64(1.0 / Float64(1.0 + exp(Float64(-t)))) t_2 = Float64(1.0 / Float64(1.0 + exp(Float64(-s)))) return Float64(Float64((t_2 ^ c_p) * (Float64(1.0 - t_2) ^ c_n)) / Float64((t_1 ^ c_p) * (Float64(1.0 - t_1) ^ c_n))) end
function tmp = code(c_p, c_n, t, s) t_1 = 1.0 / (1.0 + exp(-t)); t_2 = 1.0 / (1.0 + exp(-s)); tmp = ((t_2 ^ c_p) * ((1.0 - t_2) ^ c_n)) / ((t_1 ^ c_p) * ((1.0 - t_1) ^ c_n)); end
code[c$95$p_, c$95$n_, t_, s_] := Block[{t$95$1 = N[(1.0 / N[(1.0 + N[Exp[(-t)], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(1.0 / N[(1.0 + N[Exp[(-s)], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[Power[t$95$2, c$95$p], $MachinePrecision] * N[Power[N[(1.0 - t$95$2), $MachinePrecision], c$95$n], $MachinePrecision]), $MachinePrecision] / N[(N[Power[t$95$1, c$95$p], $MachinePrecision] * N[Power[N[(1.0 - t$95$1), $MachinePrecision], c$95$n], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{1}{1 + e^{-t}}\\
t_2 := \frac{1}{1 + e^{-s}}\\
\frac{{t\_2}^{c\_p} \cdot {\left(1 - t\_2\right)}^{c\_n}}{{t\_1}^{c\_p} \cdot {\left(1 - t\_1\right)}^{c\_n}}
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 4 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (c_p c_n t s)
:precision binary64
(let* ((t_1 (/ 1.0 (+ 1.0 (exp (- t))))) (t_2 (/ 1.0 (+ 1.0 (exp (- s))))))
(/
(* (pow t_2 c_p) (pow (- 1.0 t_2) c_n))
(* (pow t_1 c_p) (pow (- 1.0 t_1) c_n)))))
double code(double c_p, double c_n, double t, double s) {
double t_1 = 1.0 / (1.0 + exp(-t));
double t_2 = 1.0 / (1.0 + exp(-s));
return (pow(t_2, c_p) * pow((1.0 - t_2), c_n)) / (pow(t_1, c_p) * pow((1.0 - t_1), c_n));
}
real(8) function code(c_p, c_n, t, s)
real(8), intent (in) :: c_p
real(8), intent (in) :: c_n
real(8), intent (in) :: t
real(8), intent (in) :: s
real(8) :: t_1
real(8) :: t_2
t_1 = 1.0d0 / (1.0d0 + exp(-t))
t_2 = 1.0d0 / (1.0d0 + exp(-s))
code = ((t_2 ** c_p) * ((1.0d0 - t_2) ** c_n)) / ((t_1 ** c_p) * ((1.0d0 - t_1) ** c_n))
end function
public static double code(double c_p, double c_n, double t, double s) {
double t_1 = 1.0 / (1.0 + Math.exp(-t));
double t_2 = 1.0 / (1.0 + Math.exp(-s));
return (Math.pow(t_2, c_p) * Math.pow((1.0 - t_2), c_n)) / (Math.pow(t_1, c_p) * Math.pow((1.0 - t_1), c_n));
}
def code(c_p, c_n, t, s): t_1 = 1.0 / (1.0 + math.exp(-t)) t_2 = 1.0 / (1.0 + math.exp(-s)) return (math.pow(t_2, c_p) * math.pow((1.0 - t_2), c_n)) / (math.pow(t_1, c_p) * math.pow((1.0 - t_1), c_n))
function code(c_p, c_n, t, s) t_1 = Float64(1.0 / Float64(1.0 + exp(Float64(-t)))) t_2 = Float64(1.0 / Float64(1.0 + exp(Float64(-s)))) return Float64(Float64((t_2 ^ c_p) * (Float64(1.0 - t_2) ^ c_n)) / Float64((t_1 ^ c_p) * (Float64(1.0 - t_1) ^ c_n))) end
function tmp = code(c_p, c_n, t, s) t_1 = 1.0 / (1.0 + exp(-t)); t_2 = 1.0 / (1.0 + exp(-s)); tmp = ((t_2 ^ c_p) * ((1.0 - t_2) ^ c_n)) / ((t_1 ^ c_p) * ((1.0 - t_1) ^ c_n)); end
code[c$95$p_, c$95$n_, t_, s_] := Block[{t$95$1 = N[(1.0 / N[(1.0 + N[Exp[(-t)], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(1.0 / N[(1.0 + N[Exp[(-s)], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[Power[t$95$2, c$95$p], $MachinePrecision] * N[Power[N[(1.0 - t$95$2), $MachinePrecision], c$95$n], $MachinePrecision]), $MachinePrecision] / N[(N[Power[t$95$1, c$95$p], $MachinePrecision] * N[Power[N[(1.0 - t$95$1), $MachinePrecision], c$95$n], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\begin{array}{l}
\\
\begin{array}{l}
t_1 := \frac{1}{1 + e^{-t}}\\
t_2 := \frac{1}{1 + e^{-s}}\\
\frac{{t\_2}^{c\_p} \cdot {\left(1 - t\_2\right)}^{c\_n}}{{t\_1}^{c\_p} \cdot {\left(1 - t\_1\right)}^{c\_n}}
\end{array}
\end{array}
(FPCore (c_p c_n t s) :precision binary64 (exp (+ (* 0.5 (* c_n t)) (* s (+ (* c_n -0.5) (* -0.125 (* c_n s)))))))
double code(double c_p, double c_n, double t, double s) {
return exp(((0.5 * (c_n * t)) + (s * ((c_n * -0.5) + (-0.125 * (c_n * s))))));
}
real(8) function code(c_p, c_n, t, s)
real(8), intent (in) :: c_p
real(8), intent (in) :: c_n
real(8), intent (in) :: t
real(8), intent (in) :: s
code = exp(((0.5d0 * (c_n * t)) + (s * ((c_n * (-0.5d0)) + ((-0.125d0) * (c_n * s))))))
end function
public static double code(double c_p, double c_n, double t, double s) {
return Math.exp(((0.5 * (c_n * t)) + (s * ((c_n * -0.5) + (-0.125 * (c_n * s))))));
}
def code(c_p, c_n, t, s): return math.exp(((0.5 * (c_n * t)) + (s * ((c_n * -0.5) + (-0.125 * (c_n * s))))))
function code(c_p, c_n, t, s) return exp(Float64(Float64(0.5 * Float64(c_n * t)) + Float64(s * Float64(Float64(c_n * -0.5) + Float64(-0.125 * Float64(c_n * s)))))) end
function tmp = code(c_p, c_n, t, s) tmp = exp(((0.5 * (c_n * t)) + (s * ((c_n * -0.5) + (-0.125 * (c_n * s)))))); end
code[c$95$p_, c$95$n_, t_, s_] := N[Exp[N[(N[(0.5 * N[(c$95$n * t), $MachinePrecision]), $MachinePrecision] + N[(s * N[(N[(c$95$n * -0.5), $MachinePrecision] + N[(-0.125 * N[(c$95$n * s), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
e^{0.5 \cdot \left(c\_n \cdot t\right) + s \cdot \left(c\_n \cdot -0.5 + -0.125 \cdot \left(c\_n \cdot s\right)\right)}
\end{array}
Initial program 90.3%
associate-/l/90.3%
Simplified90.3%
Taylor expanded in c_p around 0 94.5%
pow-to-exp94.4%
pow-to-exp94.5%
div-exp96.3%
sub-neg96.3%
log1p-define96.3%
sub-neg96.3%
log1p-define96.3%
Applied egg-rr96.3%
Taylor expanded in t around 0 96.4%
associate--l+96.5%
distribute-lft-out--96.5%
+-commutative96.5%
fma-define96.5%
sub-neg96.5%
log1p-define96.5%
distribute-neg-frac96.5%
metadata-eval96.5%
*-commutative96.5%
associate-*l*96.5%
*-commutative96.5%
Simplified96.5%
Taylor expanded in s around 0 99.5%
Final simplification99.5%
(FPCore (c_p c_n t s) :precision binary64 (exp (+ (* 0.5 (* c_n t)) (* -0.5 (* c_n s)))))
double code(double c_p, double c_n, double t, double s) {
return exp(((0.5 * (c_n * t)) + (-0.5 * (c_n * s))));
}
real(8) function code(c_p, c_n, t, s)
real(8), intent (in) :: c_p
real(8), intent (in) :: c_n
real(8), intent (in) :: t
real(8), intent (in) :: s
code = exp(((0.5d0 * (c_n * t)) + ((-0.5d0) * (c_n * s))))
end function
public static double code(double c_p, double c_n, double t, double s) {
return Math.exp(((0.5 * (c_n * t)) + (-0.5 * (c_n * s))));
}
def code(c_p, c_n, t, s): return math.exp(((0.5 * (c_n * t)) + (-0.5 * (c_n * s))))
function code(c_p, c_n, t, s) return exp(Float64(Float64(0.5 * Float64(c_n * t)) + Float64(-0.5 * Float64(c_n * s)))) end
function tmp = code(c_p, c_n, t, s) tmp = exp(((0.5 * (c_n * t)) + (-0.5 * (c_n * s)))); end
code[c$95$p_, c$95$n_, t_, s_] := N[Exp[N[(N[(0.5 * N[(c$95$n * t), $MachinePrecision]), $MachinePrecision] + N[(-0.5 * N[(c$95$n * s), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
e^{0.5 \cdot \left(c\_n \cdot t\right) + -0.5 \cdot \left(c\_n \cdot s\right)}
\end{array}
Initial program 90.3%
associate-/l/90.3%
Simplified90.3%
Taylor expanded in c_p around 0 94.5%
pow-to-exp94.4%
pow-to-exp94.5%
div-exp96.3%
sub-neg96.3%
log1p-define96.3%
sub-neg96.3%
log1p-define96.3%
Applied egg-rr96.3%
Taylor expanded in t around 0 96.4%
associate--l+96.5%
distribute-lft-out--96.5%
+-commutative96.5%
fma-define96.5%
sub-neg96.5%
log1p-define96.5%
distribute-neg-frac96.5%
metadata-eval96.5%
*-commutative96.5%
associate-*l*96.5%
*-commutative96.5%
Simplified96.5%
Taylor expanded in s around 0 96.8%
Final simplification96.8%
(FPCore (c_p c_n t s) :precision binary64 (exp (* c_n (* 0.5 t))))
double code(double c_p, double c_n, double t, double s) {
return exp((c_n * (0.5 * t)));
}
real(8) function code(c_p, c_n, t, s)
real(8), intent (in) :: c_p
real(8), intent (in) :: c_n
real(8), intent (in) :: t
real(8), intent (in) :: s
code = exp((c_n * (0.5d0 * t)))
end function
public static double code(double c_p, double c_n, double t, double s) {
return Math.exp((c_n * (0.5 * t)));
}
def code(c_p, c_n, t, s): return math.exp((c_n * (0.5 * t)))
function code(c_p, c_n, t, s) return exp(Float64(c_n * Float64(0.5 * t))) end
function tmp = code(c_p, c_n, t, s) tmp = exp((c_n * (0.5 * t))); end
code[c$95$p_, c$95$n_, t_, s_] := N[Exp[N[(c$95$n * N[(0.5 * t), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
\begin{array}{l}
\\
e^{c\_n \cdot \left(0.5 \cdot t\right)}
\end{array}
Initial program 90.3%
associate-/l/90.3%
Simplified90.3%
Taylor expanded in c_p around 0 94.5%
pow-to-exp94.4%
pow-to-exp94.5%
div-exp96.3%
sub-neg96.3%
log1p-define96.3%
sub-neg96.3%
log1p-define96.3%
Applied egg-rr96.3%
Taylor expanded in t around 0 96.4%
associate--l+96.5%
distribute-lft-out--96.5%
+-commutative96.5%
fma-define96.5%
sub-neg96.5%
log1p-define96.5%
distribute-neg-frac96.5%
metadata-eval96.5%
*-commutative96.5%
associate-*l*96.5%
*-commutative96.5%
Simplified96.5%
Taylor expanded in s around 0 95.7%
associate-*r*95.7%
*-commutative95.7%
associate-*r*95.7%
Simplified95.7%
(FPCore (c_p c_n t s) :precision binary64 1.0)
double code(double c_p, double c_n, double t, double s) {
return 1.0;
}
real(8) function code(c_p, c_n, t, s)
real(8), intent (in) :: c_p
real(8), intent (in) :: c_n
real(8), intent (in) :: t
real(8), intent (in) :: s
code = 1.0d0
end function
public static double code(double c_p, double c_n, double t, double s) {
return 1.0;
}
def code(c_p, c_n, t, s): return 1.0
function code(c_p, c_n, t, s) return 1.0 end
function tmp = code(c_p, c_n, t, s) tmp = 1.0; end
code[c$95$p_, c$95$n_, t_, s_] := 1.0
\begin{array}{l}
\\
1
\end{array}
Initial program 90.3%
associate-/l/90.3%
Simplified90.3%
Taylor expanded in c_n around 0 91.7%
Taylor expanded in c_p around 0 86.6%
Taylor expanded in c_p around 0 94.4%
(FPCore (c_p c_n t s) :precision binary64 (* (pow (/ (+ 1.0 (exp (- t))) (+ 1.0 (exp (- s)))) c_p) (pow (/ (+ 1.0 (exp t)) (+ 1.0 (exp s))) c_n)))
double code(double c_p, double c_n, double t, double s) {
return pow(((1.0 + exp(-t)) / (1.0 + exp(-s))), c_p) * pow(((1.0 + exp(t)) / (1.0 + exp(s))), c_n);
}
real(8) function code(c_p, c_n, t, s)
real(8), intent (in) :: c_p
real(8), intent (in) :: c_n
real(8), intent (in) :: t
real(8), intent (in) :: s
code = (((1.0d0 + exp(-t)) / (1.0d0 + exp(-s))) ** c_p) * (((1.0d0 + exp(t)) / (1.0d0 + exp(s))) ** c_n)
end function
public static double code(double c_p, double c_n, double t, double s) {
return Math.pow(((1.0 + Math.exp(-t)) / (1.0 + Math.exp(-s))), c_p) * Math.pow(((1.0 + Math.exp(t)) / (1.0 + Math.exp(s))), c_n);
}
def code(c_p, c_n, t, s): return math.pow(((1.0 + math.exp(-t)) / (1.0 + math.exp(-s))), c_p) * math.pow(((1.0 + math.exp(t)) / (1.0 + math.exp(s))), c_n)
function code(c_p, c_n, t, s) return Float64((Float64(Float64(1.0 + exp(Float64(-t))) / Float64(1.0 + exp(Float64(-s)))) ^ c_p) * (Float64(Float64(1.0 + exp(t)) / Float64(1.0 + exp(s))) ^ c_n)) end
function tmp = code(c_p, c_n, t, s) tmp = (((1.0 + exp(-t)) / (1.0 + exp(-s))) ^ c_p) * (((1.0 + exp(t)) / (1.0 + exp(s))) ^ c_n); end
code[c$95$p_, c$95$n_, t_, s_] := N[(N[Power[N[(N[(1.0 + N[Exp[(-t)], $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[Exp[(-s)], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], c$95$p], $MachinePrecision] * N[Power[N[(N[(1.0 + N[Exp[t], $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[Exp[s], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], c$95$n], $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
{\left(\frac{1 + e^{-t}}{1 + e^{-s}}\right)}^{c\_p} \cdot {\left(\frac{1 + e^{t}}{1 + e^{s}}\right)}^{c\_n}
\end{array}
herbie shell --seed 2024180
(FPCore (c_p c_n t s)
:name "Harley's example"
:precision binary64
:pre (and (< 0.0 c_p) (< 0.0 c_n))
:alt
(! :herbie-platform default (* (pow (/ (+ 1 (exp (- t))) (+ 1 (exp (- s)))) c_p) (pow (/ (+ 1 (exp t)) (+ 1 (exp s))) c_n)))
(/ (* (pow (/ 1.0 (+ 1.0 (exp (- s)))) c_p) (pow (- 1.0 (/ 1.0 (+ 1.0 (exp (- s))))) c_n)) (* (pow (/ 1.0 (+ 1.0 (exp (- t)))) c_p) (pow (- 1.0 (/ 1.0 (+ 1.0 (exp (- t))))) c_n))))