(FPCore (x y)
:precision binary64
(/
(+
2.0
(*
(*
(* (sqrt 2.0) (- (sin x) (/ (sin y) 16.0)))
(- (sin y) (/ (sin x) 16.0)))
(- (cos x) (cos y))))
(*
3.0
(+
(+ 1.0 (* (/ (- (sqrt 5.0) 1.0) 2.0) (cos x)))
(* (/ (- 3.0 (sqrt 5.0)) 2.0) (cos y))))))(FPCore (x y)
:precision binary64
(log1p
(expm1
(/
(+
2.0
(*
(- (cos x) (cos y))
(*
(sqrt 2.0)
(* (+ (sin x) (* (sin y) -0.0625)) (+ (sin y) (* (sin x) -0.0625))))))
(*
3.0
(+
(+ 1.0 (/ (* (cos x) (+ (sqrt 5.0) -1.0)) 2.0))
(* (cos y) (/ 4.0 (* 2.0 (+ 3.0 (sqrt 5.0)))))))))))double code(double x, double y) {
return (2.0 + (((sqrt(2.0) * (sin(x) - (sin(y) / 16.0))) * (sin(y) - (sin(x) / 16.0))) * (cos(x) - cos(y)))) / (3.0 * ((1.0 + (((sqrt(5.0) - 1.0) / 2.0) * cos(x))) + (((3.0 - sqrt(5.0)) / 2.0) * cos(y))));
}
double code(double x, double y) {
return log1p(expm1(((2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * ((sin(x) + (sin(y) * -0.0625)) * (sin(y) + (sin(x) * -0.0625)))))) / (3.0 * ((1.0 + ((cos(x) * (sqrt(5.0) + -1.0)) / 2.0)) + (cos(y) * (4.0 / (2.0 * (3.0 + sqrt(5.0))))))))));
}
public static double code(double x, double y) {
return (2.0 + (((Math.sqrt(2.0) * (Math.sin(x) - (Math.sin(y) / 16.0))) * (Math.sin(y) - (Math.sin(x) / 16.0))) * (Math.cos(x) - Math.cos(y)))) / (3.0 * ((1.0 + (((Math.sqrt(5.0) - 1.0) / 2.0) * Math.cos(x))) + (((3.0 - Math.sqrt(5.0)) / 2.0) * Math.cos(y))));
}
public static double code(double x, double y) {
return Math.log1p(Math.expm1(((2.0 + ((Math.cos(x) - Math.cos(y)) * (Math.sqrt(2.0) * ((Math.sin(x) + (Math.sin(y) * -0.0625)) * (Math.sin(y) + (Math.sin(x) * -0.0625)))))) / (3.0 * ((1.0 + ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) / 2.0)) + (Math.cos(y) * (4.0 / (2.0 * (3.0 + Math.sqrt(5.0))))))))));
}
def code(x, y): return (2.0 + (((math.sqrt(2.0) * (math.sin(x) - (math.sin(y) / 16.0))) * (math.sin(y) - (math.sin(x) / 16.0))) * (math.cos(x) - math.cos(y)))) / (3.0 * ((1.0 + (((math.sqrt(5.0) - 1.0) / 2.0) * math.cos(x))) + (((3.0 - math.sqrt(5.0)) / 2.0) * math.cos(y))))
def code(x, y): return math.log1p(math.expm1(((2.0 + ((math.cos(x) - math.cos(y)) * (math.sqrt(2.0) * ((math.sin(x) + (math.sin(y) * -0.0625)) * (math.sin(y) + (math.sin(x) * -0.0625)))))) / (3.0 * ((1.0 + ((math.cos(x) * (math.sqrt(5.0) + -1.0)) / 2.0)) + (math.cos(y) * (4.0 / (2.0 * (3.0 + math.sqrt(5.0))))))))))
function code(x, y) return Float64(Float64(2.0 + Float64(Float64(Float64(sqrt(2.0) * Float64(sin(x) - Float64(sin(y) / 16.0))) * Float64(sin(y) - Float64(sin(x) / 16.0))) * Float64(cos(x) - cos(y)))) / Float64(3.0 * Float64(Float64(1.0 + Float64(Float64(Float64(sqrt(5.0) - 1.0) / 2.0) * cos(x))) + Float64(Float64(Float64(3.0 - sqrt(5.0)) / 2.0) * cos(y))))) end
function code(x, y) return log1p(expm1(Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(Float64(sin(x) + Float64(sin(y) * -0.0625)) * Float64(sin(y) + Float64(sin(x) * -0.0625)))))) / Float64(3.0 * Float64(Float64(1.0 + Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) / 2.0)) + Float64(cos(y) * Float64(4.0 / Float64(2.0 * Float64(3.0 + sqrt(5.0)))))))))) end
code[x_, y_] := N[(N[(2.0 + N[(N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] - N[(N[Sin[y], $MachinePrecision] / 16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] - N[(N[Sin[x], $MachinePrecision] / 16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(N[(1.0 + N[(N[(N[(N[Sqrt[5.0], $MachinePrecision] - 1.0), $MachinePrecision] / 2.0), $MachinePrecision] * N[Cos[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision] * N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[x_, y_] := N[Log[1 + N[(Exp[N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(N[(1.0 + N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(4.0 / N[(2.0 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]] - 1), $MachinePrecision]], $MachinePrecision]
\frac{2 + \left(\left(\sqrt{2} \cdot \left(\sin x - \frac{\sin y}{16}\right)\right) \cdot \left(\sin y - \frac{\sin x}{16}\right)\right) \cdot \left(\cos x - \cos y\right)}{3 \cdot \left(\left(1 + \frac{\sqrt{5} - 1}{2} \cdot \cos x\right) + \frac{3 - \sqrt{5}}{2} \cdot \cos y\right)}
\mathsf{log1p}\left(\mathsf{expm1}\left(\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(\left(\sin x + \sin y \cdot -0.0625\right) \cdot \left(\sin y + \sin x \cdot -0.0625\right)\right)\right)}{3 \cdot \left(\left(1 + \frac{\cos x \cdot \left(\sqrt{5} + -1\right)}{2}\right) + \cos y \cdot \frac{4}{2 \cdot \left(3 + \sqrt{5}\right)}\right)}\right)\right)
Results
Initial program 0.5
Applied egg-rr0.4
Applied egg-rr0.5
Applied egg-rr0.5
Final simplification0.5
herbie shell --seed 2022206
(FPCore (x y)
:name "Diagrams.TwoD.Path.Metafont.Internal:hobbyF from diagrams-contrib-1.3.0.5"
:precision binary64
(/ (+ 2.0 (* (* (* (sqrt 2.0) (- (sin x) (/ (sin y) 16.0))) (- (sin y) (/ (sin x) 16.0))) (- (cos x) (cos y)))) (* 3.0 (+ (+ 1.0 (* (/ (- (sqrt 5.0) 1.0) 2.0) (cos x))) (* (/ (- 3.0 (sqrt 5.0)) 2.0) (cos y))))))