
(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))))))
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))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (2.0d0 + (((sqrt(2.0d0) * (sin(x) - (sin(y) / 16.0d0))) * (sin(y) - (sin(x) / 16.0d0))) * (cos(x) - cos(y)))) / (3.0d0 * ((1.0d0 + (((sqrt(5.0d0) - 1.0d0) / 2.0d0) * cos(x))) + (((3.0d0 - sqrt(5.0d0)) / 2.0d0) * cos(y))))
end function
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))));
}
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))))
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 tmp = code(x, y) tmp = (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)))); 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]
\begin{array}{l}
\\
\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)}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 44 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(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))))))
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))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (2.0d0 + (((sqrt(2.0d0) * (sin(x) - (sin(y) / 16.0d0))) * (sin(y) - (sin(x) / 16.0d0))) * (cos(x) - cos(y)))) / (3.0d0 * ((1.0d0 + (((sqrt(5.0d0) - 1.0d0) / 2.0d0) * cos(x))) + (((3.0d0 - sqrt(5.0d0)) / 2.0d0) * cos(y))))
end function
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))));
}
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))))
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 tmp = code(x, y) tmp = (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)))); 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]
\begin{array}{l}
\\
\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)}
\end{array}
(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))))
(fma
(/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0))))
3.0
(* 3.0 (+ 1.0 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.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)))) / fma((cos(y) / (0.5 * (3.0 + sqrt(5.0)))), 3.0, (3.0 * (1.0 + (cos(x) / (0.5 * (sqrt(5.0) + 1.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)))) / fma(Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))), 3.0, Float64(3.0 * Float64(1.0 + Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.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[(N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 3.0 + N[(3.0 * N[(1.0 + N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\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)}{\mathsf{fma}\left(\frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}, 3, 3 \cdot \left(1 + \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\right)\right)}
\end{array}
Initial program 99.3%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.4%
Final simplification99.4%
(FPCore (x y)
:precision binary64
(/
(+
2.0
(*
(+ (sin x) (/ (sin y) -16.0))
(* (+ (sin y) (/ (sin x) -16.0)) (* (sqrt 2.0) (- (cos x) (cos y))))))
(+
3.0
(*
1.5
(+
(* (cos y) (/ 4.0 (+ 3.0 (sqrt 5.0))))
(* (cos x) (+ (sqrt 5.0) -1.0)))))))
double code(double x, double y) {
return (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (cos(x) - cos(y)))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / (3.0 + sqrt(5.0)))) + (cos(x) * (sqrt(5.0) + -1.0)))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (2.0d0 + ((sin(x) + (sin(y) / (-16.0d0))) * ((sin(y) + (sin(x) / (-16.0d0))) * (sqrt(2.0d0) * (cos(x) - cos(y)))))) / (3.0d0 + (1.5d0 * ((cos(y) * (4.0d0 / (3.0d0 + sqrt(5.0d0)))) + (cos(x) * (sqrt(5.0d0) + (-1.0d0))))))
end function
public static double code(double x, double y) {
return (2.0 + ((Math.sin(x) + (Math.sin(y) / -16.0)) * ((Math.sin(y) + (Math.sin(x) / -16.0)) * (Math.sqrt(2.0) * (Math.cos(x) - Math.cos(y)))))) / (3.0 + (1.5 * ((Math.cos(y) * (4.0 / (3.0 + Math.sqrt(5.0)))) + (Math.cos(x) * (Math.sqrt(5.0) + -1.0)))));
}
def code(x, y): return (2.0 + ((math.sin(x) + (math.sin(y) / -16.0)) * ((math.sin(y) + (math.sin(x) / -16.0)) * (math.sqrt(2.0) * (math.cos(x) - math.cos(y)))))) / (3.0 + (1.5 * ((math.cos(y) * (4.0 / (3.0 + math.sqrt(5.0)))) + (math.cos(x) * (math.sqrt(5.0) + -1.0)))))
function code(x, y) return Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(sin(y) / -16.0)) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(cos(x) - cos(y)))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(y) * Float64(4.0 / Float64(3.0 + sqrt(5.0)))) + Float64(cos(x) * Float64(sqrt(5.0) + -1.0)))))) end
function tmp = code(x, y) tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (cos(x) - cos(y)))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / (3.0 + sqrt(5.0)))) + (cos(x) * (sqrt(5.0) + -1.0))))); end
code[x_, y_] := N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[y], $MachinePrecision] * N[(4.0 / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2 + \left(\sin x + \frac{\sin y}{-16}\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\cos x - \cos y\right)\right)\right)}{3 + 1.5 \cdot \left(\cos y \cdot \frac{4}{3 + \sqrt{5}} + \cos x \cdot \left(\sqrt{5} + -1\right)\right)}
\end{array}
Initial program 99.3%
Simplified99.3%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.4%
Applied egg-rr99.4%
(FPCore (x y)
:precision binary64
(/
(+
2.0
(*
(* (* (sqrt 2.0) (- (cos x) (cos y))) (+ (sin y) (* (sin x) -0.0625)))
(+ (sin x) (* (sin y) -0.0625))))
(+
3.0
(+
(* (+ (sqrt 5.0) -1.0) (* (cos x) 1.5))
(* 6.0 (/ (cos y) (+ 3.0 (sqrt 5.0))))))))
double code(double x, double y) {
return (2.0 + (((sqrt(2.0) * (cos(x) - cos(y))) * (sin(y) + (sin(x) * -0.0625))) * (sin(x) + (sin(y) * -0.0625)))) / (3.0 + (((sqrt(5.0) + -1.0) * (cos(x) * 1.5)) + (6.0 * (cos(y) / (3.0 + sqrt(5.0))))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (2.0d0 + (((sqrt(2.0d0) * (cos(x) - cos(y))) * (sin(y) + (sin(x) * (-0.0625d0)))) * (sin(x) + (sin(y) * (-0.0625d0))))) / (3.0d0 + (((sqrt(5.0d0) + (-1.0d0)) * (cos(x) * 1.5d0)) + (6.0d0 * (cos(y) / (3.0d0 + sqrt(5.0d0))))))
end function
public static double code(double x, double y) {
return (2.0 + (((Math.sqrt(2.0) * (Math.cos(x) - Math.cos(y))) * (Math.sin(y) + (Math.sin(x) * -0.0625))) * (Math.sin(x) + (Math.sin(y) * -0.0625)))) / (3.0 + (((Math.sqrt(5.0) + -1.0) * (Math.cos(x) * 1.5)) + (6.0 * (Math.cos(y) / (3.0 + Math.sqrt(5.0))))));
}
def code(x, y): return (2.0 + (((math.sqrt(2.0) * (math.cos(x) - math.cos(y))) * (math.sin(y) + (math.sin(x) * -0.0625))) * (math.sin(x) + (math.sin(y) * -0.0625)))) / (3.0 + (((math.sqrt(5.0) + -1.0) * (math.cos(x) * 1.5)) + (6.0 * (math.cos(y) / (3.0 + math.sqrt(5.0))))))
function code(x, y) return Float64(Float64(2.0 + Float64(Float64(Float64(sqrt(2.0) * Float64(cos(x) - cos(y))) * Float64(sin(y) + Float64(sin(x) * -0.0625))) * Float64(sin(x) + Float64(sin(y) * -0.0625)))) / Float64(3.0 + Float64(Float64(Float64(sqrt(5.0) + -1.0) * Float64(cos(x) * 1.5)) + Float64(6.0 * Float64(cos(y) / Float64(3.0 + sqrt(5.0))))))) end
function tmp = code(x, y) tmp = (2.0 + (((sqrt(2.0) * (cos(x) - cos(y))) * (sin(y) + (sin(x) * -0.0625))) * (sin(x) + (sin(y) * -0.0625)))) / (3.0 + (((sqrt(5.0) + -1.0) * (cos(x) * 1.5)) + (6.0 * (cos(y) / (3.0 + sqrt(5.0)))))); end
code[x_, y_] := N[(N[(2.0 + N[(N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(N[(N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] * 1.5), $MachinePrecision]), $MachinePrecision] + N[(6.0 * N[(N[Cos[y], $MachinePrecision] / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2 + \left(\left(\sqrt{2} \cdot \left(\cos x - \cos y\right)\right) \cdot \left(\sin y + \sin x \cdot -0.0625\right)\right) \cdot \left(\sin x + \sin y \cdot -0.0625\right)}{3 + \left(\left(\sqrt{5} + -1\right) \cdot \left(\cos x \cdot 1.5\right) + 6 \cdot \frac{\cos y}{3 + \sqrt{5}}\right)}
\end{array}
Initial program 99.3%
Simplified99.3%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.4%
Applied egg-rr99.4%
Taylor expanded in x around inf
Simplified99.3%
Final simplification99.3%
(FPCore (x y)
:precision binary64
(/
(+
0.6666666666666666
(*
0.3333333333333333
(*
(sqrt 2.0)
(*
(- (cos x) (cos y))
(* (+ (sin y) (* (sin x) -0.0625)) (+ (sin x) (* (sin y) -0.0625)))))))
(+
1.0
(* 2.0 (+ (/ (cos y) (+ 3.0 (sqrt 5.0))) (/ (cos x) (+ (sqrt 5.0) 1.0)))))))
double code(double x, double y) {
return (0.6666666666666666 + (0.3333333333333333 * (sqrt(2.0) * ((cos(x) - cos(y)) * ((sin(y) + (sin(x) * -0.0625)) * (sin(x) + (sin(y) * -0.0625))))))) / (1.0 + (2.0 * ((cos(y) / (3.0 + sqrt(5.0))) + (cos(x) / (sqrt(5.0) + 1.0)))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (0.6666666666666666d0 + (0.3333333333333333d0 * (sqrt(2.0d0) * ((cos(x) - cos(y)) * ((sin(y) + (sin(x) * (-0.0625d0))) * (sin(x) + (sin(y) * (-0.0625d0)))))))) / (1.0d0 + (2.0d0 * ((cos(y) / (3.0d0 + sqrt(5.0d0))) + (cos(x) / (sqrt(5.0d0) + 1.0d0)))))
end function
public static double code(double x, double y) {
return (0.6666666666666666 + (0.3333333333333333 * (Math.sqrt(2.0) * ((Math.cos(x) - Math.cos(y)) * ((Math.sin(y) + (Math.sin(x) * -0.0625)) * (Math.sin(x) + (Math.sin(y) * -0.0625))))))) / (1.0 + (2.0 * ((Math.cos(y) / (3.0 + Math.sqrt(5.0))) + (Math.cos(x) / (Math.sqrt(5.0) + 1.0)))));
}
def code(x, y): return (0.6666666666666666 + (0.3333333333333333 * (math.sqrt(2.0) * ((math.cos(x) - math.cos(y)) * ((math.sin(y) + (math.sin(x) * -0.0625)) * (math.sin(x) + (math.sin(y) * -0.0625))))))) / (1.0 + (2.0 * ((math.cos(y) / (3.0 + math.sqrt(5.0))) + (math.cos(x) / (math.sqrt(5.0) + 1.0)))))
function code(x, y) return Float64(Float64(0.6666666666666666 + Float64(0.3333333333333333 * Float64(sqrt(2.0) * Float64(Float64(cos(x) - cos(y)) * Float64(Float64(sin(y) + Float64(sin(x) * -0.0625)) * Float64(sin(x) + Float64(sin(y) * -0.0625))))))) / Float64(1.0 + Float64(2.0 * Float64(Float64(cos(y) / Float64(3.0 + sqrt(5.0))) + Float64(cos(x) / Float64(sqrt(5.0) + 1.0)))))) end
function tmp = code(x, y) tmp = (0.6666666666666666 + (0.3333333333333333 * (sqrt(2.0) * ((cos(x) - cos(y)) * ((sin(y) + (sin(x) * -0.0625)) * (sin(x) + (sin(y) * -0.0625))))))) / (1.0 + (2.0 * ((cos(y) / (3.0 + sqrt(5.0))) + (cos(x) / (sqrt(5.0) + 1.0))))); end
code[x_, y_] := N[(N[(0.6666666666666666 + N[(0.3333333333333333 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(2.0 * N[(N[(N[Cos[y], $MachinePrecision] / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] / N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{0.6666666666666666 + 0.3333333333333333 \cdot \left(\sqrt{2} \cdot \left(\left(\cos x - \cos y\right) \cdot \left(\left(\sin y + \sin x \cdot -0.0625\right) \cdot \left(\sin x + \sin y \cdot -0.0625\right)\right)\right)\right)}{1 + 2 \cdot \left(\frac{\cos y}{3 + \sqrt{5}} + \frac{\cos x}{\sqrt{5} + 1}\right)}
\end{array}
Initial program 99.3%
Applied egg-rr99.3%
Taylor expanded in x around inf
Simplified99.3%
Final simplification99.3%
(FPCore (x y)
:precision binary64
(/
(+
2.0
(*
(+ (sin x) (/ (sin y) -16.0))
(* (sqrt 2.0) (* (- (cos x) (cos y)) (+ (sin y) (/ (sin x) -16.0))))))
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0))))))))
double code(double x, double y) {
return (2.0 + ((sin(x) + (sin(y) / -16.0)) * (sqrt(2.0) * ((cos(x) - cos(y)) * (sin(y) + (sin(x) / -16.0)))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (2.0d0 + ((sin(x) + (sin(y) / (-16.0d0))) * (sqrt(2.0d0) * ((cos(x) - cos(y)) * (sin(y) + (sin(x) / (-16.0d0))))))) / (3.0d0 + (1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) + (cos(y) * (3.0d0 - sqrt(5.0d0))))))
end function
public static double code(double x, double y) {
return (2.0 + ((Math.sin(x) + (Math.sin(y) / -16.0)) * (Math.sqrt(2.0) * ((Math.cos(x) - Math.cos(y)) * (Math.sin(y) + (Math.sin(x) / -16.0)))))) / (3.0 + (1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))));
}
def code(x, y): return (2.0 + ((math.sin(x) + (math.sin(y) / -16.0)) * (math.sqrt(2.0) * ((math.cos(x) - math.cos(y)) * (math.sin(y) + (math.sin(x) / -16.0)))))) / (3.0 + (1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) + (math.cos(y) * (3.0 - math.sqrt(5.0))))))
function code(x, y) return Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(sin(y) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(cos(x) - cos(y)) * Float64(sin(y) + Float64(sin(x) / -16.0)))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))) end
function tmp = code(x, y) tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * (sqrt(2.0) * ((cos(x) - cos(y)) * (sin(y) + (sin(x) / -16.0)))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0)))))); end
code[x_, y_] := N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2 + \left(\sin x + \frac{\sin y}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(\cos x - \cos y\right) \cdot \left(\sin y + \frac{\sin x}{-16}\right)\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}
\end{array}
Initial program 99.3%
Simplified99.3%
*-lowering-*.f64N/A
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
/-lowering-/.f64N/A
sin-lowering-sin.f64N/A
*-commutativeN/A
frac-2negN/A
metadata-evalN/A
div-invN/A
cancel-sign-sub-invN/A
div-invN/A
associate-*l*N/A
*-commutativeN/A
Applied egg-rr99.3%
Final simplification99.3%
(FPCore (x y)
:precision binary64
(/
(+
2.0
(*
(* (sqrt 2.0) (+ (sin y) (/ (sin x) -16.0)))
(* (- (cos x) (cos y)) (+ (sin x) (/ (sin y) -16.0)))))
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0))))))))
double code(double x, double y) {
return (2.0 + ((sqrt(2.0) * (sin(y) + (sin(x) / -16.0))) * ((cos(x) - cos(y)) * (sin(x) + (sin(y) / -16.0))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (2.0d0 + ((sqrt(2.0d0) * (sin(y) + (sin(x) / (-16.0d0)))) * ((cos(x) - cos(y)) * (sin(x) + (sin(y) / (-16.0d0)))))) / (3.0d0 + (1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) + (cos(y) * (3.0d0 - sqrt(5.0d0))))))
end function
public static double code(double x, double y) {
return (2.0 + ((Math.sqrt(2.0) * (Math.sin(y) + (Math.sin(x) / -16.0))) * ((Math.cos(x) - Math.cos(y)) * (Math.sin(x) + (Math.sin(y) / -16.0))))) / (3.0 + (1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))));
}
def code(x, y): return (2.0 + ((math.sqrt(2.0) * (math.sin(y) + (math.sin(x) / -16.0))) * ((math.cos(x) - math.cos(y)) * (math.sin(x) + (math.sin(y) / -16.0))))) / (3.0 + (1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) + (math.cos(y) * (3.0 - math.sqrt(5.0))))))
function code(x, y) return Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(sin(y) + Float64(sin(x) / -16.0))) * Float64(Float64(cos(x) - cos(y)) * Float64(sin(x) + Float64(sin(y) / -16.0))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))) end
function tmp = code(x, y) tmp = (2.0 + ((sqrt(2.0) * (sin(y) + (sin(x) / -16.0))) * ((cos(x) - cos(y)) * (sin(x) + (sin(y) / -16.0))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0)))))); end
code[x_, y_] := N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2 + \left(\sqrt{2} \cdot \left(\sin y + \frac{\sin x}{-16}\right)\right) \cdot \left(\left(\cos x - \cos y\right) \cdot \left(\sin x + \frac{\sin y}{-16}\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}
\end{array}
Initial program 99.3%
Simplified99.3%
*-commutativeN/A
associate-*r*N/A
associate-*l*N/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Final simplification99.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ 3.0 (sqrt 5.0)))
(t_1 (- (cos x) (cos y)))
(t_2
(+
2.0
(* (* t_1 (+ (sin y) (/ (sin x) -16.0))) (* (sqrt 2.0) (sin x)))))
(t_3 (+ (sqrt 5.0) -1.0)))
(if (<= x -1.1)
(/
t_2
(+ 3.0 (+ (/ (* (cos x) 3.0) (/ 2.0 t_3)) (* 6.0 (/ (cos y) t_0)))))
(if (<= x 0.9)
(/
(+
2.0
(*
(+ (sin x) (/ (sin y) -16.0))
(*
(* (sqrt 2.0) t_1)
(+
(sin y)
(/
(*
x
(+
1.0
(*
(* x x)
(+
(*
(* x x)
(+ 0.008333333333333333 (* (* x x) -0.0001984126984126984)))
-0.16666666666666666))))
-16.0)))))
(+ 3.0 (* 1.5 (+ (* (cos y) (/ 4.0 t_0)) (* (cos x) t_3)))))
(/
(/
t_2
(+
1.0
(+ (/ (cos y) (* 0.5 t_0)) (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0))))))
3.0)))))
double code(double x, double y) {
double t_0 = 3.0 + sqrt(5.0);
double t_1 = cos(x) - cos(y);
double t_2 = 2.0 + ((t_1 * (sin(y) + (sin(x) / -16.0))) * (sqrt(2.0) * sin(x)));
double t_3 = sqrt(5.0) + -1.0;
double tmp;
if (x <= -1.1) {
tmp = t_2 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (cos(y) / t_0))));
} else if (x <= 0.9) {
tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sqrt(2.0) * t_1) * (sin(y) + ((x * (1.0 + ((x * x) * (((x * x) * (0.008333333333333333 + ((x * x) * -0.0001984126984126984))) + -0.16666666666666666)))) / -16.0))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / t_0)) + (cos(x) * t_3))));
} else {
tmp = (t_2 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = 3.0d0 + sqrt(5.0d0)
t_1 = cos(x) - cos(y)
t_2 = 2.0d0 + ((t_1 * (sin(y) + (sin(x) / (-16.0d0)))) * (sqrt(2.0d0) * sin(x)))
t_3 = sqrt(5.0d0) + (-1.0d0)
if (x <= (-1.1d0)) then
tmp = t_2 / (3.0d0 + (((cos(x) * 3.0d0) / (2.0d0 / t_3)) + (6.0d0 * (cos(y) / t_0))))
else if (x <= 0.9d0) then
tmp = (2.0d0 + ((sin(x) + (sin(y) / (-16.0d0))) * ((sqrt(2.0d0) * t_1) * (sin(y) + ((x * (1.0d0 + ((x * x) * (((x * x) * (0.008333333333333333d0 + ((x * x) * (-0.0001984126984126984d0)))) + (-0.16666666666666666d0))))) / (-16.0d0)))))) / (3.0d0 + (1.5d0 * ((cos(y) * (4.0d0 / t_0)) + (cos(x) * t_3))))
else
tmp = (t_2 / (1.0d0 + ((cos(y) / (0.5d0 * t_0)) + (cos(x) / (0.5d0 * (sqrt(5.0d0) + 1.0d0)))))) / 3.0d0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 + Math.sqrt(5.0);
double t_1 = Math.cos(x) - Math.cos(y);
double t_2 = 2.0 + ((t_1 * (Math.sin(y) + (Math.sin(x) / -16.0))) * (Math.sqrt(2.0) * Math.sin(x)));
double t_3 = Math.sqrt(5.0) + -1.0;
double tmp;
if (x <= -1.1) {
tmp = t_2 / (3.0 + (((Math.cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (Math.cos(y) / t_0))));
} else if (x <= 0.9) {
tmp = (2.0 + ((Math.sin(x) + (Math.sin(y) / -16.0)) * ((Math.sqrt(2.0) * t_1) * (Math.sin(y) + ((x * (1.0 + ((x * x) * (((x * x) * (0.008333333333333333 + ((x * x) * -0.0001984126984126984))) + -0.16666666666666666)))) / -16.0))))) / (3.0 + (1.5 * ((Math.cos(y) * (4.0 / t_0)) + (Math.cos(x) * t_3))));
} else {
tmp = (t_2 / (1.0 + ((Math.cos(y) / (0.5 * t_0)) + (Math.cos(x) / (0.5 * (Math.sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
def code(x, y): t_0 = 3.0 + math.sqrt(5.0) t_1 = math.cos(x) - math.cos(y) t_2 = 2.0 + ((t_1 * (math.sin(y) + (math.sin(x) / -16.0))) * (math.sqrt(2.0) * math.sin(x))) t_3 = math.sqrt(5.0) + -1.0 tmp = 0 if x <= -1.1: tmp = t_2 / (3.0 + (((math.cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (math.cos(y) / t_0)))) elif x <= 0.9: tmp = (2.0 + ((math.sin(x) + (math.sin(y) / -16.0)) * ((math.sqrt(2.0) * t_1) * (math.sin(y) + ((x * (1.0 + ((x * x) * (((x * x) * (0.008333333333333333 + ((x * x) * -0.0001984126984126984))) + -0.16666666666666666)))) / -16.0))))) / (3.0 + (1.5 * ((math.cos(y) * (4.0 / t_0)) + (math.cos(x) * t_3)))) else: tmp = (t_2 / (1.0 + ((math.cos(y) / (0.5 * t_0)) + (math.cos(x) / (0.5 * (math.sqrt(5.0) + 1.0)))))) / 3.0 return tmp
function code(x, y) t_0 = Float64(3.0 + sqrt(5.0)) t_1 = Float64(cos(x) - cos(y)) t_2 = Float64(2.0 + Float64(Float64(t_1 * Float64(sin(y) + Float64(sin(x) / -16.0))) * Float64(sqrt(2.0) * sin(x)))) t_3 = Float64(sqrt(5.0) + -1.0) tmp = 0.0 if (x <= -1.1) tmp = Float64(t_2 / Float64(3.0 + Float64(Float64(Float64(cos(x) * 3.0) / Float64(2.0 / t_3)) + Float64(6.0 * Float64(cos(y) / t_0))))); elseif (x <= 0.9) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(sin(y) / -16.0)) * Float64(Float64(sqrt(2.0) * t_1) * Float64(sin(y) + Float64(Float64(x * Float64(1.0 + Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.008333333333333333 + Float64(Float64(x * x) * -0.0001984126984126984))) + -0.16666666666666666)))) / -16.0))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(y) * Float64(4.0 / t_0)) + Float64(cos(x) * t_3))))); else tmp = Float64(Float64(t_2 / Float64(1.0 + Float64(Float64(cos(y) / Float64(0.5 * t_0)) + Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0)))))) / 3.0); end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 + sqrt(5.0); t_1 = cos(x) - cos(y); t_2 = 2.0 + ((t_1 * (sin(y) + (sin(x) / -16.0))) * (sqrt(2.0) * sin(x))); t_3 = sqrt(5.0) + -1.0; tmp = 0.0; if (x <= -1.1) tmp = t_2 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (cos(y) / t_0)))); elseif (x <= 0.9) tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sqrt(2.0) * t_1) * (sin(y) + ((x * (1.0 + ((x * x) * (((x * x) * (0.008333333333333333 + ((x * x) * -0.0001984126984126984))) + -0.16666666666666666)))) / -16.0))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / t_0)) + (cos(x) * t_3)))); else tmp = (t_2 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(2.0 + N[(N[(t$95$1 * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, If[LessEqual[x, -1.1], N[(t$95$2 / N[(3.0 + N[(N[(N[(N[Cos[x], $MachinePrecision] * 3.0), $MachinePrecision] / N[(2.0 / t$95$3), $MachinePrecision]), $MachinePrecision] + N[(6.0 * N[(N[Cos[y], $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 0.9], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sqrt[2.0], $MachinePrecision] * t$95$1), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[(x * N[(1.0 + N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.008333333333333333 + N[(N[(x * x), $MachinePrecision] * -0.0001984126984126984), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.16666666666666666), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[y], $MachinePrecision] * N[(4.0 / t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$2 / N[(1.0 + N[(N[(N[Cos[y], $MachinePrecision] / N[(0.5 * t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 + \sqrt{5}\\
t_1 := \cos x - \cos y\\
t_2 := 2 + \left(t\_1 \cdot \left(\sin y + \frac{\sin x}{-16}\right)\right) \cdot \left(\sqrt{2} \cdot \sin x\right)\\
t_3 := \sqrt{5} + -1\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;\frac{t\_2}{3 + \left(\frac{\cos x \cdot 3}{\frac{2}{t\_3}} + 6 \cdot \frac{\cos y}{t\_0}\right)}\\
\mathbf{elif}\;x \leq 0.9:\\
\;\;\;\;\frac{2 + \left(\sin x + \frac{\sin y}{-16}\right) \cdot \left(\left(\sqrt{2} \cdot t\_1\right) \cdot \left(\sin y + \frac{x \cdot \left(1 + \left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.008333333333333333 + \left(x \cdot x\right) \cdot -0.0001984126984126984\right) + -0.16666666666666666\right)\right)}{-16}\right)\right)}{3 + 1.5 \cdot \left(\cos y \cdot \frac{4}{t\_0} + \cos x \cdot t\_3\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{t\_2}{1 + \left(\frac{\cos y}{0.5 \cdot t\_0} + \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\right)}}{3}\\
\end{array}
\end{array}
if x < -1.1000000000000001Initial program 99.0%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6459.3%
Simplified59.3%
Applied egg-rr59.5%
if -1.1000000000000001 < x < 0.900000000000000022Initial program 99.7%
Simplified99.6%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in x around 0
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.4%
Simplified99.4%
if 0.900000000000000022 < x Initial program 98.8%
Applied egg-rr99.1%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.8%
Simplified62.8%
Final simplification79.5%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ 3.0 (sqrt 5.0)))
(t_1 (- (cos x) (cos y)))
(t_2
(+
2.0
(* (* t_1 (+ (sin y) (/ (sin x) -16.0))) (* (sqrt 2.0) (sin x)))))
(t_3 (+ (sqrt 5.0) -1.0)))
(if (<= x -1.1)
(/
t_2
(+ 3.0 (+ (/ (* (cos x) 3.0) (/ 2.0 t_3)) (* 6.0 (/ (cos y) t_0)))))
(if (<= x 0.55)
(/
(+
2.0
(*
(+ (sin x) (/ (sin y) -16.0))
(*
(* (sqrt 2.0) t_1)
(+
(sin y)
(/
(*
x
(+
1.0
(*
(* x x)
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))
-16.0)))))
(+ 3.0 (* 1.5 (+ (* (cos y) (/ 4.0 t_0)) (* (cos x) t_3)))))
(/
(/
t_2
(+
1.0
(+ (/ (cos y) (* 0.5 t_0)) (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0))))))
3.0)))))
double code(double x, double y) {
double t_0 = 3.0 + sqrt(5.0);
double t_1 = cos(x) - cos(y);
double t_2 = 2.0 + ((t_1 * (sin(y) + (sin(x) / -16.0))) * (sqrt(2.0) * sin(x)));
double t_3 = sqrt(5.0) + -1.0;
double tmp;
if (x <= -1.1) {
tmp = t_2 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (cos(y) / t_0))));
} else if (x <= 0.55) {
tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sqrt(2.0) * t_1) * (sin(y) + ((x * (1.0 + ((x * x) * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))) / -16.0))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / t_0)) + (cos(x) * t_3))));
} else {
tmp = (t_2 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = 3.0d0 + sqrt(5.0d0)
t_1 = cos(x) - cos(y)
t_2 = 2.0d0 + ((t_1 * (sin(y) + (sin(x) / (-16.0d0)))) * (sqrt(2.0d0) * sin(x)))
t_3 = sqrt(5.0d0) + (-1.0d0)
if (x <= (-1.1d0)) then
tmp = t_2 / (3.0d0 + (((cos(x) * 3.0d0) / (2.0d0 / t_3)) + (6.0d0 * (cos(y) / t_0))))
else if (x <= 0.55d0) then
tmp = (2.0d0 + ((sin(x) + (sin(y) / (-16.0d0))) * ((sqrt(2.0d0) * t_1) * (sin(y) + ((x * (1.0d0 + ((x * x) * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))) / (-16.0d0)))))) / (3.0d0 + (1.5d0 * ((cos(y) * (4.0d0 / t_0)) + (cos(x) * t_3))))
else
tmp = (t_2 / (1.0d0 + ((cos(y) / (0.5d0 * t_0)) + (cos(x) / (0.5d0 * (sqrt(5.0d0) + 1.0d0)))))) / 3.0d0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 + Math.sqrt(5.0);
double t_1 = Math.cos(x) - Math.cos(y);
double t_2 = 2.0 + ((t_1 * (Math.sin(y) + (Math.sin(x) / -16.0))) * (Math.sqrt(2.0) * Math.sin(x)));
double t_3 = Math.sqrt(5.0) + -1.0;
double tmp;
if (x <= -1.1) {
tmp = t_2 / (3.0 + (((Math.cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (Math.cos(y) / t_0))));
} else if (x <= 0.55) {
tmp = (2.0 + ((Math.sin(x) + (Math.sin(y) / -16.0)) * ((Math.sqrt(2.0) * t_1) * (Math.sin(y) + ((x * (1.0 + ((x * x) * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))) / -16.0))))) / (3.0 + (1.5 * ((Math.cos(y) * (4.0 / t_0)) + (Math.cos(x) * t_3))));
} else {
tmp = (t_2 / (1.0 + ((Math.cos(y) / (0.5 * t_0)) + (Math.cos(x) / (0.5 * (Math.sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
def code(x, y): t_0 = 3.0 + math.sqrt(5.0) t_1 = math.cos(x) - math.cos(y) t_2 = 2.0 + ((t_1 * (math.sin(y) + (math.sin(x) / -16.0))) * (math.sqrt(2.0) * math.sin(x))) t_3 = math.sqrt(5.0) + -1.0 tmp = 0 if x <= -1.1: tmp = t_2 / (3.0 + (((math.cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (math.cos(y) / t_0)))) elif x <= 0.55: tmp = (2.0 + ((math.sin(x) + (math.sin(y) / -16.0)) * ((math.sqrt(2.0) * t_1) * (math.sin(y) + ((x * (1.0 + ((x * x) * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))) / -16.0))))) / (3.0 + (1.5 * ((math.cos(y) * (4.0 / t_0)) + (math.cos(x) * t_3)))) else: tmp = (t_2 / (1.0 + ((math.cos(y) / (0.5 * t_0)) + (math.cos(x) / (0.5 * (math.sqrt(5.0) + 1.0)))))) / 3.0 return tmp
function code(x, y) t_0 = Float64(3.0 + sqrt(5.0)) t_1 = Float64(cos(x) - cos(y)) t_2 = Float64(2.0 + Float64(Float64(t_1 * Float64(sin(y) + Float64(sin(x) / -16.0))) * Float64(sqrt(2.0) * sin(x)))) t_3 = Float64(sqrt(5.0) + -1.0) tmp = 0.0 if (x <= -1.1) tmp = Float64(t_2 / Float64(3.0 + Float64(Float64(Float64(cos(x) * 3.0) / Float64(2.0 / t_3)) + Float64(6.0 * Float64(cos(y) / t_0))))); elseif (x <= 0.55) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(sin(y) / -16.0)) * Float64(Float64(sqrt(2.0) * t_1) * Float64(sin(y) + Float64(Float64(x * Float64(1.0 + Float64(Float64(x * x) * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))) / -16.0))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(y) * Float64(4.0 / t_0)) + Float64(cos(x) * t_3))))); else tmp = Float64(Float64(t_2 / Float64(1.0 + Float64(Float64(cos(y) / Float64(0.5 * t_0)) + Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0)))))) / 3.0); end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 + sqrt(5.0); t_1 = cos(x) - cos(y); t_2 = 2.0 + ((t_1 * (sin(y) + (sin(x) / -16.0))) * (sqrt(2.0) * sin(x))); t_3 = sqrt(5.0) + -1.0; tmp = 0.0; if (x <= -1.1) tmp = t_2 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (cos(y) / t_0)))); elseif (x <= 0.55) tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sqrt(2.0) * t_1) * (sin(y) + ((x * (1.0 + ((x * x) * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))) / -16.0))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / t_0)) + (cos(x) * t_3)))); else tmp = (t_2 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(2.0 + N[(N[(t$95$1 * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, If[LessEqual[x, -1.1], N[(t$95$2 / N[(3.0 + N[(N[(N[(N[Cos[x], $MachinePrecision] * 3.0), $MachinePrecision] / N[(2.0 / t$95$3), $MachinePrecision]), $MachinePrecision] + N[(6.0 * N[(N[Cos[y], $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 0.55], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sqrt[2.0], $MachinePrecision] * t$95$1), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[(x * N[(1.0 + N[(N[(x * x), $MachinePrecision] * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[y], $MachinePrecision] * N[(4.0 / t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$2 / N[(1.0 + N[(N[(N[Cos[y], $MachinePrecision] / N[(0.5 * t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 + \sqrt{5}\\
t_1 := \cos x - \cos y\\
t_2 := 2 + \left(t\_1 \cdot \left(\sin y + \frac{\sin x}{-16}\right)\right) \cdot \left(\sqrt{2} \cdot \sin x\right)\\
t_3 := \sqrt{5} + -1\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;\frac{t\_2}{3 + \left(\frac{\cos x \cdot 3}{\frac{2}{t\_3}} + 6 \cdot \frac{\cos y}{t\_0}\right)}\\
\mathbf{elif}\;x \leq 0.55:\\
\;\;\;\;\frac{2 + \left(\sin x + \frac{\sin y}{-16}\right) \cdot \left(\left(\sqrt{2} \cdot t\_1\right) \cdot \left(\sin y + \frac{x \cdot \left(1 + \left(x \cdot x\right) \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)}{-16}\right)\right)}{3 + 1.5 \cdot \left(\cos y \cdot \frac{4}{t\_0} + \cos x \cdot t\_3\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{t\_2}{1 + \left(\frac{\cos y}{0.5 \cdot t\_0} + \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\right)}}{3}\\
\end{array}
\end{array}
if x < -1.1000000000000001Initial program 99.0%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6459.3%
Simplified59.3%
Applied egg-rr59.5%
if -1.1000000000000001 < x < 0.55000000000000004Initial program 99.7%
Simplified99.6%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in x around 0
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.3%
Simplified99.3%
if 0.55000000000000004 < x Initial program 98.8%
Applied egg-rr99.1%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.8%
Simplified62.8%
Final simplification79.5%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ 3.0 (sqrt 5.0)))
(t_1 (- (cos x) (cos y)))
(t_2
(+
2.0
(* (* t_1 (+ (sin y) (/ (sin x) -16.0))) (* (sqrt 2.0) (sin x)))))
(t_3 (+ (sqrt 5.0) -1.0)))
(if (<= x -1.1)
(/
t_2
(+ 3.0 (+ (/ (* (cos x) 3.0) (/ 2.0 t_3)) (* 6.0 (/ (cos y) t_0)))))
(if (<= x 0.32)
(/
(+
2.0
(*
(+ (sin x) (/ (sin y) -16.0))
(*
(* (sqrt 2.0) t_1)
(+
(sin y)
(/ (* x (+ 1.0 (* (* x x) -0.16666666666666666))) -16.0)))))
(+ 3.0 (* 1.5 (+ (* (cos y) (/ 4.0 t_0)) (* (cos x) t_3)))))
(/
(/
t_2
(+
1.0
(+ (/ (cos y) (* 0.5 t_0)) (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0))))))
3.0)))))
double code(double x, double y) {
double t_0 = 3.0 + sqrt(5.0);
double t_1 = cos(x) - cos(y);
double t_2 = 2.0 + ((t_1 * (sin(y) + (sin(x) / -16.0))) * (sqrt(2.0) * sin(x)));
double t_3 = sqrt(5.0) + -1.0;
double tmp;
if (x <= -1.1) {
tmp = t_2 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (cos(y) / t_0))));
} else if (x <= 0.32) {
tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sqrt(2.0) * t_1) * (sin(y) + ((x * (1.0 + ((x * x) * -0.16666666666666666))) / -16.0))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / t_0)) + (cos(x) * t_3))));
} else {
tmp = (t_2 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = 3.0d0 + sqrt(5.0d0)
t_1 = cos(x) - cos(y)
t_2 = 2.0d0 + ((t_1 * (sin(y) + (sin(x) / (-16.0d0)))) * (sqrt(2.0d0) * sin(x)))
t_3 = sqrt(5.0d0) + (-1.0d0)
if (x <= (-1.1d0)) then
tmp = t_2 / (3.0d0 + (((cos(x) * 3.0d0) / (2.0d0 / t_3)) + (6.0d0 * (cos(y) / t_0))))
else if (x <= 0.32d0) then
tmp = (2.0d0 + ((sin(x) + (sin(y) / (-16.0d0))) * ((sqrt(2.0d0) * t_1) * (sin(y) + ((x * (1.0d0 + ((x * x) * (-0.16666666666666666d0)))) / (-16.0d0)))))) / (3.0d0 + (1.5d0 * ((cos(y) * (4.0d0 / t_0)) + (cos(x) * t_3))))
else
tmp = (t_2 / (1.0d0 + ((cos(y) / (0.5d0 * t_0)) + (cos(x) / (0.5d0 * (sqrt(5.0d0) + 1.0d0)))))) / 3.0d0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 + Math.sqrt(5.0);
double t_1 = Math.cos(x) - Math.cos(y);
double t_2 = 2.0 + ((t_1 * (Math.sin(y) + (Math.sin(x) / -16.0))) * (Math.sqrt(2.0) * Math.sin(x)));
double t_3 = Math.sqrt(5.0) + -1.0;
double tmp;
if (x <= -1.1) {
tmp = t_2 / (3.0 + (((Math.cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (Math.cos(y) / t_0))));
} else if (x <= 0.32) {
tmp = (2.0 + ((Math.sin(x) + (Math.sin(y) / -16.0)) * ((Math.sqrt(2.0) * t_1) * (Math.sin(y) + ((x * (1.0 + ((x * x) * -0.16666666666666666))) / -16.0))))) / (3.0 + (1.5 * ((Math.cos(y) * (4.0 / t_0)) + (Math.cos(x) * t_3))));
} else {
tmp = (t_2 / (1.0 + ((Math.cos(y) / (0.5 * t_0)) + (Math.cos(x) / (0.5 * (Math.sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
def code(x, y): t_0 = 3.0 + math.sqrt(5.0) t_1 = math.cos(x) - math.cos(y) t_2 = 2.0 + ((t_1 * (math.sin(y) + (math.sin(x) / -16.0))) * (math.sqrt(2.0) * math.sin(x))) t_3 = math.sqrt(5.0) + -1.0 tmp = 0 if x <= -1.1: tmp = t_2 / (3.0 + (((math.cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (math.cos(y) / t_0)))) elif x <= 0.32: tmp = (2.0 + ((math.sin(x) + (math.sin(y) / -16.0)) * ((math.sqrt(2.0) * t_1) * (math.sin(y) + ((x * (1.0 + ((x * x) * -0.16666666666666666))) / -16.0))))) / (3.0 + (1.5 * ((math.cos(y) * (4.0 / t_0)) + (math.cos(x) * t_3)))) else: tmp = (t_2 / (1.0 + ((math.cos(y) / (0.5 * t_0)) + (math.cos(x) / (0.5 * (math.sqrt(5.0) + 1.0)))))) / 3.0 return tmp
function code(x, y) t_0 = Float64(3.0 + sqrt(5.0)) t_1 = Float64(cos(x) - cos(y)) t_2 = Float64(2.0 + Float64(Float64(t_1 * Float64(sin(y) + Float64(sin(x) / -16.0))) * Float64(sqrt(2.0) * sin(x)))) t_3 = Float64(sqrt(5.0) + -1.0) tmp = 0.0 if (x <= -1.1) tmp = Float64(t_2 / Float64(3.0 + Float64(Float64(Float64(cos(x) * 3.0) / Float64(2.0 / t_3)) + Float64(6.0 * Float64(cos(y) / t_0))))); elseif (x <= 0.32) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(sin(y) / -16.0)) * Float64(Float64(sqrt(2.0) * t_1) * Float64(sin(y) + Float64(Float64(x * Float64(1.0 + Float64(Float64(x * x) * -0.16666666666666666))) / -16.0))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(y) * Float64(4.0 / t_0)) + Float64(cos(x) * t_3))))); else tmp = Float64(Float64(t_2 / Float64(1.0 + Float64(Float64(cos(y) / Float64(0.5 * t_0)) + Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0)))))) / 3.0); end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 + sqrt(5.0); t_1 = cos(x) - cos(y); t_2 = 2.0 + ((t_1 * (sin(y) + (sin(x) / -16.0))) * (sqrt(2.0) * sin(x))); t_3 = sqrt(5.0) + -1.0; tmp = 0.0; if (x <= -1.1) tmp = t_2 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_3)) + (6.0 * (cos(y) / t_0)))); elseif (x <= 0.32) tmp = (2.0 + ((sin(x) + (sin(y) / -16.0)) * ((sqrt(2.0) * t_1) * (sin(y) + ((x * (1.0 + ((x * x) * -0.16666666666666666))) / -16.0))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / t_0)) + (cos(x) * t_3)))); else tmp = (t_2 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(2.0 + N[(N[(t$95$1 * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, If[LessEqual[x, -1.1], N[(t$95$2 / N[(3.0 + N[(N[(N[(N[Cos[x], $MachinePrecision] * 3.0), $MachinePrecision] / N[(2.0 / t$95$3), $MachinePrecision]), $MachinePrecision] + N[(6.0 * N[(N[Cos[y], $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 0.32], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(N[Sin[y], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sqrt[2.0], $MachinePrecision] * t$95$1), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[(x * N[(1.0 + N[(N[(x * x), $MachinePrecision] * -0.16666666666666666), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[y], $MachinePrecision] * N[(4.0 / t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$2 / N[(1.0 + N[(N[(N[Cos[y], $MachinePrecision] / N[(0.5 * t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 + \sqrt{5}\\
t_1 := \cos x - \cos y\\
t_2 := 2 + \left(t\_1 \cdot \left(\sin y + \frac{\sin x}{-16}\right)\right) \cdot \left(\sqrt{2} \cdot \sin x\right)\\
t_3 := \sqrt{5} + -1\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;\frac{t\_2}{3 + \left(\frac{\cos x \cdot 3}{\frac{2}{t\_3}} + 6 \cdot \frac{\cos y}{t\_0}\right)}\\
\mathbf{elif}\;x \leq 0.32:\\
\;\;\;\;\frac{2 + \left(\sin x + \frac{\sin y}{-16}\right) \cdot \left(\left(\sqrt{2} \cdot t\_1\right) \cdot \left(\sin y + \frac{x \cdot \left(1 + \left(x \cdot x\right) \cdot -0.16666666666666666\right)}{-16}\right)\right)}{3 + 1.5 \cdot \left(\cos y \cdot \frac{4}{t\_0} + \cos x \cdot t\_3\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{t\_2}{1 + \left(\frac{\cos y}{0.5 \cdot t\_0} + \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\right)}}{3}\\
\end{array}
\end{array}
if x < -1.1000000000000001Initial program 99.0%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6459.3%
Simplified59.3%
Applied egg-rr59.5%
if -1.1000000000000001 < x < 0.320000000000000007Initial program 99.7%
Simplified99.6%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in x around 0
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.2%
Simplified99.2%
if 0.320000000000000007 < x Initial program 98.8%
Applied egg-rr99.1%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.8%
Simplified62.8%
Final simplification79.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ 3.0 (sqrt 5.0)))
(t_1 (+ (sqrt 5.0) -1.0))
(t_2 (+ (sin y) (/ (sin x) -16.0)))
(t_3 (+ 2.0 (* (* (- (cos x) (cos y)) t_2) (* (sqrt 2.0) (sin x))))))
(if (<= x -1.1)
(/
t_3
(+ 3.0 (+ (/ (* (cos x) 3.0) (/ 2.0 t_1)) (* 6.0 (/ (cos y) t_0)))))
(if (<= x 0.32)
(/
(+
2.0
(*
(+
(* (sin y) -0.0625)
(*
x
(+
1.0
(*
x
(*
x
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))))
(*
t_2
(*
(sqrt 2.0)
(+
1.0
(-
(*
(* x x)
(+
(*
(* x x)
(+ 0.041666666666666664 (* (* x x) -0.001388888888888889)))
-0.5))
(cos y)))))))
(+ 3.0 (* 1.5 (+ (* (cos x) t_1) (* (cos y) (- 3.0 (sqrt 5.0)))))))
(/
(/
t_3
(+
1.0
(+ (/ (cos y) (* 0.5 t_0)) (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0))))))
3.0)))))
double code(double x, double y) {
double t_0 = 3.0 + sqrt(5.0);
double t_1 = sqrt(5.0) + -1.0;
double t_2 = sin(y) + (sin(x) / -16.0);
double t_3 = 2.0 + (((cos(x) - cos(y)) * t_2) * (sqrt(2.0) * sin(x)));
double tmp;
if (x <= -1.1) {
tmp = t_3 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_1)) + (6.0 * (cos(y) / t_0))));
} else if (x <= 0.32) {
tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * ((cos(x) * t_1) + (cos(y) * (3.0 - sqrt(5.0))))));
} else {
tmp = (t_3 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = 3.0d0 + sqrt(5.0d0)
t_1 = sqrt(5.0d0) + (-1.0d0)
t_2 = sin(y) + (sin(x) / (-16.0d0))
t_3 = 2.0d0 + (((cos(x) - cos(y)) * t_2) * (sqrt(2.0d0) * sin(x)))
if (x <= (-1.1d0)) then
tmp = t_3 / (3.0d0 + (((cos(x) * 3.0d0) / (2.0d0 / t_1)) + (6.0d0 * (cos(y) / t_0))))
else if (x <= 0.32d0) then
tmp = (2.0d0 + (((sin(y) * (-0.0625d0)) + (x * (1.0d0 + (x * (x * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))))) * (t_2 * (sqrt(2.0d0) * (1.0d0 + (((x * x) * (((x * x) * (0.041666666666666664d0 + ((x * x) * (-0.001388888888888889d0)))) + (-0.5d0))) - cos(y))))))) / (3.0d0 + (1.5d0 * ((cos(x) * t_1) + (cos(y) * (3.0d0 - sqrt(5.0d0))))))
else
tmp = (t_3 / (1.0d0 + ((cos(y) / (0.5d0 * t_0)) + (cos(x) / (0.5d0 * (sqrt(5.0d0) + 1.0d0)))))) / 3.0d0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 + Math.sqrt(5.0);
double t_1 = Math.sqrt(5.0) + -1.0;
double t_2 = Math.sin(y) + (Math.sin(x) / -16.0);
double t_3 = 2.0 + (((Math.cos(x) - Math.cos(y)) * t_2) * (Math.sqrt(2.0) * Math.sin(x)));
double tmp;
if (x <= -1.1) {
tmp = t_3 / (3.0 + (((Math.cos(x) * 3.0) / (2.0 / t_1)) + (6.0 * (Math.cos(y) / t_0))));
} else if (x <= 0.32) {
tmp = (2.0 + (((Math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (Math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - Math.cos(y))))))) / (3.0 + (1.5 * ((Math.cos(x) * t_1) + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))));
} else {
tmp = (t_3 / (1.0 + ((Math.cos(y) / (0.5 * t_0)) + (Math.cos(x) / (0.5 * (Math.sqrt(5.0) + 1.0)))))) / 3.0;
}
return tmp;
}
def code(x, y): t_0 = 3.0 + math.sqrt(5.0) t_1 = math.sqrt(5.0) + -1.0 t_2 = math.sin(y) + (math.sin(x) / -16.0) t_3 = 2.0 + (((math.cos(x) - math.cos(y)) * t_2) * (math.sqrt(2.0) * math.sin(x))) tmp = 0 if x <= -1.1: tmp = t_3 / (3.0 + (((math.cos(x) * 3.0) / (2.0 / t_1)) + (6.0 * (math.cos(y) / t_0)))) elif x <= 0.32: tmp = (2.0 + (((math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - math.cos(y))))))) / (3.0 + (1.5 * ((math.cos(x) * t_1) + (math.cos(y) * (3.0 - math.sqrt(5.0)))))) else: tmp = (t_3 / (1.0 + ((math.cos(y) / (0.5 * t_0)) + (math.cos(x) / (0.5 * (math.sqrt(5.0) + 1.0)))))) / 3.0 return tmp
function code(x, y) t_0 = Float64(3.0 + sqrt(5.0)) t_1 = Float64(sqrt(5.0) + -1.0) t_2 = Float64(sin(y) + Float64(sin(x) / -16.0)) t_3 = Float64(2.0 + Float64(Float64(Float64(cos(x) - cos(y)) * t_2) * Float64(sqrt(2.0) * sin(x)))) tmp = 0.0 if (x <= -1.1) tmp = Float64(t_3 / Float64(3.0 + Float64(Float64(Float64(cos(x) * 3.0) / Float64(2.0 / t_1)) + Float64(6.0 * Float64(cos(y) / t_0))))); elseif (x <= 0.32) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) * -0.0625) + Float64(x * Float64(1.0 + Float64(x * Float64(x * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))))) * Float64(t_2 * Float64(sqrt(2.0) * Float64(1.0 + Float64(Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.041666666666666664 + Float64(Float64(x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * t_1) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))); else tmp = Float64(Float64(t_3 / Float64(1.0 + Float64(Float64(cos(y) / Float64(0.5 * t_0)) + Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0)))))) / 3.0); end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 + sqrt(5.0); t_1 = sqrt(5.0) + -1.0; t_2 = sin(y) + (sin(x) / -16.0); t_3 = 2.0 + (((cos(x) - cos(y)) * t_2) * (sqrt(2.0) * sin(x))); tmp = 0.0; if (x <= -1.1) tmp = t_3 / (3.0 + (((cos(x) * 3.0) / (2.0 / t_1)) + (6.0 * (cos(y) / t_0)))); elseif (x <= 0.32) tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * ((cos(x) * t_1) + (cos(y) * (3.0 - sqrt(5.0)))))); else tmp = (t_3 / (1.0 + ((cos(y) / (0.5 * t_0)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(2.0 + N[(N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * t$95$2), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.1], N[(t$95$3 / N[(3.0 + N[(N[(N[(N[Cos[x], $MachinePrecision] * 3.0), $MachinePrecision] / N[(2.0 / t$95$1), $MachinePrecision]), $MachinePrecision] + N[(6.0 * N[(N[Cos[y], $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 0.32], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision] + N[(x * N[(1.0 + N[(x * N[(x * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$2 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 + N[(N[(x * x), $MachinePrecision] * -0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.5), $MachinePrecision]), $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * t$95$1), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(t$95$3 / N[(1.0 + N[(N[(N[Cos[y], $MachinePrecision] / N[(0.5 * t$95$0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 + \sqrt{5}\\
t_1 := \sqrt{5} + -1\\
t_2 := \sin y + \frac{\sin x}{-16}\\
t_3 := 2 + \left(\left(\cos x - \cos y\right) \cdot t\_2\right) \cdot \left(\sqrt{2} \cdot \sin x\right)\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;\frac{t\_3}{3 + \left(\frac{\cos x \cdot 3}{\frac{2}{t\_1}} + 6 \cdot \frac{\cos y}{t\_0}\right)}\\
\mathbf{elif}\;x \leq 0.32:\\
\;\;\;\;\frac{2 + \left(\sin y \cdot -0.0625 + x \cdot \left(1 + x \cdot \left(x \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)\right)\right) \cdot \left(t\_2 \cdot \left(\sqrt{2} \cdot \left(1 + \left(\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.041666666666666664 + \left(x \cdot x\right) \cdot -0.001388888888888889\right) + -0.5\right) - \cos y\right)\right)\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot t\_1 + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{\frac{t\_3}{1 + \left(\frac{\cos y}{0.5 \cdot t\_0} + \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\right)}}{3}\\
\end{array}
\end{array}
if x < -1.1000000000000001Initial program 99.0%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6459.3%
Simplified59.3%
Applied egg-rr59.5%
if -1.1000000000000001 < x < 0.320000000000000007Initial program 99.7%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
unpow2N/A
associate-*l*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.2%
Simplified99.2%
Taylor expanded in x around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
Simplified99.1%
if 0.320000000000000007 < x Initial program 98.8%
Applied egg-rr99.1%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.8%
Simplified62.8%
Final simplification79.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- 3.0 (sqrt 5.0)))
(t_1 (+ (sqrt 5.0) -1.0))
(t_2 (/ 2.0 t_1))
(t_3 (+ (sin y) (/ (sin x) -16.0)))
(t_4 (+ 2.0 (* (* (- (cos x) (cos y)) t_3) (* (sqrt 2.0) (sin x))))))
(if (<= x -1.1)
(/
t_4
(+
3.0
(+ (/ (* (cos x) 3.0) t_2) (* 6.0 (/ (cos y) (+ 3.0 (sqrt 5.0)))))))
(if (<= x 0.42)
(/
(+
2.0
(*
(+
(* (sin y) -0.0625)
(*
x
(+
1.0
(*
x
(*
x
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))))
(*
t_3
(*
(sqrt 2.0)
(+
1.0
(-
(*
(* x x)
(+
(*
(* x x)
(+ 0.041666666666666664 (* (* x x) -0.001388888888888889)))
-0.5))
(cos y)))))))
(+ 3.0 (* 1.5 (+ (* (cos x) t_1) (* (cos y) t_0)))))
(*
t_4
(/
0.3333333333333333
(+ (* t_0 (* (cos y) 0.5)) (+ 1.0 (/ (cos x) t_2)))))))))
double code(double x, double y) {
double t_0 = 3.0 - sqrt(5.0);
double t_1 = sqrt(5.0) + -1.0;
double t_2 = 2.0 / t_1;
double t_3 = sin(y) + (sin(x) / -16.0);
double t_4 = 2.0 + (((cos(x) - cos(y)) * t_3) * (sqrt(2.0) * sin(x)));
double tmp;
if (x <= -1.1) {
tmp = t_4 / (3.0 + (((cos(x) * 3.0) / t_2) + (6.0 * (cos(y) / (3.0 + sqrt(5.0))))));
} else if (x <= 0.42) {
tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * ((cos(x) * t_1) + (cos(y) * t_0))));
} else {
tmp = t_4 * (0.3333333333333333 / ((t_0 * (cos(y) * 0.5)) + (1.0 + (cos(x) / t_2))));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_0 = 3.0d0 - sqrt(5.0d0)
t_1 = sqrt(5.0d0) + (-1.0d0)
t_2 = 2.0d0 / t_1
t_3 = sin(y) + (sin(x) / (-16.0d0))
t_4 = 2.0d0 + (((cos(x) - cos(y)) * t_3) * (sqrt(2.0d0) * sin(x)))
if (x <= (-1.1d0)) then
tmp = t_4 / (3.0d0 + (((cos(x) * 3.0d0) / t_2) + (6.0d0 * (cos(y) / (3.0d0 + sqrt(5.0d0))))))
else if (x <= 0.42d0) then
tmp = (2.0d0 + (((sin(y) * (-0.0625d0)) + (x * (1.0d0 + (x * (x * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))))) * (t_3 * (sqrt(2.0d0) * (1.0d0 + (((x * x) * (((x * x) * (0.041666666666666664d0 + ((x * x) * (-0.001388888888888889d0)))) + (-0.5d0))) - cos(y))))))) / (3.0d0 + (1.5d0 * ((cos(x) * t_1) + (cos(y) * t_0))))
else
tmp = t_4 * (0.3333333333333333d0 / ((t_0 * (cos(y) * 0.5d0)) + (1.0d0 + (cos(x) / t_2))))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 - Math.sqrt(5.0);
double t_1 = Math.sqrt(5.0) + -1.0;
double t_2 = 2.0 / t_1;
double t_3 = Math.sin(y) + (Math.sin(x) / -16.0);
double t_4 = 2.0 + (((Math.cos(x) - Math.cos(y)) * t_3) * (Math.sqrt(2.0) * Math.sin(x)));
double tmp;
if (x <= -1.1) {
tmp = t_4 / (3.0 + (((Math.cos(x) * 3.0) / t_2) + (6.0 * (Math.cos(y) / (3.0 + Math.sqrt(5.0))))));
} else if (x <= 0.42) {
tmp = (2.0 + (((Math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (Math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - Math.cos(y))))))) / (3.0 + (1.5 * ((Math.cos(x) * t_1) + (Math.cos(y) * t_0))));
} else {
tmp = t_4 * (0.3333333333333333 / ((t_0 * (Math.cos(y) * 0.5)) + (1.0 + (Math.cos(x) / t_2))));
}
return tmp;
}
def code(x, y): t_0 = 3.0 - math.sqrt(5.0) t_1 = math.sqrt(5.0) + -1.0 t_2 = 2.0 / t_1 t_3 = math.sin(y) + (math.sin(x) / -16.0) t_4 = 2.0 + (((math.cos(x) - math.cos(y)) * t_3) * (math.sqrt(2.0) * math.sin(x))) tmp = 0 if x <= -1.1: tmp = t_4 / (3.0 + (((math.cos(x) * 3.0) / t_2) + (6.0 * (math.cos(y) / (3.0 + math.sqrt(5.0)))))) elif x <= 0.42: tmp = (2.0 + (((math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - math.cos(y))))))) / (3.0 + (1.5 * ((math.cos(x) * t_1) + (math.cos(y) * t_0)))) else: tmp = t_4 * (0.3333333333333333 / ((t_0 * (math.cos(y) * 0.5)) + (1.0 + (math.cos(x) / t_2)))) return tmp
function code(x, y) t_0 = Float64(3.0 - sqrt(5.0)) t_1 = Float64(sqrt(5.0) + -1.0) t_2 = Float64(2.0 / t_1) t_3 = Float64(sin(y) + Float64(sin(x) / -16.0)) t_4 = Float64(2.0 + Float64(Float64(Float64(cos(x) - cos(y)) * t_3) * Float64(sqrt(2.0) * sin(x)))) tmp = 0.0 if (x <= -1.1) tmp = Float64(t_4 / Float64(3.0 + Float64(Float64(Float64(cos(x) * 3.0) / t_2) + Float64(6.0 * Float64(cos(y) / Float64(3.0 + sqrt(5.0))))))); elseif (x <= 0.42) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) * -0.0625) + Float64(x * Float64(1.0 + Float64(x * Float64(x * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))))) * Float64(t_3 * Float64(sqrt(2.0) * Float64(1.0 + Float64(Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.041666666666666664 + Float64(Float64(x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * t_1) + Float64(cos(y) * t_0))))); else tmp = Float64(t_4 * Float64(0.3333333333333333 / Float64(Float64(t_0 * Float64(cos(y) * 0.5)) + Float64(1.0 + Float64(cos(x) / t_2))))); end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 - sqrt(5.0); t_1 = sqrt(5.0) + -1.0; t_2 = 2.0 / t_1; t_3 = sin(y) + (sin(x) / -16.0); t_4 = 2.0 + (((cos(x) - cos(y)) * t_3) * (sqrt(2.0) * sin(x))); tmp = 0.0; if (x <= -1.1) tmp = t_4 / (3.0 + (((cos(x) * 3.0) / t_2) + (6.0 * (cos(y) / (3.0 + sqrt(5.0)))))); elseif (x <= 0.42) tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * ((cos(x) * t_1) + (cos(y) * t_0)))); else tmp = t_4 * (0.3333333333333333 / ((t_0 * (cos(y) * 0.5)) + (1.0 + (cos(x) / t_2)))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, Block[{t$95$2 = N[(2.0 / t$95$1), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(2.0 + N[(N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * t$95$3), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.1], N[(t$95$4 / N[(3.0 + N[(N[(N[(N[Cos[x], $MachinePrecision] * 3.0), $MachinePrecision] / t$95$2), $MachinePrecision] + N[(6.0 * N[(N[Cos[y], $MachinePrecision] / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 0.42], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision] + N[(x * N[(1.0 + N[(x * N[(x * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 + N[(N[(x * x), $MachinePrecision] * -0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.5), $MachinePrecision]), $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * t$95$1), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(t$95$4 * N[(0.3333333333333333 / N[(N[(t$95$0 * N[(N[Cos[y], $MachinePrecision] * 0.5), $MachinePrecision]), $MachinePrecision] + N[(1.0 + N[(N[Cos[x], $MachinePrecision] / t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 - \sqrt{5}\\
t_1 := \sqrt{5} + -1\\
t_2 := \frac{2}{t\_1}\\
t_3 := \sin y + \frac{\sin x}{-16}\\
t_4 := 2 + \left(\left(\cos x - \cos y\right) \cdot t\_3\right) \cdot \left(\sqrt{2} \cdot \sin x\right)\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;\frac{t\_4}{3 + \left(\frac{\cos x \cdot 3}{t\_2} + 6 \cdot \frac{\cos y}{3 + \sqrt{5}}\right)}\\
\mathbf{elif}\;x \leq 0.42:\\
\;\;\;\;\frac{2 + \left(\sin y \cdot -0.0625 + x \cdot \left(1 + x \cdot \left(x \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)\right)\right) \cdot \left(t\_3 \cdot \left(\sqrt{2} \cdot \left(1 + \left(\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.041666666666666664 + \left(x \cdot x\right) \cdot -0.001388888888888889\right) + -0.5\right) - \cos y\right)\right)\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot t\_1 + \cos y \cdot t\_0\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_4 \cdot \frac{0.3333333333333333}{t\_0 \cdot \left(\cos y \cdot 0.5\right) + \left(1 + \frac{\cos x}{t\_2}\right)}\\
\end{array}
\end{array}
if x < -1.1000000000000001Initial program 99.0%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6459.3%
Simplified59.3%
Applied egg-rr59.5%
if -1.1000000000000001 < x < 0.419999999999999984Initial program 99.7%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
unpow2N/A
associate-*l*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.2%
Simplified99.2%
Taylor expanded in x around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
Simplified99.1%
if 0.419999999999999984 < x Initial program 98.8%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.6%
Simplified62.6%
Applied egg-rr62.8%
Final simplification79.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ (sqrt 5.0) -1.0))
(t_1 (* (cos x) t_0))
(t_2 (- (cos x) (cos y)))
(t_3 (- 3.0 (sqrt 5.0)))
(t_4 (+ (sin y) (/ (sin x) -16.0))))
(if (<= x -1.1)
(/
(+ 2.0 (* (sin x) (* t_4 (* (sqrt 2.0) t_2))))
(+ 3.0 (* 1.5 (+ (* (cos y) (/ 4.0 (+ 3.0 (sqrt 5.0)))) t_1))))
(if (<= x 0.36)
(/
(+
2.0
(*
(+
(* (sin y) -0.0625)
(*
x
(+
1.0
(*
x
(*
x
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))))
(*
t_4
(*
(sqrt 2.0)
(+
1.0
(-
(*
(* x x)
(+
(*
(* x x)
(+ 0.041666666666666664 (* (* x x) -0.001388888888888889)))
-0.5))
(cos y)))))))
(+ 3.0 (* 1.5 (+ t_1 (* (cos y) t_3)))))
(*
(+ 2.0 (* (* t_2 t_4) (* (sqrt 2.0) (sin x))))
(/
0.3333333333333333
(+ (* t_3 (* (cos y) 0.5)) (+ 1.0 (/ (cos x) (/ 2.0 t_0))))))))))
double code(double x, double y) {
double t_0 = sqrt(5.0) + -1.0;
double t_1 = cos(x) * t_0;
double t_2 = cos(x) - cos(y);
double t_3 = 3.0 - sqrt(5.0);
double t_4 = sin(y) + (sin(x) / -16.0);
double tmp;
if (x <= -1.1) {
tmp = (2.0 + (sin(x) * (t_4 * (sqrt(2.0) * t_2)))) / (3.0 + (1.5 * ((cos(y) * (4.0 / (3.0 + sqrt(5.0)))) + t_1)));
} else if (x <= 0.36) {
tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_4 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * (t_1 + (cos(y) * t_3))));
} else {
tmp = (2.0 + ((t_2 * t_4) * (sqrt(2.0) * sin(x)))) * (0.3333333333333333 / ((t_3 * (cos(y) * 0.5)) + (1.0 + (cos(x) / (2.0 / t_0)))));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: t_4
real(8) :: tmp
t_0 = sqrt(5.0d0) + (-1.0d0)
t_1 = cos(x) * t_0
t_2 = cos(x) - cos(y)
t_3 = 3.0d0 - sqrt(5.0d0)
t_4 = sin(y) + (sin(x) / (-16.0d0))
if (x <= (-1.1d0)) then
tmp = (2.0d0 + (sin(x) * (t_4 * (sqrt(2.0d0) * t_2)))) / (3.0d0 + (1.5d0 * ((cos(y) * (4.0d0 / (3.0d0 + sqrt(5.0d0)))) + t_1)))
else if (x <= 0.36d0) then
tmp = (2.0d0 + (((sin(y) * (-0.0625d0)) + (x * (1.0d0 + (x * (x * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))))) * (t_4 * (sqrt(2.0d0) * (1.0d0 + (((x * x) * (((x * x) * (0.041666666666666664d0 + ((x * x) * (-0.001388888888888889d0)))) + (-0.5d0))) - cos(y))))))) / (3.0d0 + (1.5d0 * (t_1 + (cos(y) * t_3))))
else
tmp = (2.0d0 + ((t_2 * t_4) * (sqrt(2.0d0) * sin(x)))) * (0.3333333333333333d0 / ((t_3 * (cos(y) * 0.5d0)) + (1.0d0 + (cos(x) / (2.0d0 / t_0)))))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = Math.sqrt(5.0) + -1.0;
double t_1 = Math.cos(x) * t_0;
double t_2 = Math.cos(x) - Math.cos(y);
double t_3 = 3.0 - Math.sqrt(5.0);
double t_4 = Math.sin(y) + (Math.sin(x) / -16.0);
double tmp;
if (x <= -1.1) {
tmp = (2.0 + (Math.sin(x) * (t_4 * (Math.sqrt(2.0) * t_2)))) / (3.0 + (1.5 * ((Math.cos(y) * (4.0 / (3.0 + Math.sqrt(5.0)))) + t_1)));
} else if (x <= 0.36) {
tmp = (2.0 + (((Math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_4 * (Math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - Math.cos(y))))))) / (3.0 + (1.5 * (t_1 + (Math.cos(y) * t_3))));
} else {
tmp = (2.0 + ((t_2 * t_4) * (Math.sqrt(2.0) * Math.sin(x)))) * (0.3333333333333333 / ((t_3 * (Math.cos(y) * 0.5)) + (1.0 + (Math.cos(x) / (2.0 / t_0)))));
}
return tmp;
}
def code(x, y): t_0 = math.sqrt(5.0) + -1.0 t_1 = math.cos(x) * t_0 t_2 = math.cos(x) - math.cos(y) t_3 = 3.0 - math.sqrt(5.0) t_4 = math.sin(y) + (math.sin(x) / -16.0) tmp = 0 if x <= -1.1: tmp = (2.0 + (math.sin(x) * (t_4 * (math.sqrt(2.0) * t_2)))) / (3.0 + (1.5 * ((math.cos(y) * (4.0 / (3.0 + math.sqrt(5.0)))) + t_1))) elif x <= 0.36: tmp = (2.0 + (((math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_4 * (math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - math.cos(y))))))) / (3.0 + (1.5 * (t_1 + (math.cos(y) * t_3)))) else: tmp = (2.0 + ((t_2 * t_4) * (math.sqrt(2.0) * math.sin(x)))) * (0.3333333333333333 / ((t_3 * (math.cos(y) * 0.5)) + (1.0 + (math.cos(x) / (2.0 / t_0))))) return tmp
function code(x, y) t_0 = Float64(sqrt(5.0) + -1.0) t_1 = Float64(cos(x) * t_0) t_2 = Float64(cos(x) - cos(y)) t_3 = Float64(3.0 - sqrt(5.0)) t_4 = Float64(sin(y) + Float64(sin(x) / -16.0)) tmp = 0.0 if (x <= -1.1) tmp = Float64(Float64(2.0 + Float64(sin(x) * Float64(t_4 * Float64(sqrt(2.0) * t_2)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(y) * Float64(4.0 / Float64(3.0 + sqrt(5.0)))) + t_1)))); elseif (x <= 0.36) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) * -0.0625) + Float64(x * Float64(1.0 + Float64(x * Float64(x * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))))) * Float64(t_4 * Float64(sqrt(2.0) * Float64(1.0 + Float64(Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.041666666666666664 + Float64(Float64(x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / Float64(3.0 + Float64(1.5 * Float64(t_1 + Float64(cos(y) * t_3))))); else tmp = Float64(Float64(2.0 + Float64(Float64(t_2 * t_4) * Float64(sqrt(2.0) * sin(x)))) * Float64(0.3333333333333333 / Float64(Float64(t_3 * Float64(cos(y) * 0.5)) + Float64(1.0 + Float64(cos(x) / Float64(2.0 / t_0)))))); end return tmp end
function tmp_2 = code(x, y) t_0 = sqrt(5.0) + -1.0; t_1 = cos(x) * t_0; t_2 = cos(x) - cos(y); t_3 = 3.0 - sqrt(5.0); t_4 = sin(y) + (sin(x) / -16.0); tmp = 0.0; if (x <= -1.1) tmp = (2.0 + (sin(x) * (t_4 * (sqrt(2.0) * t_2)))) / (3.0 + (1.5 * ((cos(y) * (4.0 / (3.0 + sqrt(5.0)))) + t_1))); elseif (x <= 0.36) tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_4 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * (t_1 + (cos(y) * t_3)))); else tmp = (2.0 + ((t_2 * t_4) * (sqrt(2.0) * sin(x)))) * (0.3333333333333333 / ((t_3 * (cos(y) * 0.5)) + (1.0 + (cos(x) / (2.0 / t_0))))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[x], $MachinePrecision] * t$95$0), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.1], N[(N[(2.0 + N[(N[Sin[x], $MachinePrecision] * N[(t$95$4 * N[(N[Sqrt[2.0], $MachinePrecision] * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[y], $MachinePrecision] * N[(4.0 / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 0.36], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision] + N[(x * N[(1.0 + N[(x * N[(x * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$4 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 + N[(N[(x * x), $MachinePrecision] * -0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.5), $MachinePrecision]), $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(t$95$1 + N[(N[Cos[y], $MachinePrecision] * t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(N[(t$95$2 * t$95$4), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(0.3333333333333333 / N[(N[(t$95$3 * N[(N[Cos[y], $MachinePrecision] * 0.5), $MachinePrecision]), $MachinePrecision] + N[(1.0 + N[(N[Cos[x], $MachinePrecision] / N[(2.0 / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{5} + -1\\
t_1 := \cos x \cdot t\_0\\
t_2 := \cos x - \cos y\\
t_3 := 3 - \sqrt{5}\\
t_4 := \sin y + \frac{\sin x}{-16}\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;\frac{2 + \sin x \cdot \left(t\_4 \cdot \left(\sqrt{2} \cdot t\_2\right)\right)}{3 + 1.5 \cdot \left(\cos y \cdot \frac{4}{3 + \sqrt{5}} + t\_1\right)}\\
\mathbf{elif}\;x \leq 0.36:\\
\;\;\;\;\frac{2 + \left(\sin y \cdot -0.0625 + x \cdot \left(1 + x \cdot \left(x \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)\right)\right) \cdot \left(t\_4 \cdot \left(\sqrt{2} \cdot \left(1 + \left(\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.041666666666666664 + \left(x \cdot x\right) \cdot -0.001388888888888889\right) + -0.5\right) - \cos y\right)\right)\right)\right)}{3 + 1.5 \cdot \left(t\_1 + \cos y \cdot t\_3\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(2 + \left(t\_2 \cdot t\_4\right) \cdot \left(\sqrt{2} \cdot \sin x\right)\right) \cdot \frac{0.3333333333333333}{t\_3 \cdot \left(\cos y \cdot 0.5\right) + \left(1 + \frac{\cos x}{\frac{2}{t\_0}}\right)}\\
\end{array}
\end{array}
if x < -1.1000000000000001Initial program 99.0%
Simplified99.0%
Taylor expanded in y around 0
sin-lowering-sin.f6459.3%
Simplified59.3%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6459.5%
Applied egg-rr59.5%
if -1.1000000000000001 < x < 0.35999999999999999Initial program 99.7%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
unpow2N/A
associate-*l*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.2%
Simplified99.2%
Taylor expanded in x around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
Simplified99.1%
if 0.35999999999999999 < x Initial program 98.8%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.6%
Simplified62.6%
Applied egg-rr62.8%
Final simplification79.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (cos x) (+ (sqrt 5.0) -1.0)))
(t_1 (- (cos x) (cos y)))
(t_2 (+ t_0 (* (cos y) (- 3.0 (sqrt 5.0)))))
(t_3 (+ (sin y) (/ (sin x) -16.0))))
(if (<= x -1.1)
(/
(+ 2.0 (* (sin x) (* t_3 (* (sqrt 2.0) t_1))))
(+ 3.0 (* 1.5 (+ (* (cos y) (/ 4.0 (+ 3.0 (sqrt 5.0)))) t_0))))
(if (<= x 0.45)
(/
(+
2.0
(*
(+
(* (sin y) -0.0625)
(*
x
(+
1.0
(*
x
(*
x
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))))
(*
t_3
(*
(sqrt 2.0)
(+
1.0
(-
(*
(* x x)
(+
(*
(* x x)
(+ 0.041666666666666664 (* (* x x) -0.001388888888888889)))
-0.5))
(cos y)))))))
(+ 3.0 (* 1.5 t_2)))
(/
(+
0.6666666666666666
(*
0.3333333333333333
(* (* (sqrt 2.0) (sin x)) (* t_1 (+ (sin y) (* (sin x) -0.0625))))))
(+ 1.0 (* 0.5 t_2)))))))
double code(double x, double y) {
double t_0 = cos(x) * (sqrt(5.0) + -1.0);
double t_1 = cos(x) - cos(y);
double t_2 = t_0 + (cos(y) * (3.0 - sqrt(5.0)));
double t_3 = sin(y) + (sin(x) / -16.0);
double tmp;
if (x <= -1.1) {
tmp = (2.0 + (sin(x) * (t_3 * (sqrt(2.0) * t_1)))) / (3.0 + (1.5 * ((cos(y) * (4.0 / (3.0 + sqrt(5.0)))) + t_0)));
} else if (x <= 0.45) {
tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * t_2));
} else {
tmp = (0.6666666666666666 + (0.3333333333333333 * ((sqrt(2.0) * sin(x)) * (t_1 * (sin(y) + (sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_2));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = cos(x) * (sqrt(5.0d0) + (-1.0d0))
t_1 = cos(x) - cos(y)
t_2 = t_0 + (cos(y) * (3.0d0 - sqrt(5.0d0)))
t_3 = sin(y) + (sin(x) / (-16.0d0))
if (x <= (-1.1d0)) then
tmp = (2.0d0 + (sin(x) * (t_3 * (sqrt(2.0d0) * t_1)))) / (3.0d0 + (1.5d0 * ((cos(y) * (4.0d0 / (3.0d0 + sqrt(5.0d0)))) + t_0)))
else if (x <= 0.45d0) then
tmp = (2.0d0 + (((sin(y) * (-0.0625d0)) + (x * (1.0d0 + (x * (x * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))))) * (t_3 * (sqrt(2.0d0) * (1.0d0 + (((x * x) * (((x * x) * (0.041666666666666664d0 + ((x * x) * (-0.001388888888888889d0)))) + (-0.5d0))) - cos(y))))))) / (3.0d0 + (1.5d0 * t_2))
else
tmp = (0.6666666666666666d0 + (0.3333333333333333d0 * ((sqrt(2.0d0) * sin(x)) * (t_1 * (sin(y) + (sin(x) * (-0.0625d0))))))) / (1.0d0 + (0.5d0 * t_2))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = Math.cos(x) * (Math.sqrt(5.0) + -1.0);
double t_1 = Math.cos(x) - Math.cos(y);
double t_2 = t_0 + (Math.cos(y) * (3.0 - Math.sqrt(5.0)));
double t_3 = Math.sin(y) + (Math.sin(x) / -16.0);
double tmp;
if (x <= -1.1) {
tmp = (2.0 + (Math.sin(x) * (t_3 * (Math.sqrt(2.0) * t_1)))) / (3.0 + (1.5 * ((Math.cos(y) * (4.0 / (3.0 + Math.sqrt(5.0)))) + t_0)));
} else if (x <= 0.45) {
tmp = (2.0 + (((Math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (Math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - Math.cos(y))))))) / (3.0 + (1.5 * t_2));
} else {
tmp = (0.6666666666666666 + (0.3333333333333333 * ((Math.sqrt(2.0) * Math.sin(x)) * (t_1 * (Math.sin(y) + (Math.sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_2));
}
return tmp;
}
def code(x, y): t_0 = math.cos(x) * (math.sqrt(5.0) + -1.0) t_1 = math.cos(x) - math.cos(y) t_2 = t_0 + (math.cos(y) * (3.0 - math.sqrt(5.0))) t_3 = math.sin(y) + (math.sin(x) / -16.0) tmp = 0 if x <= -1.1: tmp = (2.0 + (math.sin(x) * (t_3 * (math.sqrt(2.0) * t_1)))) / (3.0 + (1.5 * ((math.cos(y) * (4.0 / (3.0 + math.sqrt(5.0)))) + t_0))) elif x <= 0.45: tmp = (2.0 + (((math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - math.cos(y))))))) / (3.0 + (1.5 * t_2)) else: tmp = (0.6666666666666666 + (0.3333333333333333 * ((math.sqrt(2.0) * math.sin(x)) * (t_1 * (math.sin(y) + (math.sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_2)) return tmp
function code(x, y) t_0 = Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) t_1 = Float64(cos(x) - cos(y)) t_2 = Float64(t_0 + Float64(cos(y) * Float64(3.0 - sqrt(5.0)))) t_3 = Float64(sin(y) + Float64(sin(x) / -16.0)) tmp = 0.0 if (x <= -1.1) tmp = Float64(Float64(2.0 + Float64(sin(x) * Float64(t_3 * Float64(sqrt(2.0) * t_1)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(y) * Float64(4.0 / Float64(3.0 + sqrt(5.0)))) + t_0)))); elseif (x <= 0.45) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) * -0.0625) + Float64(x * Float64(1.0 + Float64(x * Float64(x * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))))) * Float64(t_3 * Float64(sqrt(2.0) * Float64(1.0 + Float64(Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.041666666666666664 + Float64(Float64(x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / Float64(3.0 + Float64(1.5 * t_2))); else tmp = Float64(Float64(0.6666666666666666 + Float64(0.3333333333333333 * Float64(Float64(sqrt(2.0) * sin(x)) * Float64(t_1 * Float64(sin(y) + Float64(sin(x) * -0.0625)))))) / Float64(1.0 + Float64(0.5 * t_2))); end return tmp end
function tmp_2 = code(x, y) t_0 = cos(x) * (sqrt(5.0) + -1.0); t_1 = cos(x) - cos(y); t_2 = t_0 + (cos(y) * (3.0 - sqrt(5.0))); t_3 = sin(y) + (sin(x) / -16.0); tmp = 0.0; if (x <= -1.1) tmp = (2.0 + (sin(x) * (t_3 * (sqrt(2.0) * t_1)))) / (3.0 + (1.5 * ((cos(y) * (4.0 / (3.0 + sqrt(5.0)))) + t_0))); elseif (x <= 0.45) tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_3 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * t_2)); else tmp = (0.6666666666666666 + (0.3333333333333333 * ((sqrt(2.0) * sin(x)) * (t_1 * (sin(y) + (sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_2)); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(t$95$0 + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.1], N[(N[(2.0 + N[(N[Sin[x], $MachinePrecision] * N[(t$95$3 * N[(N[Sqrt[2.0], $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[y], $MachinePrecision] * N[(4.0 / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 0.45], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision] + N[(x * N[(1.0 + N[(x * N[(x * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$3 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 + N[(N[(x * x), $MachinePrecision] * -0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.5), $MachinePrecision]), $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(0.6666666666666666 + N[(0.3333333333333333 * N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] * N[(t$95$1 * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(0.5 * t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cos x \cdot \left(\sqrt{5} + -1\right)\\
t_1 := \cos x - \cos y\\
t_2 := t\_0 + \cos y \cdot \left(3 - \sqrt{5}\right)\\
t_3 := \sin y + \frac{\sin x}{-16}\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;\frac{2 + \sin x \cdot \left(t\_3 \cdot \left(\sqrt{2} \cdot t\_1\right)\right)}{3 + 1.5 \cdot \left(\cos y \cdot \frac{4}{3 + \sqrt{5}} + t\_0\right)}\\
\mathbf{elif}\;x \leq 0.45:\\
\;\;\;\;\frac{2 + \left(\sin y \cdot -0.0625 + x \cdot \left(1 + x \cdot \left(x \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)\right)\right) \cdot \left(t\_3 \cdot \left(\sqrt{2} \cdot \left(1 + \left(\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.041666666666666664 + \left(x \cdot x\right) \cdot -0.001388888888888889\right) + -0.5\right) - \cos y\right)\right)\right)\right)}{3 + 1.5 \cdot t\_2}\\
\mathbf{else}:\\
\;\;\;\;\frac{0.6666666666666666 + 0.3333333333333333 \cdot \left(\left(\sqrt{2} \cdot \sin x\right) \cdot \left(t\_1 \cdot \left(\sin y + \sin x \cdot -0.0625\right)\right)\right)}{1 + 0.5 \cdot t\_2}\\
\end{array}
\end{array}
if x < -1.1000000000000001Initial program 99.0%
Simplified99.0%
Taylor expanded in y around 0
sin-lowering-sin.f6459.3%
Simplified59.3%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6459.5%
Applied egg-rr59.5%
if -1.1000000000000001 < x < 0.450000000000000011Initial program 99.7%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
unpow2N/A
associate-*l*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.2%
Simplified99.2%
Taylor expanded in x around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
Simplified99.1%
if 0.450000000000000011 < x Initial program 98.8%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.6%
Simplified62.6%
Taylor expanded in x around inf
Simplified62.8%
Final simplification79.4%
(FPCore (x y)
:precision binary64
(let* ((t_0
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0)))))
(t_1
(/
(+
0.6666666666666666
(*
0.3333333333333333
(*
(* (sqrt 2.0) (sin x))
(* (- (cos x) (cos y)) (+ (sin y) (* (sin x) -0.0625))))))
(+ 1.0 (* 0.5 t_0)))))
(if (<= x -1.1)
t_1
(if (<= x 0.32)
(/
(+
2.0
(*
(+
(* (sin y) -0.0625)
(*
x
(+
1.0
(*
x
(*
x
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))))
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
1.0
(-
(*
(* x x)
(+
(*
(* x x)
(+ 0.041666666666666664 (* (* x x) -0.001388888888888889)))
-0.5))
(cos y)))))))
(+ 3.0 (* 1.5 t_0)))
t_1))))
double code(double x, double y) {
double t_0 = (cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0)));
double t_1 = (0.6666666666666666 + (0.3333333333333333 * ((sqrt(2.0) * sin(x)) * ((cos(x) - cos(y)) * (sin(y) + (sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_0));
double tmp;
if (x <= -1.1) {
tmp = t_1;
} else if (x <= 0.32) {
tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * t_0));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = (cos(x) * (sqrt(5.0d0) + (-1.0d0))) + (cos(y) * (3.0d0 - sqrt(5.0d0)))
t_1 = (0.6666666666666666d0 + (0.3333333333333333d0 * ((sqrt(2.0d0) * sin(x)) * ((cos(x) - cos(y)) * (sin(y) + (sin(x) * (-0.0625d0))))))) / (1.0d0 + (0.5d0 * t_0))
if (x <= (-1.1d0)) then
tmp = t_1
else if (x <= 0.32d0) then
tmp = (2.0d0 + (((sin(y) * (-0.0625d0)) + (x * (1.0d0 + (x * (x * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))))) * ((sin(y) + (sin(x) / (-16.0d0))) * (sqrt(2.0d0) * (1.0d0 + (((x * x) * (((x * x) * (0.041666666666666664d0 + ((x * x) * (-0.001388888888888889d0)))) + (-0.5d0))) - cos(y))))))) / (3.0d0 + (1.5d0 * t_0))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = (Math.cos(x) * (Math.sqrt(5.0) + -1.0)) + (Math.cos(y) * (3.0 - Math.sqrt(5.0)));
double t_1 = (0.6666666666666666 + (0.3333333333333333 * ((Math.sqrt(2.0) * Math.sin(x)) * ((Math.cos(x) - Math.cos(y)) * (Math.sin(y) + (Math.sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_0));
double tmp;
if (x <= -1.1) {
tmp = t_1;
} else if (x <= 0.32) {
tmp = (2.0 + (((Math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * ((Math.sin(y) + (Math.sin(x) / -16.0)) * (Math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - Math.cos(y))))))) / (3.0 + (1.5 * t_0));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y): t_0 = (math.cos(x) * (math.sqrt(5.0) + -1.0)) + (math.cos(y) * (3.0 - math.sqrt(5.0))) t_1 = (0.6666666666666666 + (0.3333333333333333 * ((math.sqrt(2.0) * math.sin(x)) * ((math.cos(x) - math.cos(y)) * (math.sin(y) + (math.sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_0)) tmp = 0 if x <= -1.1: tmp = t_1 elif x <= 0.32: tmp = (2.0 + (((math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * ((math.sin(y) + (math.sin(x) / -16.0)) * (math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - math.cos(y))))))) / (3.0 + (1.5 * t_0)) else: tmp = t_1 return tmp
function code(x, y) t_0 = Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0)))) t_1 = Float64(Float64(0.6666666666666666 + Float64(0.3333333333333333 * Float64(Float64(sqrt(2.0) * sin(x)) * Float64(Float64(cos(x) - cos(y)) * Float64(sin(y) + Float64(sin(x) * -0.0625)))))) / Float64(1.0 + Float64(0.5 * t_0))) tmp = 0.0 if (x <= -1.1) tmp = t_1; elseif (x <= 0.32) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) * -0.0625) + Float64(x * Float64(1.0 + Float64(x * Float64(x * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(1.0 + Float64(Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.041666666666666664 + Float64(Float64(x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / Float64(3.0 + Float64(1.5 * t_0))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y) t_0 = (cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))); t_1 = (0.6666666666666666 + (0.3333333333333333 * ((sqrt(2.0) * sin(x)) * ((cos(x) - cos(y)) * (sin(y) + (sin(x) * -0.0625)))))) / (1.0 + (0.5 * t_0)); tmp = 0.0; if (x <= -1.1) tmp = t_1; elseif (x <= 0.32) tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / (3.0 + (1.5 * t_0)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(0.6666666666666666 + N[(0.3333333333333333 * N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[Sin[x], $MachinePrecision]), $MachinePrecision] * N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(0.5 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.1], t$95$1, If[LessEqual[x, 0.32], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision] + N[(x * N[(1.0 + N[(x * N[(x * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 + N[(N[(x * x), $MachinePrecision] * -0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.5), $MachinePrecision]), $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\\
t_1 := \frac{0.6666666666666666 + 0.3333333333333333 \cdot \left(\left(\sqrt{2} \cdot \sin x\right) \cdot \left(\left(\cos x - \cos y\right) \cdot \left(\sin y + \sin x \cdot -0.0625\right)\right)\right)}{1 + 0.5 \cdot t\_0}\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 0.32:\\
\;\;\;\;\frac{2 + \left(\sin y \cdot -0.0625 + x \cdot \left(1 + x \cdot \left(x \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(1 + \left(\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.041666666666666664 + \left(x \cdot x\right) \cdot -0.001388888888888889\right) + -0.5\right) - \cos y\right)\right)\right)\right)}{3 + 1.5 \cdot t\_0}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -1.1000000000000001 or 0.320000000000000007 < x Initial program 98.9%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6460.9%
Simplified60.9%
Taylor expanded in x around inf
Simplified61.0%
if -1.1000000000000001 < x < 0.320000000000000007Initial program 99.7%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
unpow2N/A
associate-*l*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.2%
Simplified99.2%
Taylor expanded in x around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
Simplified99.1%
Final simplification79.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- (cos x) (cos y)))
(t_1
(+
3.0
(*
1.5
(+
(* (cos x) (+ (sqrt 5.0) -1.0))
(* (cos y) (- 3.0 (sqrt 5.0)))))))
(t_2 (+ (sin y) (/ (sin x) -16.0))))
(if (<= x -1.15)
(/ (+ 2.0 (* (sin x) (* t_2 (* (sqrt 2.0) t_0)))) t_1)
(if (<= x 5.2e-26)
(/
(+
2.0
(*
(+
(* (sin y) -0.0625)
(*
x
(+
1.0
(*
x
(*
x
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))))
(*
t_2
(*
(sqrt 2.0)
(+
1.0
(-
(*
(* x x)
(+
(*
(* x x)
(+ 0.041666666666666664 (* (* x x) -0.001388888888888889)))
-0.5))
(cos y)))))))
t_1)
(/ 1.0 (/ t_1 (+ 2.0 (* (* (sqrt 2.0) t_2) (* (sin x) t_0)))))))))
double code(double x, double y) {
double t_0 = cos(x) - cos(y);
double t_1 = 3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0)))));
double t_2 = sin(y) + (sin(x) / -16.0);
double tmp;
if (x <= -1.15) {
tmp = (2.0 + (sin(x) * (t_2 * (sqrt(2.0) * t_0)))) / t_1;
} else if (x <= 5.2e-26) {
tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / t_1;
} else {
tmp = 1.0 / (t_1 / (2.0 + ((sqrt(2.0) * t_2) * (sin(x) * t_0))));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_0 = cos(x) - cos(y)
t_1 = 3.0d0 + (1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) + (cos(y) * (3.0d0 - sqrt(5.0d0)))))
t_2 = sin(y) + (sin(x) / (-16.0d0))
if (x <= (-1.15d0)) then
tmp = (2.0d0 + (sin(x) * (t_2 * (sqrt(2.0d0) * t_0)))) / t_1
else if (x <= 5.2d-26) then
tmp = (2.0d0 + (((sin(y) * (-0.0625d0)) + (x * (1.0d0 + (x * (x * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))))) * (t_2 * (sqrt(2.0d0) * (1.0d0 + (((x * x) * (((x * x) * (0.041666666666666664d0 + ((x * x) * (-0.001388888888888889d0)))) + (-0.5d0))) - cos(y))))))) / t_1
else
tmp = 1.0d0 / (t_1 / (2.0d0 + ((sqrt(2.0d0) * t_2) * (sin(x) * t_0))))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = Math.cos(x) - Math.cos(y);
double t_1 = 3.0 + (1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) + (Math.cos(y) * (3.0 - Math.sqrt(5.0)))));
double t_2 = Math.sin(y) + (Math.sin(x) / -16.0);
double tmp;
if (x <= -1.15) {
tmp = (2.0 + (Math.sin(x) * (t_2 * (Math.sqrt(2.0) * t_0)))) / t_1;
} else if (x <= 5.2e-26) {
tmp = (2.0 + (((Math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (Math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - Math.cos(y))))))) / t_1;
} else {
tmp = 1.0 / (t_1 / (2.0 + ((Math.sqrt(2.0) * t_2) * (Math.sin(x) * t_0))));
}
return tmp;
}
def code(x, y): t_0 = math.cos(x) - math.cos(y) t_1 = 3.0 + (1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) + (math.cos(y) * (3.0 - math.sqrt(5.0))))) t_2 = math.sin(y) + (math.sin(x) / -16.0) tmp = 0 if x <= -1.15: tmp = (2.0 + (math.sin(x) * (t_2 * (math.sqrt(2.0) * t_0)))) / t_1 elif x <= 5.2e-26: tmp = (2.0 + (((math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - math.cos(y))))))) / t_1 else: tmp = 1.0 / (t_1 / (2.0 + ((math.sqrt(2.0) * t_2) * (math.sin(x) * t_0)))) return tmp
function code(x, y) t_0 = Float64(cos(x) - cos(y)) t_1 = Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0)))))) t_2 = Float64(sin(y) + Float64(sin(x) / -16.0)) tmp = 0.0 if (x <= -1.15) tmp = Float64(Float64(2.0 + Float64(sin(x) * Float64(t_2 * Float64(sqrt(2.0) * t_0)))) / t_1); elseif (x <= 5.2e-26) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) * -0.0625) + Float64(x * Float64(1.0 + Float64(x * Float64(x * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))))) * Float64(t_2 * Float64(sqrt(2.0) * Float64(1.0 + Float64(Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.041666666666666664 + Float64(Float64(x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / t_1); else tmp = Float64(1.0 / Float64(t_1 / Float64(2.0 + Float64(Float64(sqrt(2.0) * t_2) * Float64(sin(x) * t_0))))); end return tmp end
function tmp_2 = code(x, y) t_0 = cos(x) - cos(y); t_1 = 3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))); t_2 = sin(y) + (sin(x) / -16.0); tmp = 0.0; if (x <= -1.15) tmp = (2.0 + (sin(x) * (t_2 * (sqrt(2.0) * t_0)))) / t_1; elseif (x <= 5.2e-26) tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_2 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / t_1; else tmp = 1.0 / (t_1 / (2.0 + ((sqrt(2.0) * t_2) * (sin(x) * t_0)))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.15], N[(N[(2.0 + N[(N[Sin[x], $MachinePrecision] * N[(t$95$2 * N[(N[Sqrt[2.0], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision], If[LessEqual[x, 5.2e-26], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision] + N[(x * N[(1.0 + N[(x * N[(x * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$2 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 + N[(N[(x * x), $MachinePrecision] * -0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.5), $MachinePrecision]), $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision], N[(1.0 / N[(t$95$1 / N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * t$95$2), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cos x - \cos y\\
t_1 := 3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)\\
t_2 := \sin y + \frac{\sin x}{-16}\\
\mathbf{if}\;x \leq -1.15:\\
\;\;\;\;\frac{2 + \sin x \cdot \left(t\_2 \cdot \left(\sqrt{2} \cdot t\_0\right)\right)}{t\_1}\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{2 + \left(\sin y \cdot -0.0625 + x \cdot \left(1 + x \cdot \left(x \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)\right)\right) \cdot \left(t\_2 \cdot \left(\sqrt{2} \cdot \left(1 + \left(\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.041666666666666664 + \left(x \cdot x\right) \cdot -0.001388888888888889\right) + -0.5\right) - \cos y\right)\right)\right)\right)}{t\_1}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{\frac{t\_1}{2 + \left(\sqrt{2} \cdot t\_2\right) \cdot \left(\sin x \cdot t\_0\right)}}\\
\end{array}
\end{array}
if x < -1.1499999999999999Initial program 99.0%
Simplified99.0%
Taylor expanded in y around 0
sin-lowering-sin.f6459.3%
Simplified59.3%
if -1.1499999999999999 < x < 5.2000000000000002e-26Initial program 99.6%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
unpow2N/A
associate-*l*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.1%
Simplified99.1%
Taylor expanded in x around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
Simplified99.1%
if 5.2000000000000002e-26 < x Initial program 98.9%
Simplified99.1%
Taylor expanded in y around 0
sin-lowering-sin.f6465.8%
Simplified65.8%
Applied egg-rr65.8%
Final simplification79.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ (sin y) (/ (sin x) -16.0)))
(t_1
(+
3.0
(*
1.5
(+
(* (cos x) (+ (sqrt 5.0) -1.0))
(* (cos y) (- 3.0 (sqrt 5.0)))))))
(t_2
(/
(+ 2.0 (* (sin x) (* t_0 (* (sqrt 2.0) (- (cos x) (cos y))))))
t_1)))
(if (<= x -1.1)
t_2
(if (<= x 5.2e-26)
(/
(+
2.0
(*
(+
(* (sin y) -0.0625)
(*
x
(+
1.0
(*
x
(*
x
(+ -0.16666666666666666 (* (* x x) 0.008333333333333333)))))))
(*
t_0
(*
(sqrt 2.0)
(+
1.0
(-
(*
(* x x)
(+
(*
(* x x)
(+ 0.041666666666666664 (* (* x x) -0.001388888888888889)))
-0.5))
(cos y)))))))
t_1)
t_2))))
double code(double x, double y) {
double t_0 = sin(y) + (sin(x) / -16.0);
double t_1 = 3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0)))));
double t_2 = (2.0 + (sin(x) * (t_0 * (sqrt(2.0) * (cos(x) - cos(y)))))) / t_1;
double tmp;
if (x <= -1.1) {
tmp = t_2;
} else if (x <= 5.2e-26) {
tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_0 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / t_1;
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_0 = sin(y) + (sin(x) / (-16.0d0))
t_1 = 3.0d0 + (1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) + (cos(y) * (3.0d0 - sqrt(5.0d0)))))
t_2 = (2.0d0 + (sin(x) * (t_0 * (sqrt(2.0d0) * (cos(x) - cos(y)))))) / t_1
if (x <= (-1.1d0)) then
tmp = t_2
else if (x <= 5.2d-26) then
tmp = (2.0d0 + (((sin(y) * (-0.0625d0)) + (x * (1.0d0 + (x * (x * ((-0.16666666666666666d0) + ((x * x) * 0.008333333333333333d0))))))) * (t_0 * (sqrt(2.0d0) * (1.0d0 + (((x * x) * (((x * x) * (0.041666666666666664d0 + ((x * x) * (-0.001388888888888889d0)))) + (-0.5d0))) - cos(y))))))) / t_1
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = Math.sin(y) + (Math.sin(x) / -16.0);
double t_1 = 3.0 + (1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) + (Math.cos(y) * (3.0 - Math.sqrt(5.0)))));
double t_2 = (2.0 + (Math.sin(x) * (t_0 * (Math.sqrt(2.0) * (Math.cos(x) - Math.cos(y)))))) / t_1;
double tmp;
if (x <= -1.1) {
tmp = t_2;
} else if (x <= 5.2e-26) {
tmp = (2.0 + (((Math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_0 * (Math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - Math.cos(y))))))) / t_1;
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y): t_0 = math.sin(y) + (math.sin(x) / -16.0) t_1 = 3.0 + (1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) + (math.cos(y) * (3.0 - math.sqrt(5.0))))) t_2 = (2.0 + (math.sin(x) * (t_0 * (math.sqrt(2.0) * (math.cos(x) - math.cos(y)))))) / t_1 tmp = 0 if x <= -1.1: tmp = t_2 elif x <= 5.2e-26: tmp = (2.0 + (((math.sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_0 * (math.sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - math.cos(y))))))) / t_1 else: tmp = t_2 return tmp
function code(x, y) t_0 = Float64(sin(y) + Float64(sin(x) / -16.0)) t_1 = Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0)))))) t_2 = Float64(Float64(2.0 + Float64(sin(x) * Float64(t_0 * Float64(sqrt(2.0) * Float64(cos(x) - cos(y)))))) / t_1) tmp = 0.0 if (x <= -1.1) tmp = t_2; elseif (x <= 5.2e-26) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) * -0.0625) + Float64(x * Float64(1.0 + Float64(x * Float64(x * Float64(-0.16666666666666666 + Float64(Float64(x * x) * 0.008333333333333333))))))) * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 + Float64(Float64(Float64(x * x) * Float64(Float64(Float64(x * x) * Float64(0.041666666666666664 + Float64(Float64(x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / t_1); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y) t_0 = sin(y) + (sin(x) / -16.0); t_1 = 3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))); t_2 = (2.0 + (sin(x) * (t_0 * (sqrt(2.0) * (cos(x) - cos(y)))))) / t_1; tmp = 0.0; if (x <= -1.1) tmp = t_2; elseif (x <= 5.2e-26) tmp = (2.0 + (((sin(y) * -0.0625) + (x * (1.0 + (x * (x * (-0.16666666666666666 + ((x * x) * 0.008333333333333333))))))) * (t_0 * (sqrt(2.0) * (1.0 + (((x * x) * (((x * x) * (0.041666666666666664 + ((x * x) * -0.001388888888888889))) + -0.5)) - cos(y))))))) / t_1; else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[(2.0 + N[(N[Sin[x], $MachinePrecision] * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision]}, If[LessEqual[x, -1.1], t$95$2, If[LessEqual[x, 5.2e-26], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] * -0.0625), $MachinePrecision] + N[(x * N[(1.0 + N[(x * N[(x * N[(-0.16666666666666666 + N[(N[(x * x), $MachinePrecision] * 0.008333333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 + N[(N[(N[(x * x), $MachinePrecision] * N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 + N[(N[(x * x), $MachinePrecision] * -0.001388888888888889), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -0.5), $MachinePrecision]), $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$1), $MachinePrecision], t$95$2]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sin y + \frac{\sin x}{-16}\\
t_1 := 3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)\\
t_2 := \frac{2 + \sin x \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(\cos x - \cos y\right)\right)\right)}{t\_1}\\
\mathbf{if}\;x \leq -1.1:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{2 + \left(\sin y \cdot -0.0625 + x \cdot \left(1 + x \cdot \left(x \cdot \left(-0.16666666666666666 + \left(x \cdot x\right) \cdot 0.008333333333333333\right)\right)\right)\right) \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 + \left(\left(x \cdot x\right) \cdot \left(\left(x \cdot x\right) \cdot \left(0.041666666666666664 + \left(x \cdot x\right) \cdot -0.001388888888888889\right) + -0.5\right) - \cos y\right)\right)\right)\right)}{t\_1}\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if x < -1.1000000000000001 or 5.2000000000000002e-26 < x Initial program 98.9%
Simplified99.1%
Taylor expanded in y around 0
sin-lowering-sin.f6462.6%
Simplified62.6%
if -1.1000000000000001 < x < 5.2000000000000002e-26Initial program 99.6%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
unpow2N/A
associate-*l*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.1%
Simplified99.1%
Taylor expanded in x around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
Simplified99.1%
Final simplification79.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (pow (sin y) 2.0))
(t_1 (+ 3.0 (sqrt 5.0)))
(t_2 (/ (cos y) (* 0.5 t_1)))
(t_3 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.6)
(/
(+ 2.0 (* (- (cos x) (cos y)) (* (sqrt 2.0) (* -0.0625 t_0))))
(* 3.0 (+ 1.0 (+ t_2 t_3))))
(if (<= y 0.0048)
(/
(+
2.0
(*
(+
(sin x)
(*
y
(+
-0.0625
(*
(* y y)
(+ 0.010416666666666666 (* (* y y) -0.0005208333333333333))))))
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(*
(* y y)
(+
0.5
(*
(* y y)
(+ (* (* y y) 0.001388888888888889) -0.041666666666666664))))
(+ (cos x) -1.0))))))
(+
3.0
(* 1.5 (+ (* (cos y) (/ 4.0 t_1)) (* (cos x) (+ (sqrt 5.0) -1.0))))))
(/
(+ 2.0 (* -0.0625 (* t_0 (* (sqrt 2.0) (- 1.0 (cos y))))))
(fma t_2 3.0 (* 3.0 (+ 1.0 t_3))))))))
double code(double x, double y) {
double t_0 = pow(sin(y), 2.0);
double t_1 = 3.0 + sqrt(5.0);
double t_2 = cos(y) / (0.5 * t_1);
double t_3 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.6) {
tmp = (2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * (-0.0625 * t_0)))) / (3.0 * (1.0 + (t_2 + t_3)));
} else if (y <= 0.0048) {
tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))))) / (3.0 + (1.5 * ((cos(y) * (4.0 / t_1)) + (cos(x) * (sqrt(5.0) + -1.0)))));
} else {
tmp = (2.0 + (-0.0625 * (t_0 * (sqrt(2.0) * (1.0 - cos(y)))))) / fma(t_2, 3.0, (3.0 * (1.0 + t_3)));
}
return tmp;
}
function code(x, y) t_0 = sin(y) ^ 2.0 t_1 = Float64(3.0 + sqrt(5.0)) t_2 = Float64(cos(y) / Float64(0.5 * t_1)) t_3 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.6) tmp = Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / Float64(3.0 * Float64(1.0 + Float64(t_2 + t_3)))); elseif (y <= 0.0048) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * Float64(0.010416666666666666 + Float64(Float64(y * y) * -0.0005208333333333333)))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * Float64(Float64(Float64(y * y) * 0.001388888888888889) + -0.041666666666666664)))) + Float64(cos(x) + -1.0)))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(y) * Float64(4.0 / t_1)) + Float64(cos(x) * Float64(sqrt(5.0) + -1.0)))))); else tmp = Float64(Float64(2.0 + Float64(-0.0625 * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / fma(t_2, 3.0, Float64(3.0 * Float64(1.0 + t_3)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * t$95$1), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.6], N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(1.0 + N[(t$95$2 + t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 0.0048], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * N[(0.010416666666666666 + N[(N[(y * y), $MachinePrecision] * -0.0005208333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * 0.001388888888888889), $MachinePrecision] + -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[y], $MachinePrecision] * N[(4.0 / t$95$1), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(-0.0625 * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$2 * 3.0 + N[(3.0 * N[(1.0 + t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\sin y}^{2}\\
t_1 := 3 + \sqrt{5}\\
t_2 := \frac{\cos y}{0.5 \cdot t\_1}\\
t_3 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.6:\\
\;\;\;\;\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{3 \cdot \left(1 + \left(t\_2 + t\_3\right)\right)}\\
\mathbf{elif}\;y \leq 0.0048:\\
\;\;\;\;\frac{2 + \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot \left(0.010416666666666666 + \left(y \cdot y\right) \cdot -0.0005208333333333333\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot \left(\left(y \cdot y\right) \cdot 0.001388888888888889 + -0.041666666666666664\right)\right) + \left(\cos x + -1\right)\right)\right)\right)}{3 + 1.5 \cdot \left(\cos y \cdot \frac{4}{t\_1} + \cos x \cdot \left(\sqrt{5} + -1\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + -0.0625 \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{\mathsf{fma}\left(t\_2, 3, 3 \cdot \left(1 + t\_3\right)\right)}\\
\end{array}
\end{array}
if y < -0.599999999999999978Initial program 99.1%
*-commutativeN/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Taylor expanded in x around 0
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
sqrt-lowering-sqrt.f6460.2%
Simplified60.2%
if -0.599999999999999978 < y < 0.00479999999999999958Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
Simplified99.5%
flip--N/A
Applied egg-rr99.7%
if 0.00479999999999999958 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6454.4%
Simplified54.4%
Final simplification77.9%
(FPCore (x y)
:precision binary64
(let* ((t_0 (pow (sin y) 2.0))
(t_1 (/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0)))))
(t_2 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.43)
(/
(+ 2.0 (* (- (cos x) (cos y)) (* (sqrt 2.0) (* -0.0625 t_0))))
(* 3.0 (+ 1.0 (+ t_1 t_2))))
(if (<= y 0.0048)
(/
(+
2.0
(*
(+
(sin x)
(*
y
(+
-0.0625
(*
(* y y)
(+ 0.010416666666666666 (* (* y y) -0.0005208333333333333))))))
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(*
(* y y)
(+
0.5
(*
(* y y)
(+ (* (* y y) 0.001388888888888889) -0.041666666666666664))))
(+ (cos x) -1.0))))))
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0)))))))
(/
(+ 2.0 (* -0.0625 (* t_0 (* (sqrt 2.0) (- 1.0 (cos y))))))
(fma t_1 3.0 (* 3.0 (+ 1.0 t_2))))))))
double code(double x, double y) {
double t_0 = pow(sin(y), 2.0);
double t_1 = cos(y) / (0.5 * (3.0 + sqrt(5.0)));
double t_2 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.43) {
tmp = (2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * (-0.0625 * t_0)))) / (3.0 * (1.0 + (t_1 + t_2)));
} else if (y <= 0.0048) {
tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
} else {
tmp = (2.0 + (-0.0625 * (t_0 * (sqrt(2.0) * (1.0 - cos(y)))))) / fma(t_1, 3.0, (3.0 * (1.0 + t_2)));
}
return tmp;
}
function code(x, y) t_0 = sin(y) ^ 2.0 t_1 = Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) t_2 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.43) tmp = Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / Float64(3.0 * Float64(1.0 + Float64(t_1 + t_2)))); elseif (y <= 0.0048) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * Float64(0.010416666666666666 + Float64(Float64(y * y) * -0.0005208333333333333)))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * Float64(Float64(Float64(y * y) * 0.001388888888888889) + -0.041666666666666664)))) + Float64(cos(x) + -1.0)))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))); else tmp = Float64(Float64(2.0 + Float64(-0.0625 * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / fma(t_1, 3.0, Float64(3.0 * Float64(1.0 + t_2)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.43], N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(1.0 + N[(t$95$1 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 0.0048], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * N[(0.010416666666666666 + N[(N[(y * y), $MachinePrecision] * -0.0005208333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * 0.001388888888888889), $MachinePrecision] + -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(-0.0625 * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$1 * 3.0 + N[(3.0 * N[(1.0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\sin y}^{2}\\
t_1 := \frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}\\
t_2 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.43:\\
\;\;\;\;\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{3 \cdot \left(1 + \left(t\_1 + t\_2\right)\right)}\\
\mathbf{elif}\;y \leq 0.0048:\\
\;\;\;\;\frac{2 + \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot \left(0.010416666666666666 + \left(y \cdot y\right) \cdot -0.0005208333333333333\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot \left(\left(y \cdot y\right) \cdot 0.001388888888888889 + -0.041666666666666664\right)\right) + \left(\cos x + -1\right)\right)\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + -0.0625 \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{\mathsf{fma}\left(t\_1, 3, 3 \cdot \left(1 + t\_2\right)\right)}\\
\end{array}
\end{array}
if y < -0.429999999999999993Initial program 99.1%
*-commutativeN/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Taylor expanded in x around 0
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
sqrt-lowering-sqrt.f6460.2%
Simplified60.2%
if -0.429999999999999993 < y < 0.00479999999999999958Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
Simplified99.5%
if 0.00479999999999999958 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6454.4%
Simplified54.4%
Final simplification77.8%
(FPCore (x y)
:precision binary64
(let* ((t_0 (pow (sin y) 2.0))
(t_1 (/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0)))))
(t_2 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.162)
(/
(+ 2.0 (* (- (cos x) (cos y)) (* (sqrt 2.0) (* -0.0625 t_0))))
(* 3.0 (+ 1.0 (+ t_1 t_2))))
(if (<= y 0.0048)
(/
(+
2.0
(*
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(*
(* y y)
(+
0.5
(*
(* y y)
(+ (* (* y y) 0.001388888888888889) -0.041666666666666664))))
(+ (cos x) -1.0))))
(+ (sin x) (* y (+ -0.0625 (* (* y y) 0.010416666666666666))))))
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0)))))))
(/
(+ 2.0 (* -0.0625 (* t_0 (* (sqrt 2.0) (- 1.0 (cos y))))))
(fma t_1 3.0 (* 3.0 (+ 1.0 t_2))))))))
double code(double x, double y) {
double t_0 = pow(sin(y), 2.0);
double t_1 = cos(y) / (0.5 * (3.0 + sqrt(5.0)));
double t_2 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.162) {
tmp = (2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * (-0.0625 * t_0)))) / (3.0 * (1.0 + (t_1 + t_2)));
} else if (y <= 0.0048) {
tmp = (2.0 + (((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))) * (sin(x) + (y * (-0.0625 + ((y * y) * 0.010416666666666666)))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
} else {
tmp = (2.0 + (-0.0625 * (t_0 * (sqrt(2.0) * (1.0 - cos(y)))))) / fma(t_1, 3.0, (3.0 * (1.0 + t_2)));
}
return tmp;
}
function code(x, y) t_0 = sin(y) ^ 2.0 t_1 = Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) t_2 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.162) tmp = Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / Float64(3.0 * Float64(1.0 + Float64(t_1 + t_2)))); elseif (y <= 0.0048) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * Float64(Float64(Float64(y * y) * 0.001388888888888889) + -0.041666666666666664)))) + Float64(cos(x) + -1.0)))) * Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * 0.010416666666666666)))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))); else tmp = Float64(Float64(2.0 + Float64(-0.0625 * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / fma(t_1, 3.0, Float64(3.0 * Float64(1.0 + t_2)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.162], N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(1.0 + N[(t$95$1 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 0.0048], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * 0.001388888888888889), $MachinePrecision] + -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * 0.010416666666666666), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(-0.0625 * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$1 * 3.0 + N[(3.0 * N[(1.0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\sin y}^{2}\\
t_1 := \frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}\\
t_2 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.162:\\
\;\;\;\;\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{3 \cdot \left(1 + \left(t\_1 + t\_2\right)\right)}\\
\mathbf{elif}\;y \leq 0.0048:\\
\;\;\;\;\frac{2 + \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot \left(\left(y \cdot y\right) \cdot 0.001388888888888889 + -0.041666666666666664\right)\right) + \left(\cos x + -1\right)\right)\right)\right) \cdot \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot 0.010416666666666666\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + -0.0625 \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{\mathsf{fma}\left(t\_1, 3, 3 \cdot \left(1 + t\_2\right)\right)}\\
\end{array}
\end{array}
if y < -0.162000000000000005Initial program 99.1%
*-commutativeN/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Taylor expanded in x around 0
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
sqrt-lowering-sqrt.f6460.2%
Simplified60.2%
if -0.162000000000000005 < y < 0.00479999999999999958Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.4%
Simplified99.4%
if 0.00479999999999999958 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6454.4%
Simplified54.4%
Final simplification77.8%
(FPCore (x y)
:precision binary64
(let* ((t_0 (pow (sin y) 2.0))
(t_1 (/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0)))))
(t_2 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.2)
(/
(+ 2.0 (* (- (cos x) (cos y)) (* (sqrt 2.0) (* -0.0625 t_0))))
(* 3.0 (+ 1.0 (+ t_1 t_2))))
(if (<= y 0.0048)
(/
(+
2.0
(*
(+
(sin x)
(*
y
(+
-0.0625
(*
(* y y)
(+ 0.010416666666666666 (* (* y y) -0.0005208333333333333))))))
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(+ (cos x) -1.0)
(* (* y y) (+ 0.5 (* (* y y) -0.041666666666666664))))))))
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0)))))))
(/
(+ 2.0 (* -0.0625 (* t_0 (* (sqrt 2.0) (- 1.0 (cos y))))))
(fma t_1 3.0 (* 3.0 (+ 1.0 t_2))))))))
double code(double x, double y) {
double t_0 = pow(sin(y), 2.0);
double t_1 = cos(y) / (0.5 * (3.0 + sqrt(5.0)));
double t_2 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.2) {
tmp = (2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * (-0.0625 * t_0)))) / (3.0 * (1.0 + (t_1 + t_2)));
} else if (y <= 0.0048) {
tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * ((cos(x) + -1.0) + ((y * y) * (0.5 + ((y * y) * -0.041666666666666664)))))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
} else {
tmp = (2.0 + (-0.0625 * (t_0 * (sqrt(2.0) * (1.0 - cos(y)))))) / fma(t_1, 3.0, (3.0 * (1.0 + t_2)));
}
return tmp;
}
function code(x, y) t_0 = sin(y) ^ 2.0 t_1 = Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) t_2 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.2) tmp = Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / Float64(3.0 * Float64(1.0 + Float64(t_1 + t_2)))); elseif (y <= 0.0048) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * Float64(0.010416666666666666 + Float64(Float64(y * y) * -0.0005208333333333333)))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(cos(x) + -1.0) + Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * -0.041666666666666664)))))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))); else tmp = Float64(Float64(2.0 + Float64(-0.0625 * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / fma(t_1, 3.0, Float64(3.0 * Float64(1.0 + t_2)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.2], N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(1.0 + N[(t$95$1 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 0.0048], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * N[(0.010416666666666666 + N[(N[(y * y), $MachinePrecision] * -0.0005208333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision] + N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(-0.0625 * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$1 * 3.0 + N[(3.0 * N[(1.0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\sin y}^{2}\\
t_1 := \frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}\\
t_2 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.2:\\
\;\;\;\;\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{3 \cdot \left(1 + \left(t\_1 + t\_2\right)\right)}\\
\mathbf{elif}\;y \leq 0.0048:\\
\;\;\;\;\frac{2 + \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot \left(0.010416666666666666 + \left(y \cdot y\right) \cdot -0.0005208333333333333\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(\cos x + -1\right) + \left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot -0.041666666666666664\right)\right)\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + -0.0625 \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{\mathsf{fma}\left(t\_1, 3, 3 \cdot \left(1 + t\_2\right)\right)}\\
\end{array}
\end{array}
if y < -0.20000000000000001Initial program 99.1%
*-commutativeN/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Taylor expanded in x around 0
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
sqrt-lowering-sqrt.f6460.2%
Simplified60.2%
if -0.20000000000000001 < y < 0.00479999999999999958Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
cos-lowering-cos.f6499.4%
Simplified99.4%
if 0.00479999999999999958 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6454.4%
Simplified54.4%
Final simplification77.8%
(FPCore (x y)
:precision binary64
(let* ((t_0 (pow (sin y) 2.0))
(t_1 (/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0)))))
(t_2 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.07)
(/
(+ 2.0 (* (- (cos x) (cos y)) (* (sqrt 2.0) (* -0.0625 t_0))))
(* 3.0 (+ 1.0 (+ t_1 t_2))))
(if (<= y 0.0048)
(/
(+
2.0
(*
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(*
(* y y)
(+
0.5
(*
(* y y)
(+ (* (* y y) 0.001388888888888889) -0.041666666666666664))))
(+ (cos x) -1.0))))
(+ (sin x) (* y -0.0625))))
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0)))))))
(/
(+ 2.0 (* -0.0625 (* t_0 (* (sqrt 2.0) (- 1.0 (cos y))))))
(fma t_1 3.0 (* 3.0 (+ 1.0 t_2))))))))
double code(double x, double y) {
double t_0 = pow(sin(y), 2.0);
double t_1 = cos(y) / (0.5 * (3.0 + sqrt(5.0)));
double t_2 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.07) {
tmp = (2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * (-0.0625 * t_0)))) / (3.0 * (1.0 + (t_1 + t_2)));
} else if (y <= 0.0048) {
tmp = (2.0 + (((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))) * (sin(x) + (y * -0.0625)))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
} else {
tmp = (2.0 + (-0.0625 * (t_0 * (sqrt(2.0) * (1.0 - cos(y)))))) / fma(t_1, 3.0, (3.0 * (1.0 + t_2)));
}
return tmp;
}
function code(x, y) t_0 = sin(y) ^ 2.0 t_1 = Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) t_2 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.07) tmp = Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / Float64(3.0 * Float64(1.0 + Float64(t_1 + t_2)))); elseif (y <= 0.0048) tmp = Float64(Float64(2.0 + Float64(Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * Float64(Float64(Float64(y * y) * 0.001388888888888889) + -0.041666666666666664)))) + Float64(cos(x) + -1.0)))) * Float64(sin(x) + Float64(y * -0.0625)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))); else tmp = Float64(Float64(2.0 + Float64(-0.0625 * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / fma(t_1, 3.0, Float64(3.0 * Float64(1.0 + t_2)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.07], N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(1.0 + N[(t$95$1 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 0.0048], N[(N[(2.0 + N[(N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * 0.001388888888888889), $MachinePrecision] + -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[Sin[x], $MachinePrecision] + N[(y * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(-0.0625 * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$1 * 3.0 + N[(3.0 * N[(1.0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\sin y}^{2}\\
t_1 := \frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}\\
t_2 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.07:\\
\;\;\;\;\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{3 \cdot \left(1 + \left(t\_1 + t\_2\right)\right)}\\
\mathbf{elif}\;y \leq 0.0048:\\
\;\;\;\;\frac{2 + \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot \left(\left(y \cdot y\right) \cdot 0.001388888888888889 + -0.041666666666666664\right)\right) + \left(\cos x + -1\right)\right)\right)\right) \cdot \left(\sin x + y \cdot -0.0625\right)}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + -0.0625 \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{\mathsf{fma}\left(t\_1, 3, 3 \cdot \left(1 + t\_2\right)\right)}\\
\end{array}
\end{array}
if y < -0.070000000000000007Initial program 99.1%
*-commutativeN/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Taylor expanded in x around 0
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
sqrt-lowering-sqrt.f6460.2%
Simplified60.2%
if -0.070000000000000007 < y < 0.00479999999999999958Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f6499.2%
Simplified99.2%
if 0.00479999999999999958 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6454.4%
Simplified54.4%
Final simplification77.7%
(FPCore (x y)
:precision binary64
(let* ((t_0 (pow (sin y) 2.0))
(t_1 (/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0)))))
(t_2 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.065)
(/
(+ 2.0 (* (- (cos x) (cos y)) (* (sqrt 2.0) (* -0.0625 t_0))))
(* 3.0 (+ 1.0 (+ t_1 t_2))))
(if (<= y 0.0033)
(/
(+
2.0
(*
(+
(sin x)
(*
y
(+
-0.0625
(*
(* y y)
(+ 0.010416666666666666 (* (* y y) -0.0005208333333333333))))))
(* (+ (sin y) (/ (sin x) -16.0)) (* (sqrt 2.0) (+ (cos x) -1.0)))))
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0)))))))
(/
(+ 2.0 (* -0.0625 (* t_0 (* (sqrt 2.0) (- 1.0 (cos y))))))
(fma t_1 3.0 (* 3.0 (+ 1.0 t_2))))))))
double code(double x, double y) {
double t_0 = pow(sin(y), 2.0);
double t_1 = cos(y) / (0.5 * (3.0 + sqrt(5.0)));
double t_2 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.065) {
tmp = (2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * (-0.0625 * t_0)))) / (3.0 * (1.0 + (t_1 + t_2)));
} else if (y <= 0.0033) {
tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (cos(x) + -1.0))))) / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
} else {
tmp = (2.0 + (-0.0625 * (t_0 * (sqrt(2.0) * (1.0 - cos(y)))))) / fma(t_1, 3.0, (3.0 * (1.0 + t_2)));
}
return tmp;
}
function code(x, y) t_0 = sin(y) ^ 2.0 t_1 = Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) t_2 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.065) tmp = Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / Float64(3.0 * Float64(1.0 + Float64(t_1 + t_2)))); elseif (y <= 0.0033) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * Float64(0.010416666666666666 + Float64(Float64(y * y) * -0.0005208333333333333)))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(cos(x) + -1.0))))) / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))); else tmp = Float64(Float64(2.0 + Float64(-0.0625 * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / fma(t_1, 3.0, Float64(3.0 * Float64(1.0 + t_2)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.065], N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(1.0 + N[(t$95$1 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 0.0033], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * N[(0.010416666666666666 + N[(N[(y * y), $MachinePrecision] * -0.0005208333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(-0.0625 * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$1 * 3.0 + N[(3.0 * N[(1.0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\sin y}^{2}\\
t_1 := \frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}\\
t_2 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{3 \cdot \left(1 + \left(t\_1 + t\_2\right)\right)}\\
\mathbf{elif}\;y \leq 0.0033:\\
\;\;\;\;\frac{2 + \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot \left(0.010416666666666666 + \left(y \cdot y\right) \cdot -0.0005208333333333333\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right)\right)}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + -0.0625 \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{\mathsf{fma}\left(t\_1, 3, 3 \cdot \left(1 + t\_2\right)\right)}\\
\end{array}
\end{array}
if y < -0.065000000000000002Initial program 99.1%
*-commutativeN/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Taylor expanded in x around 0
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
sqrt-lowering-sqrt.f6460.2%
Simplified60.2%
if -0.065000000000000002 < y < 0.0033Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
cos-lowering-cos.f6498.9%
Simplified98.9%
if 0.0033 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6454.4%
Simplified54.4%
Final simplification77.5%
(FPCore (x y)
:precision binary64
(let* ((t_0 (pow (sin y) 2.0))
(t_1 (/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0)))))
(t_2 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.065)
(/
(+ 2.0 (* (- (cos x) (cos y)) (* (sqrt 2.0) (* -0.0625 t_0))))
(* 3.0 (+ 1.0 (+ t_1 t_2))))
(if (<= y 4.8e-8)
(/
(+
2.0
(*
(+
(sin x)
(*
y
(+
-0.0625
(*
(* y y)
(+ 0.010416666666666666 (* (* y y) -0.0005208333333333333))))))
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(*
(* y y)
(+
0.5
(*
(* y y)
(+ (* (* y y) 0.001388888888888889) -0.041666666666666664))))
(+ (cos x) -1.0))))))
(+ 3.0 (* 1.5 (+ 3.0 (- (* (cos x) (+ (sqrt 5.0) -1.0)) (sqrt 5.0))))))
(/
(+ 2.0 (* -0.0625 (* t_0 (* (sqrt 2.0) (- 1.0 (cos y))))))
(fma t_1 3.0 (* 3.0 (+ 1.0 t_2))))))))
double code(double x, double y) {
double t_0 = pow(sin(y), 2.0);
double t_1 = cos(y) / (0.5 * (3.0 + sqrt(5.0)));
double t_2 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.065) {
tmp = (2.0 + ((cos(x) - cos(y)) * (sqrt(2.0) * (-0.0625 * t_0)))) / (3.0 * (1.0 + (t_1 + t_2)));
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))))) / (3.0 + (1.5 * (3.0 + ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0)))));
} else {
tmp = (2.0 + (-0.0625 * (t_0 * (sqrt(2.0) * (1.0 - cos(y)))))) / fma(t_1, 3.0, (3.0 * (1.0 + t_2)));
}
return tmp;
}
function code(x, y) t_0 = sin(y) ^ 2.0 t_1 = Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) t_2 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.065) tmp = Float64(Float64(2.0 + Float64(Float64(cos(x) - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / Float64(3.0 * Float64(1.0 + Float64(t_1 + t_2)))); elseif (y <= 4.8e-8) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * Float64(0.010416666666666666 + Float64(Float64(y * y) * -0.0005208333333333333)))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * Float64(Float64(Float64(y * y) * 0.001388888888888889) + -0.041666666666666664)))) + Float64(cos(x) + -1.0)))))) / Float64(3.0 + Float64(1.5 * Float64(3.0 + Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) - sqrt(5.0)))))); else tmp = Float64(Float64(2.0 + Float64(-0.0625 * Float64(t_0 * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / fma(t_1, 3.0, Float64(3.0 * Float64(1.0 + t_2)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.065], N[(N[(2.0 + N[(N[(N[Cos[x], $MachinePrecision] - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(1.0 + N[(t$95$1 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.8e-8], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * N[(0.010416666666666666 + N[(N[(y * y), $MachinePrecision] * -0.0005208333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * 0.001388888888888889), $MachinePrecision] + -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(3.0 + N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(-0.0625 * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(t$95$1 * 3.0 + N[(3.0 * N[(1.0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := {\sin y}^{2}\\
t_1 := \frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}\\
t_2 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;\frac{2 + \left(\cos x - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{3 \cdot \left(1 + \left(t\_1 + t\_2\right)\right)}\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{-8}:\\
\;\;\;\;\frac{2 + \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot \left(0.010416666666666666 + \left(y \cdot y\right) \cdot -0.0005208333333333333\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot \left(\left(y \cdot y\right) \cdot 0.001388888888888889 + -0.041666666666666664\right)\right) + \left(\cos x + -1\right)\right)\right)\right)}{3 + 1.5 \cdot \left(3 + \left(\cos x \cdot \left(\sqrt{5} + -1\right) - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + -0.0625 \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{\mathsf{fma}\left(t\_1, 3, 3 \cdot \left(1 + t\_2\right)\right)}\\
\end{array}
\end{array}
if y < -0.065000000000000002Initial program 99.1%
*-commutativeN/A
*-lowering-*.f64N/A
Applied egg-rr99.3%
Taylor expanded in x around 0
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
sqrt-lowering-sqrt.f6460.2%
Simplified60.2%
if -0.065000000000000002 < y < 4.79999999999999997e-8Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
Simplified99.5%
Taylor expanded in y around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f64N/A
sqrt-lowering-sqrt.f6498.8%
Simplified98.8%
if 4.79999999999999997e-8 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6455.0%
Simplified55.0%
Final simplification77.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0)))))
(t_1
(+
2.0
(* -0.0625 (* (pow (sin y) 2.0) (* (sqrt 2.0) (- 1.0 (cos y)))))))
(t_2 (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0)))))
(if (<= y -0.065)
(/ (/ t_1 (+ 1.0 (+ t_0 t_2))) 3.0)
(if (<= y 4.8e-8)
(/
(+
2.0
(*
(+
(sin x)
(*
y
(+
-0.0625
(*
(* y y)
(+ 0.010416666666666666 (* (* y y) -0.0005208333333333333))))))
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(*
(* y y)
(+
0.5
(*
(* y y)
(+ (* (* y y) 0.001388888888888889) -0.041666666666666664))))
(+ (cos x) -1.0))))))
(+ 3.0 (* 1.5 (+ 3.0 (- (* (cos x) (+ (sqrt 5.0) -1.0)) (sqrt 5.0))))))
(/ t_1 (fma t_0 3.0 (* 3.0 (+ 1.0 t_2))))))))
double code(double x, double y) {
double t_0 = cos(y) / (0.5 * (3.0 + sqrt(5.0)));
double t_1 = 2.0 + (-0.0625 * (pow(sin(y), 2.0) * (sqrt(2.0) * (1.0 - cos(y)))));
double t_2 = cos(x) / (0.5 * (sqrt(5.0) + 1.0));
double tmp;
if (y <= -0.065) {
tmp = (t_1 / (1.0 + (t_0 + t_2))) / 3.0;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))))) / (3.0 + (1.5 * (3.0 + ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0)))));
} else {
tmp = t_1 / fma(t_0, 3.0, (3.0 * (1.0 + t_2)));
}
return tmp;
}
function code(x, y) t_0 = Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) t_1 = Float64(2.0 + Float64(-0.0625 * Float64((sin(y) ^ 2.0) * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) t_2 = Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0))) tmp = 0.0 if (y <= -0.065) tmp = Float64(Float64(t_1 / Float64(1.0 + Float64(t_0 + t_2))) / 3.0); elseif (y <= 4.8e-8) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * Float64(0.010416666666666666 + Float64(Float64(y * y) * -0.0005208333333333333)))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * Float64(Float64(Float64(y * y) * 0.001388888888888889) + -0.041666666666666664)))) + Float64(cos(x) + -1.0)))))) / Float64(3.0 + Float64(1.5 * Float64(3.0 + Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) - sqrt(5.0)))))); else tmp = Float64(t_1 / fma(t_0, 3.0, Float64(3.0 * Float64(1.0 + t_2)))); end return tmp end
code[x_, y_] := Block[{t$95$0 = N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(2.0 + N[(-0.0625 * N[(N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.065], N[(N[(t$95$1 / N[(1.0 + N[(t$95$0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision], If[LessEqual[y, 4.8e-8], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * N[(0.010416666666666666 + N[(N[(y * y), $MachinePrecision] * -0.0005208333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * 0.001388888888888889), $MachinePrecision] + -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(3.0 + N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(t$95$1 / N[(t$95$0 * 3.0 + N[(3.0 * N[(1.0 + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)}\\
t_1 := 2 + -0.0625 \cdot \left({\sin y}^{2} \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)\\
t_2 := \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;\frac{\frac{t\_1}{1 + \left(t\_0 + t\_2\right)}}{3}\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{-8}:\\
\;\;\;\;\frac{2 + \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot \left(0.010416666666666666 + \left(y \cdot y\right) \cdot -0.0005208333333333333\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot \left(\left(y \cdot y\right) \cdot 0.001388888888888889 + -0.041666666666666664\right)\right) + \left(\cos x + -1\right)\right)\right)\right)}{3 + 1.5 \cdot \left(3 + \left(\cos x \cdot \left(\sqrt{5} + -1\right) - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{t\_1}{\mathsf{fma}\left(t\_0, 3, 3 \cdot \left(1 + t\_2\right)\right)}\\
\end{array}
\end{array}
if y < -0.065000000000000002Initial program 99.1%
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6459.9%
Simplified59.9%
if -0.065000000000000002 < y < 4.79999999999999997e-8Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
Simplified99.5%
Taylor expanded in y around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f64N/A
sqrt-lowering-sqrt.f6498.8%
Simplified98.8%
if 4.79999999999999997e-8 < y Initial program 98.9%
+-commutativeN/A
distribute-rgt-inN/A
fma-defineN/A
fma-lowering-fma.f64N/A
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6455.0%
Simplified55.0%
Final simplification77.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- 1.0 (cos y))) (t_1 (* (cos x) (+ (sqrt 5.0) -1.0))))
(if (<= y -0.065)
(/
(/
(+ 2.0 (* -0.0625 (* (pow (sin y) 2.0) (* (sqrt 2.0) t_0))))
(+
1.0
(+
(/ (cos y) (* 0.5 (+ 3.0 (sqrt 5.0))))
(/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0))))))
3.0)
(if (<= y 4.8e-8)
(/
(+
2.0
(*
(+
(sin x)
(*
y
(+
-0.0625
(*
(* y y)
(+ 0.010416666666666666 (* (* y y) -0.0005208333333333333))))))
(*
(+ (sin y) (/ (sin x) -16.0))
(*
(sqrt 2.0)
(+
(*
(* y y)
(+
0.5
(*
(* y y)
(+ (* (* y y) 0.001388888888888889) -0.041666666666666664))))
(+ (cos x) -1.0))))))
(+ 3.0 (* 1.5 (+ 3.0 (- t_1 (sqrt 5.0))))))
(*
(/ 1.0 (+ 3.0 (* 1.5 (+ t_1 (* (cos y) (- 3.0 (sqrt 5.0)))))))
(+
2.0
(*
(- 0.5 (* 0.5 (cos (* 2.0 y))))
(* t_0 (* (sqrt 2.0) -0.0625)))))))))
double code(double x, double y) {
double t_0 = 1.0 - cos(y);
double t_1 = cos(x) * (sqrt(5.0) + -1.0);
double tmp;
if (y <= -0.065) {
tmp = ((2.0 + (-0.0625 * (pow(sin(y), 2.0) * (sqrt(2.0) * t_0)))) / (1.0 + ((cos(y) / (0.5 * (3.0 + sqrt(5.0)))) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))))) / (3.0 + (1.5 * (3.0 + (t_1 - sqrt(5.0)))));
} else {
tmp = (1.0 / (3.0 + (1.5 * (t_1 + (cos(y) * (3.0 - sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * cos((2.0 * y)))) * (t_0 * (sqrt(2.0) * -0.0625))));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = 1.0d0 - cos(y)
t_1 = cos(x) * (sqrt(5.0d0) + (-1.0d0))
if (y <= (-0.065d0)) then
tmp = ((2.0d0 + ((-0.0625d0) * ((sin(y) ** 2.0d0) * (sqrt(2.0d0) * t_0)))) / (1.0d0 + ((cos(y) / (0.5d0 * (3.0d0 + sqrt(5.0d0)))) + (cos(x) / (0.5d0 * (sqrt(5.0d0) + 1.0d0)))))) / 3.0d0
else if (y <= 4.8d-8) then
tmp = (2.0d0 + ((sin(x) + (y * ((-0.0625d0) + ((y * y) * (0.010416666666666666d0 + ((y * y) * (-0.0005208333333333333d0))))))) * ((sin(y) + (sin(x) / (-16.0d0))) * (sqrt(2.0d0) * (((y * y) * (0.5d0 + ((y * y) * (((y * y) * 0.001388888888888889d0) + (-0.041666666666666664d0))))) + (cos(x) + (-1.0d0))))))) / (3.0d0 + (1.5d0 * (3.0d0 + (t_1 - sqrt(5.0d0)))))
else
tmp = (1.0d0 / (3.0d0 + (1.5d0 * (t_1 + (cos(y) * (3.0d0 - sqrt(5.0d0))))))) * (2.0d0 + ((0.5d0 - (0.5d0 * cos((2.0d0 * y)))) * (t_0 * (sqrt(2.0d0) * (-0.0625d0)))))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 1.0 - Math.cos(y);
double t_1 = Math.cos(x) * (Math.sqrt(5.0) + -1.0);
double tmp;
if (y <= -0.065) {
tmp = ((2.0 + (-0.0625 * (Math.pow(Math.sin(y), 2.0) * (Math.sqrt(2.0) * t_0)))) / (1.0 + ((Math.cos(y) / (0.5 * (3.0 + Math.sqrt(5.0)))) + (Math.cos(x) / (0.5 * (Math.sqrt(5.0) + 1.0)))))) / 3.0;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((Math.sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((Math.sin(y) + (Math.sin(x) / -16.0)) * (Math.sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (Math.cos(x) + -1.0)))))) / (3.0 + (1.5 * (3.0 + (t_1 - Math.sqrt(5.0)))));
} else {
tmp = (1.0 / (3.0 + (1.5 * (t_1 + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * Math.cos((2.0 * y)))) * (t_0 * (Math.sqrt(2.0) * -0.0625))));
}
return tmp;
}
def code(x, y): t_0 = 1.0 - math.cos(y) t_1 = math.cos(x) * (math.sqrt(5.0) + -1.0) tmp = 0 if y <= -0.065: tmp = ((2.0 + (-0.0625 * (math.pow(math.sin(y), 2.0) * (math.sqrt(2.0) * t_0)))) / (1.0 + ((math.cos(y) / (0.5 * (3.0 + math.sqrt(5.0)))) + (math.cos(x) / (0.5 * (math.sqrt(5.0) + 1.0)))))) / 3.0 elif y <= 4.8e-8: tmp = (2.0 + ((math.sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((math.sin(y) + (math.sin(x) / -16.0)) * (math.sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (math.cos(x) + -1.0)))))) / (3.0 + (1.5 * (3.0 + (t_1 - math.sqrt(5.0))))) else: tmp = (1.0 / (3.0 + (1.5 * (t_1 + (math.cos(y) * (3.0 - math.sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * math.cos((2.0 * y)))) * (t_0 * (math.sqrt(2.0) * -0.0625)))) return tmp
function code(x, y) t_0 = Float64(1.0 - cos(y)) t_1 = Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) tmp = 0.0 if (y <= -0.065) tmp = Float64(Float64(Float64(2.0 + Float64(-0.0625 * Float64((sin(y) ^ 2.0) * Float64(sqrt(2.0) * t_0)))) / Float64(1.0 + Float64(Float64(cos(y) / Float64(0.5 * Float64(3.0 + sqrt(5.0)))) + Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0)))))) / 3.0); elseif (y <= 4.8e-8) tmp = Float64(Float64(2.0 + Float64(Float64(sin(x) + Float64(y * Float64(-0.0625 + Float64(Float64(y * y) * Float64(0.010416666666666666 + Float64(Float64(y * y) * -0.0005208333333333333)))))) * Float64(Float64(sin(y) + Float64(sin(x) / -16.0)) * Float64(sqrt(2.0) * Float64(Float64(Float64(y * y) * Float64(0.5 + Float64(Float64(y * y) * Float64(Float64(Float64(y * y) * 0.001388888888888889) + -0.041666666666666664)))) + Float64(cos(x) + -1.0)))))) / Float64(3.0 + Float64(1.5 * Float64(3.0 + Float64(t_1 - sqrt(5.0)))))); else tmp = Float64(Float64(1.0 / Float64(3.0 + Float64(1.5 * Float64(t_1 + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))) * Float64(2.0 + Float64(Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * y)))) * Float64(t_0 * Float64(sqrt(2.0) * -0.0625))))); end return tmp end
function tmp_2 = code(x, y) t_0 = 1.0 - cos(y); t_1 = cos(x) * (sqrt(5.0) + -1.0); tmp = 0.0; if (y <= -0.065) tmp = ((2.0 + (-0.0625 * ((sin(y) ^ 2.0) * (sqrt(2.0) * t_0)))) / (1.0 + ((cos(y) / (0.5 * (3.0 + sqrt(5.0)))) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0; elseif (y <= 4.8e-8) tmp = (2.0 + ((sin(x) + (y * (-0.0625 + ((y * y) * (0.010416666666666666 + ((y * y) * -0.0005208333333333333)))))) * ((sin(y) + (sin(x) / -16.0)) * (sqrt(2.0) * (((y * y) * (0.5 + ((y * y) * (((y * y) * 0.001388888888888889) + -0.041666666666666664)))) + (cos(x) + -1.0)))))) / (3.0 + (1.5 * (3.0 + (t_1 - sqrt(5.0))))); else tmp = (1.0 / (3.0 + (1.5 * (t_1 + (cos(y) * (3.0 - sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * cos((2.0 * y)))) * (t_0 * (sqrt(2.0) * -0.0625)))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.065], N[(N[(N[(2.0 + N[(-0.0625 * N[(N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(N[(N[Cos[y], $MachinePrecision] / N[(0.5 * N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision], If[LessEqual[y, 4.8e-8], N[(N[(2.0 + N[(N[(N[Sin[x], $MachinePrecision] + N[(y * N[(-0.0625 + N[(N[(y * y), $MachinePrecision] * N[(0.010416666666666666 + N[(N[(y * y), $MachinePrecision] * -0.0005208333333333333), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[Sin[y], $MachinePrecision] + N[(N[Sin[x], $MachinePrecision] / -16.0), $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * N[(0.5 + N[(N[(y * y), $MachinePrecision] * N[(N[(N[(y * y), $MachinePrecision] * 0.001388888888888889), $MachinePrecision] + -0.041666666666666664), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(3.0 + N[(t$95$1 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 / N[(3.0 + N[(1.5 * N[(t$95$1 + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 + N[(N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 1 - \cos y\\
t_1 := \cos x \cdot \left(\sqrt{5} + -1\right)\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;\frac{\frac{2 + -0.0625 \cdot \left({\sin y}^{2} \cdot \left(\sqrt{2} \cdot t\_0\right)\right)}{1 + \left(\frac{\cos y}{0.5 \cdot \left(3 + \sqrt{5}\right)} + \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\right)}}{3}\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{-8}:\\
\;\;\;\;\frac{2 + \left(\sin x + y \cdot \left(-0.0625 + \left(y \cdot y\right) \cdot \left(0.010416666666666666 + \left(y \cdot y\right) \cdot -0.0005208333333333333\right)\right)\right) \cdot \left(\left(\sin y + \frac{\sin x}{-16}\right) \cdot \left(\sqrt{2} \cdot \left(\left(y \cdot y\right) \cdot \left(0.5 + \left(y \cdot y\right) \cdot \left(\left(y \cdot y\right) \cdot 0.001388888888888889 + -0.041666666666666664\right)\right) + \left(\cos x + -1\right)\right)\right)\right)}{3 + 1.5 \cdot \left(3 + \left(t\_1 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{3 + 1.5 \cdot \left(t\_1 + \cos y \cdot \left(3 - \sqrt{5}\right)\right)} \cdot \left(2 + \left(0.5 - 0.5 \cdot \cos \left(2 \cdot y\right)\right) \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot -0.0625\right)\right)\right)\\
\end{array}
\end{array}
if y < -0.065000000000000002Initial program 99.1%
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6459.9%
Simplified59.9%
if -0.065000000000000002 < y < 4.79999999999999997e-8Initial program 99.6%
Simplified99.5%
Taylor expanded in y around 0
+-lowering-+.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sub-negN/A
metadata-evalN/A
+-commutativeN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64N/A
unpow2N/A
*-lowering-*.f6499.5%
Simplified99.5%
Taylor expanded in y around 0
+-commutativeN/A
associate--l+N/A
+-lowering-+.f64N/A
Simplified99.5%
Taylor expanded in y around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f64N/A
sqrt-lowering-sqrt.f6498.8%
Simplified98.8%
if 4.79999999999999997e-8 < y Initial program 98.9%
Simplified99.0%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6454.9%
Simplified54.9%
Applied egg-rr55.0%
Final simplification77.4%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- 1.0 (cos y)))
(t_1 (* (cos x) (+ (sqrt 5.0) -1.0)))
(t_2 (+ 3.0 (sqrt 5.0))))
(if (<= y -0.065)
(/
(/
(+ 2.0 (* -0.0625 (* (pow (sin y) 2.0) (* (sqrt 2.0) t_0))))
(+
1.0
(+ (/ (cos y) (* 0.5 t_2)) (/ (cos x) (* 0.5 (+ (sqrt 5.0) 1.0))))))
3.0)
(if (<= y 4.8e-8)
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ (/ 4.0 t_2) t_1))))
(*
(/ 1.0 (+ 3.0 (* 1.5 (+ t_1 (* (cos y) (- 3.0 (sqrt 5.0)))))))
(+
2.0
(*
(- 0.5 (* 0.5 (cos (* 2.0 y))))
(* t_0 (* (sqrt 2.0) -0.0625)))))))))
double code(double x, double y) {
double t_0 = 1.0 - cos(y);
double t_1 = cos(x) * (sqrt(5.0) + -1.0);
double t_2 = 3.0 + sqrt(5.0);
double tmp;
if (y <= -0.065) {
tmp = ((2.0 + (-0.0625 * (pow(sin(y), 2.0) * (sqrt(2.0) * t_0)))) / (1.0 + ((cos(y) / (0.5 * t_2)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_2) + t_1)));
} else {
tmp = (1.0 / (3.0 + (1.5 * (t_1 + (cos(y) * (3.0 - sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * cos((2.0 * y)))) * (t_0 * (sqrt(2.0) * -0.0625))));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_0 = 1.0d0 - cos(y)
t_1 = cos(x) * (sqrt(5.0d0) + (-1.0d0))
t_2 = 3.0d0 + sqrt(5.0d0)
if (y <= (-0.065d0)) then
tmp = ((2.0d0 + ((-0.0625d0) * ((sin(y) ** 2.0d0) * (sqrt(2.0d0) * t_0)))) / (1.0d0 + ((cos(y) / (0.5d0 * t_2)) + (cos(x) / (0.5d0 * (sqrt(5.0d0) + 1.0d0)))))) / 3.0d0
else if (y <= 4.8d-8) then
tmp = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / t_2) + t_1)))
else
tmp = (1.0d0 / (3.0d0 + (1.5d0 * (t_1 + (cos(y) * (3.0d0 - sqrt(5.0d0))))))) * (2.0d0 + ((0.5d0 - (0.5d0 * cos((2.0d0 * y)))) * (t_0 * (sqrt(2.0d0) * (-0.0625d0)))))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 1.0 - Math.cos(y);
double t_1 = Math.cos(x) * (Math.sqrt(5.0) + -1.0);
double t_2 = 3.0 + Math.sqrt(5.0);
double tmp;
if (y <= -0.065) {
tmp = ((2.0 + (-0.0625 * (Math.pow(Math.sin(y), 2.0) * (Math.sqrt(2.0) * t_0)))) / (1.0 + ((Math.cos(y) / (0.5 * t_2)) + (Math.cos(x) / (0.5 * (Math.sqrt(5.0) + 1.0)))))) / 3.0;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_2) + t_1)));
} else {
tmp = (1.0 / (3.0 + (1.5 * (t_1 + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * Math.cos((2.0 * y)))) * (t_0 * (Math.sqrt(2.0) * -0.0625))));
}
return tmp;
}
def code(x, y): t_0 = 1.0 - math.cos(y) t_1 = math.cos(x) * (math.sqrt(5.0) + -1.0) t_2 = 3.0 + math.sqrt(5.0) tmp = 0 if y <= -0.065: tmp = ((2.0 + (-0.0625 * (math.pow(math.sin(y), 2.0) * (math.sqrt(2.0) * t_0)))) / (1.0 + ((math.cos(y) / (0.5 * t_2)) + (math.cos(x) / (0.5 * (math.sqrt(5.0) + 1.0)))))) / 3.0 elif y <= 4.8e-8: tmp = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_2) + t_1))) else: tmp = (1.0 / (3.0 + (1.5 * (t_1 + (math.cos(y) * (3.0 - math.sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * math.cos((2.0 * y)))) * (t_0 * (math.sqrt(2.0) * -0.0625)))) return tmp
function code(x, y) t_0 = Float64(1.0 - cos(y)) t_1 = Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) t_2 = Float64(3.0 + sqrt(5.0)) tmp = 0.0 if (y <= -0.065) tmp = Float64(Float64(Float64(2.0 + Float64(-0.0625 * Float64((sin(y) ^ 2.0) * Float64(sqrt(2.0) * t_0)))) / Float64(1.0 + Float64(Float64(cos(y) / Float64(0.5 * t_2)) + Float64(cos(x) / Float64(0.5 * Float64(sqrt(5.0) + 1.0)))))) / 3.0); elseif (y <= 4.8e-8) tmp = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / t_2) + t_1)))); else tmp = Float64(Float64(1.0 / Float64(3.0 + Float64(1.5 * Float64(t_1 + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))) * Float64(2.0 + Float64(Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * y)))) * Float64(t_0 * Float64(sqrt(2.0) * -0.0625))))); end return tmp end
function tmp_2 = code(x, y) t_0 = 1.0 - cos(y); t_1 = cos(x) * (sqrt(5.0) + -1.0); t_2 = 3.0 + sqrt(5.0); tmp = 0.0; if (y <= -0.065) tmp = ((2.0 + (-0.0625 * ((sin(y) ^ 2.0) * (sqrt(2.0) * t_0)))) / (1.0 + ((cos(y) / (0.5 * t_2)) + (cos(x) / (0.5 * (sqrt(5.0) + 1.0)))))) / 3.0; elseif (y <= 4.8e-8) tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / t_2) + t_1))); else tmp = (1.0 / (3.0 + (1.5 * (t_1 + (cos(y) * (3.0 - sqrt(5.0))))))) * (2.0 + ((0.5 - (0.5 * cos((2.0 * y)))) * (t_0 * (sqrt(2.0) * -0.0625)))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.065], N[(N[(N[(2.0 + N[(-0.0625 * N[(N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(N[(N[Cos[y], $MachinePrecision] / N[(0.5 * t$95$2), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] / N[(0.5 * N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision], If[LessEqual[y, 4.8e-8], N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / t$95$2), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 / N[(3.0 + N[(1.5 * N[(t$95$1 + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 + N[(N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 1 - \cos y\\
t_1 := \cos x \cdot \left(\sqrt{5} + -1\right)\\
t_2 := 3 + \sqrt{5}\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;\frac{\frac{2 + -0.0625 \cdot \left({\sin y}^{2} \cdot \left(\sqrt{2} \cdot t\_0\right)\right)}{1 + \left(\frac{\cos y}{0.5 \cdot t\_2} + \frac{\cos x}{0.5 \cdot \left(\sqrt{5} + 1\right)}\right)}}{3}\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{-8}:\\
\;\;\;\;\frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{t\_2} + t\_1\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{3 + 1.5 \cdot \left(t\_1 + \cos y \cdot \left(3 - \sqrt{5}\right)\right)} \cdot \left(2 + \left(0.5 - 0.5 \cdot \cos \left(2 \cdot y\right)\right) \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot -0.0625\right)\right)\right)\\
\end{array}
\end{array}
if y < -0.065000000000000002Initial program 99.1%
Applied egg-rr99.2%
Taylor expanded in x around 0
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f6459.9%
Simplified59.9%
if -0.065000000000000002 < y < 4.79999999999999997e-8Initial program 99.6%
Simplified99.5%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified98.4%
if 4.79999999999999997e-8 < y Initial program 98.9%
Simplified99.0%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6454.9%
Simplified54.9%
Applied egg-rr55.0%
Final simplification77.2%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- 1.0 (cos y)))
(t_1 (- 3.0 (sqrt 5.0)))
(t_2 (+ (sqrt 5.0) -1.0))
(t_3 (* (cos x) t_2)))
(if (<= y -0.065)
(/
(+ 2.0 (* (* -0.0625 (pow (sin y) 2.0)) (* (sqrt 2.0) t_0)))
(* 3.0 (+ (+ 1.0 (* (cos x) (/ t_2 2.0))) (* (cos y) (/ t_1 2.0)))))
(if (<= y 4.8e-8)
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ (/ 4.0 (+ 3.0 (sqrt 5.0))) t_3))))
(*
(/ 1.0 (+ 3.0 (* 1.5 (+ t_3 (* (cos y) t_1)))))
(+
2.0
(*
(- 0.5 (* 0.5 (cos (* 2.0 y))))
(* t_0 (* (sqrt 2.0) -0.0625)))))))))
double code(double x, double y) {
double t_0 = 1.0 - cos(y);
double t_1 = 3.0 - sqrt(5.0);
double t_2 = sqrt(5.0) + -1.0;
double t_3 = cos(x) * t_2;
double tmp;
if (y <= -0.065) {
tmp = (2.0 + ((-0.0625 * pow(sin(y), 2.0)) * (sqrt(2.0) * t_0))) / (3.0 * ((1.0 + (cos(x) * (t_2 / 2.0))) + (cos(y) * (t_1 / 2.0))));
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + t_3)));
} else {
tmp = (1.0 / (3.0 + (1.5 * (t_3 + (cos(y) * t_1))))) * (2.0 + ((0.5 - (0.5 * cos((2.0 * y)))) * (t_0 * (sqrt(2.0) * -0.0625))));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = 1.0d0 - cos(y)
t_1 = 3.0d0 - sqrt(5.0d0)
t_2 = sqrt(5.0d0) + (-1.0d0)
t_3 = cos(x) * t_2
if (y <= (-0.065d0)) then
tmp = (2.0d0 + (((-0.0625d0) * (sin(y) ** 2.0d0)) * (sqrt(2.0d0) * t_0))) / (3.0d0 * ((1.0d0 + (cos(x) * (t_2 / 2.0d0))) + (cos(y) * (t_1 / 2.0d0))))
else if (y <= 4.8d-8) then
tmp = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / (3.0d0 + sqrt(5.0d0))) + t_3)))
else
tmp = (1.0d0 / (3.0d0 + (1.5d0 * (t_3 + (cos(y) * t_1))))) * (2.0d0 + ((0.5d0 - (0.5d0 * cos((2.0d0 * y)))) * (t_0 * (sqrt(2.0d0) * (-0.0625d0)))))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 1.0 - Math.cos(y);
double t_1 = 3.0 - Math.sqrt(5.0);
double t_2 = Math.sqrt(5.0) + -1.0;
double t_3 = Math.cos(x) * t_2;
double tmp;
if (y <= -0.065) {
tmp = (2.0 + ((-0.0625 * Math.pow(Math.sin(y), 2.0)) * (Math.sqrt(2.0) * t_0))) / (3.0 * ((1.0 + (Math.cos(x) * (t_2 / 2.0))) + (Math.cos(y) * (t_1 / 2.0))));
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + Math.sqrt(5.0))) + t_3)));
} else {
tmp = (1.0 / (3.0 + (1.5 * (t_3 + (Math.cos(y) * t_1))))) * (2.0 + ((0.5 - (0.5 * Math.cos((2.0 * y)))) * (t_0 * (Math.sqrt(2.0) * -0.0625))));
}
return tmp;
}
def code(x, y): t_0 = 1.0 - math.cos(y) t_1 = 3.0 - math.sqrt(5.0) t_2 = math.sqrt(5.0) + -1.0 t_3 = math.cos(x) * t_2 tmp = 0 if y <= -0.065: tmp = (2.0 + ((-0.0625 * math.pow(math.sin(y), 2.0)) * (math.sqrt(2.0) * t_0))) / (3.0 * ((1.0 + (math.cos(x) * (t_2 / 2.0))) + (math.cos(y) * (t_1 / 2.0)))) elif y <= 4.8e-8: tmp = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + math.sqrt(5.0))) + t_3))) else: tmp = (1.0 / (3.0 + (1.5 * (t_3 + (math.cos(y) * t_1))))) * (2.0 + ((0.5 - (0.5 * math.cos((2.0 * y)))) * (t_0 * (math.sqrt(2.0) * -0.0625)))) return tmp
function code(x, y) t_0 = Float64(1.0 - cos(y)) t_1 = Float64(3.0 - sqrt(5.0)) t_2 = Float64(sqrt(5.0) + -1.0) t_3 = Float64(cos(x) * t_2) tmp = 0.0 if (y <= -0.065) tmp = Float64(Float64(2.0 + Float64(Float64(-0.0625 * (sin(y) ^ 2.0)) * Float64(sqrt(2.0) * t_0))) / Float64(3.0 * Float64(Float64(1.0 + Float64(cos(x) * Float64(t_2 / 2.0))) + Float64(cos(y) * Float64(t_1 / 2.0))))); elseif (y <= 4.8e-8) tmp = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / Float64(3.0 + sqrt(5.0))) + t_3)))); else tmp = Float64(Float64(1.0 / Float64(3.0 + Float64(1.5 * Float64(t_3 + Float64(cos(y) * t_1))))) * Float64(2.0 + Float64(Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * y)))) * Float64(t_0 * Float64(sqrt(2.0) * -0.0625))))); end return tmp end
function tmp_2 = code(x, y) t_0 = 1.0 - cos(y); t_1 = 3.0 - sqrt(5.0); t_2 = sqrt(5.0) + -1.0; t_3 = cos(x) * t_2; tmp = 0.0; if (y <= -0.065) tmp = (2.0 + ((-0.0625 * (sin(y) ^ 2.0)) * (sqrt(2.0) * t_0))) / (3.0 * ((1.0 + (cos(x) * (t_2 / 2.0))) + (cos(y) * (t_1 / 2.0)))); elseif (y <= 4.8e-8) tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + t_3))); else tmp = (1.0 / (3.0 + (1.5 * (t_3 + (cos(y) * t_1))))) * (2.0 + ((0.5 - (0.5 * cos((2.0 * y)))) * (t_0 * (sqrt(2.0) * -0.0625)))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, Block[{t$95$3 = N[(N[Cos[x], $MachinePrecision] * t$95$2), $MachinePrecision]}, If[LessEqual[y, -0.065], N[(N[(2.0 + N[(N[(-0.0625 * N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 * N[(N[(1.0 + N[(N[Cos[x], $MachinePrecision] * N[(t$95$2 / 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(t$95$1 / 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[y, 4.8e-8], N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$3), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 / N[(3.0 + N[(1.5 * N[(t$95$3 + N[(N[Cos[y], $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(2.0 + N[(N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$0 * N[(N[Sqrt[2.0], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 1 - \cos y\\
t_1 := 3 - \sqrt{5}\\
t_2 := \sqrt{5} + -1\\
t_3 := \cos x \cdot t\_2\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;\frac{2 + \left(-0.0625 \cdot {\sin y}^{2}\right) \cdot \left(\sqrt{2} \cdot t\_0\right)}{3 \cdot \left(\left(1 + \cos x \cdot \frac{t\_2}{2}\right) + \cos y \cdot \frac{t\_1}{2}\right)}\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{-8}:\\
\;\;\;\;\frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{3 + \sqrt{5}} + t\_3\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{3 + 1.5 \cdot \left(t\_3 + \cos y \cdot t\_1\right)} \cdot \left(2 + \left(0.5 - 0.5 \cdot \cos \left(2 \cdot y\right)\right) \cdot \left(t\_0 \cdot \left(\sqrt{2} \cdot -0.0625\right)\right)\right)\\
\end{array}
\end{array}
if y < -0.065000000000000002Initial program 99.1%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6459.8%
Simplified59.8%
if -0.065000000000000002 < y < 4.79999999999999997e-8Initial program 99.6%
Simplified99.5%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified98.4%
if 4.79999999999999997e-8 < y Initial program 98.9%
Simplified99.0%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6454.9%
Simplified54.9%
Applied egg-rr55.0%
Final simplification77.2%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- 0.5 (* 0.5 (cos (* 2.0 y)))))
(t_1 (- 1.0 (cos y)))
(t_2 (* (cos x) (+ (sqrt 5.0) -1.0)))
(t_3 (+ 3.0 (* 1.5 (+ t_2 (* (cos y) (- 3.0 (sqrt 5.0))))))))
(if (<= y -0.065)
(/ (+ 2.0 (* t_1 (* (sqrt 2.0) (* -0.0625 t_0)))) t_3)
(if (<= y 4.8e-8)
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ (/ 4.0 (+ 3.0 (sqrt 5.0))) t_2))))
(* (/ 1.0 t_3) (+ 2.0 (* t_0 (* t_1 (* (sqrt 2.0) -0.0625)))))))))
double code(double x, double y) {
double t_0 = 0.5 - (0.5 * cos((2.0 * y)));
double t_1 = 1.0 - cos(y);
double t_2 = cos(x) * (sqrt(5.0) + -1.0);
double t_3 = 3.0 + (1.5 * (t_2 + (cos(y) * (3.0 - sqrt(5.0)))));
double tmp;
if (y <= -0.065) {
tmp = (2.0 + (t_1 * (sqrt(2.0) * (-0.0625 * t_0)))) / t_3;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + t_2)));
} else {
tmp = (1.0 / t_3) * (2.0 + (t_0 * (t_1 * (sqrt(2.0) * -0.0625))));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: t_3
real(8) :: tmp
t_0 = 0.5d0 - (0.5d0 * cos((2.0d0 * y)))
t_1 = 1.0d0 - cos(y)
t_2 = cos(x) * (sqrt(5.0d0) + (-1.0d0))
t_3 = 3.0d0 + (1.5d0 * (t_2 + (cos(y) * (3.0d0 - sqrt(5.0d0)))))
if (y <= (-0.065d0)) then
tmp = (2.0d0 + (t_1 * (sqrt(2.0d0) * ((-0.0625d0) * t_0)))) / t_3
else if (y <= 4.8d-8) then
tmp = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / (3.0d0 + sqrt(5.0d0))) + t_2)))
else
tmp = (1.0d0 / t_3) * (2.0d0 + (t_0 * (t_1 * (sqrt(2.0d0) * (-0.0625d0)))))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 0.5 - (0.5 * Math.cos((2.0 * y)));
double t_1 = 1.0 - Math.cos(y);
double t_2 = Math.cos(x) * (Math.sqrt(5.0) + -1.0);
double t_3 = 3.0 + (1.5 * (t_2 + (Math.cos(y) * (3.0 - Math.sqrt(5.0)))));
double tmp;
if (y <= -0.065) {
tmp = (2.0 + (t_1 * (Math.sqrt(2.0) * (-0.0625 * t_0)))) / t_3;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + Math.sqrt(5.0))) + t_2)));
} else {
tmp = (1.0 / t_3) * (2.0 + (t_0 * (t_1 * (Math.sqrt(2.0) * -0.0625))));
}
return tmp;
}
def code(x, y): t_0 = 0.5 - (0.5 * math.cos((2.0 * y))) t_1 = 1.0 - math.cos(y) t_2 = math.cos(x) * (math.sqrt(5.0) + -1.0) t_3 = 3.0 + (1.5 * (t_2 + (math.cos(y) * (3.0 - math.sqrt(5.0))))) tmp = 0 if y <= -0.065: tmp = (2.0 + (t_1 * (math.sqrt(2.0) * (-0.0625 * t_0)))) / t_3 elif y <= 4.8e-8: tmp = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + math.sqrt(5.0))) + t_2))) else: tmp = (1.0 / t_3) * (2.0 + (t_0 * (t_1 * (math.sqrt(2.0) * -0.0625)))) return tmp
function code(x, y) t_0 = Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * y)))) t_1 = Float64(1.0 - cos(y)) t_2 = Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) t_3 = Float64(3.0 + Float64(1.5 * Float64(t_2 + Float64(cos(y) * Float64(3.0 - sqrt(5.0)))))) tmp = 0.0 if (y <= -0.065) tmp = Float64(Float64(2.0 + Float64(t_1 * Float64(sqrt(2.0) * Float64(-0.0625 * t_0)))) / t_3); elseif (y <= 4.8e-8) tmp = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / Float64(3.0 + sqrt(5.0))) + t_2)))); else tmp = Float64(Float64(1.0 / t_3) * Float64(2.0 + Float64(t_0 * Float64(t_1 * Float64(sqrt(2.0) * -0.0625))))); end return tmp end
function tmp_2 = code(x, y) t_0 = 0.5 - (0.5 * cos((2.0 * y))); t_1 = 1.0 - cos(y); t_2 = cos(x) * (sqrt(5.0) + -1.0); t_3 = 3.0 + (1.5 * (t_2 + (cos(y) * (3.0 - sqrt(5.0))))); tmp = 0.0; if (y <= -0.065) tmp = (2.0 + (t_1 * (sqrt(2.0) * (-0.0625 * t_0)))) / t_3; elseif (y <= 4.8e-8) tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + t_2))); else tmp = (1.0 / t_3) * (2.0 + (t_0 * (t_1 * (sqrt(2.0) * -0.0625)))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(3.0 + N[(1.5 * N[(t$95$2 + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.065], N[(N[(2.0 + N[(t$95$1 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$3), $MachinePrecision], If[LessEqual[y, 4.8e-8], N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$2), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(1.0 / t$95$3), $MachinePrecision] * N[(2.0 + N[(t$95$0 * N[(t$95$1 * N[(N[Sqrt[2.0], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 0.5 - 0.5 \cdot \cos \left(2 \cdot y\right)\\
t_1 := 1 - \cos y\\
t_2 := \cos x \cdot \left(\sqrt{5} + -1\right)\\
t_3 := 3 + 1.5 \cdot \left(t\_2 + \cos y \cdot \left(3 - \sqrt{5}\right)\right)\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;\frac{2 + t\_1 \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot t\_0\right)\right)}{t\_3}\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{-8}:\\
\;\;\;\;\frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{3 + \sqrt{5}} + t\_2\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{1}{t\_3} \cdot \left(2 + t\_0 \cdot \left(t\_1 \cdot \left(\sqrt{2} \cdot -0.0625\right)\right)\right)\\
\end{array}
\end{array}
if y < -0.065000000000000002Initial program 99.1%
Simplified99.1%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6459.7%
Simplified59.7%
*-commutativeN/A
associate-*l*N/A
*-lowering-*.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
*-lowering-*.f64N/A
unpow2N/A
sqr-sin-aN/A
--lowering--.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f6459.7%
Applied egg-rr59.7%
if -0.065000000000000002 < y < 4.79999999999999997e-8Initial program 99.6%
Simplified99.5%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified98.4%
if 4.79999999999999997e-8 < y Initial program 98.9%
Simplified99.0%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6454.9%
Simplified54.9%
Applied egg-rr55.0%
Final simplification77.1%
(FPCore (x y)
:precision binary64
(let* ((t_0 (* (cos x) (+ (sqrt 5.0) -1.0)))
(t_1
(/
(+
2.0
(*
(- 1.0 (cos y))
(* (sqrt 2.0) (* -0.0625 (- 0.5 (* 0.5 (cos (* 2.0 y))))))))
(+ 3.0 (* 1.5 (+ t_0 (* (cos y) (- 3.0 (sqrt 5.0)))))))))
(if (<= y -0.065)
t_1
(if (<= y 4.8e-8)
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ (/ 4.0 (+ 3.0 (sqrt 5.0))) t_0))))
t_1))))
double code(double x, double y) {
double t_0 = cos(x) * (sqrt(5.0) + -1.0);
double t_1 = (2.0 + ((1.0 - cos(y)) * (sqrt(2.0) * (-0.0625 * (0.5 - (0.5 * cos((2.0 * y)))))))) / (3.0 + (1.5 * (t_0 + (cos(y) * (3.0 - sqrt(5.0))))));
double tmp;
if (y <= -0.065) {
tmp = t_1;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + t_0)));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = cos(x) * (sqrt(5.0d0) + (-1.0d0))
t_1 = (2.0d0 + ((1.0d0 - cos(y)) * (sqrt(2.0d0) * ((-0.0625d0) * (0.5d0 - (0.5d0 * cos((2.0d0 * y)))))))) / (3.0d0 + (1.5d0 * (t_0 + (cos(y) * (3.0d0 - sqrt(5.0d0))))))
if (y <= (-0.065d0)) then
tmp = t_1
else if (y <= 4.8d-8) then
tmp = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / (3.0d0 + sqrt(5.0d0))) + t_0)))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = Math.cos(x) * (Math.sqrt(5.0) + -1.0);
double t_1 = (2.0 + ((1.0 - Math.cos(y)) * (Math.sqrt(2.0) * (-0.0625 * (0.5 - (0.5 * Math.cos((2.0 * y)))))))) / (3.0 + (1.5 * (t_0 + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))));
double tmp;
if (y <= -0.065) {
tmp = t_1;
} else if (y <= 4.8e-8) {
tmp = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + Math.sqrt(5.0))) + t_0)));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y): t_0 = math.cos(x) * (math.sqrt(5.0) + -1.0) t_1 = (2.0 + ((1.0 - math.cos(y)) * (math.sqrt(2.0) * (-0.0625 * (0.5 - (0.5 * math.cos((2.0 * y)))))))) / (3.0 + (1.5 * (t_0 + (math.cos(y) * (3.0 - math.sqrt(5.0)))))) tmp = 0 if y <= -0.065: tmp = t_1 elif y <= 4.8e-8: tmp = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + math.sqrt(5.0))) + t_0))) else: tmp = t_1 return tmp
function code(x, y) t_0 = Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) t_1 = Float64(Float64(2.0 + Float64(Float64(1.0 - cos(y)) * Float64(sqrt(2.0) * Float64(-0.0625 * Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * y)))))))) / Float64(3.0 + Float64(1.5 * Float64(t_0 + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))) tmp = 0.0 if (y <= -0.065) tmp = t_1; elseif (y <= 4.8e-8) tmp = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / Float64(3.0 + sqrt(5.0))) + t_0)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y) t_0 = cos(x) * (sqrt(5.0) + -1.0); t_1 = (2.0 + ((1.0 - cos(y)) * (sqrt(2.0) * (-0.0625 * (0.5 - (0.5 * cos((2.0 * y)))))))) / (3.0 + (1.5 * (t_0 + (cos(y) * (3.0 - sqrt(5.0)))))); tmp = 0.0; if (y <= -0.065) tmp = t_1; elseif (y <= 4.8e-8) tmp = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + t_0))); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(2.0 + N[(N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(-0.0625 * N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * y), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(t$95$0 + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[y, -0.065], t$95$1, If[LessEqual[y, 4.8e-8], N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cos x \cdot \left(\sqrt{5} + -1\right)\\
t_1 := \frac{2 + \left(1 - \cos y\right) \cdot \left(\sqrt{2} \cdot \left(-0.0625 \cdot \left(0.5 - 0.5 \cdot \cos \left(2 \cdot y\right)\right)\right)\right)}{3 + 1.5 \cdot \left(t\_0 + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{if}\;y \leq -0.065:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;y \leq 4.8 \cdot 10^{-8}:\\
\;\;\;\;\frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{3 + \sqrt{5}} + t\_0\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if y < -0.065000000000000002 or 4.79999999999999997e-8 < y Initial program 99.0%
Simplified99.1%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6457.4%
Simplified57.4%
*-commutativeN/A
associate-*l*N/A
*-lowering-*.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
*-lowering-*.f64N/A
unpow2N/A
sqr-sin-aN/A
--lowering--.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f6457.4%
Applied egg-rr57.4%
if -0.065000000000000002 < y < 4.79999999999999997e-8Initial program 99.6%
Simplified99.5%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified98.4%
Final simplification77.1%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ 3.0 (sqrt 5.0)))
(t_1
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ (/ 4.0 t_0) (* (cos x) (+ (sqrt 5.0) -1.0))))))))
(if (<= x -9.2e-6)
t_1
(if (<= x 5.2e-26)
(/
(/
(+
2.0
(* -0.0625 (* (pow (sin y) 2.0) (* (sqrt 2.0) (- 1.0 (cos y))))))
(+ 1.0 (+ (/ 2.0 (+ (sqrt 5.0) 1.0)) (/ (* 2.0 (cos y)) t_0))))
3.0)
t_1))))
double code(double x, double y) {
double t_0 = 3.0 + sqrt(5.0);
double t_1 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (cos(x) * (sqrt(5.0) + -1.0)))));
double tmp;
if (x <= -9.2e-6) {
tmp = t_1;
} else if (x <= 5.2e-26) {
tmp = ((2.0 + (-0.0625 * (pow(sin(y), 2.0) * (sqrt(2.0) * (1.0 - cos(y)))))) / (1.0 + ((2.0 / (sqrt(5.0) + 1.0)) + ((2.0 * cos(y)) / t_0)))) / 3.0;
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = 3.0d0 + sqrt(5.0d0)
t_1 = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / t_0) + (cos(x) * (sqrt(5.0d0) + (-1.0d0))))))
if (x <= (-9.2d-6)) then
tmp = t_1
else if (x <= 5.2d-26) then
tmp = ((2.0d0 + ((-0.0625d0) * ((sin(y) ** 2.0d0) * (sqrt(2.0d0) * (1.0d0 - cos(y)))))) / (1.0d0 + ((2.0d0 / (sqrt(5.0d0) + 1.0d0)) + ((2.0d0 * cos(y)) / t_0)))) / 3.0d0
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 + Math.sqrt(5.0);
double t_1 = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (Math.cos(x) * (Math.sqrt(5.0) + -1.0)))));
double tmp;
if (x <= -9.2e-6) {
tmp = t_1;
} else if (x <= 5.2e-26) {
tmp = ((2.0 + (-0.0625 * (Math.pow(Math.sin(y), 2.0) * (Math.sqrt(2.0) * (1.0 - Math.cos(y)))))) / (1.0 + ((2.0 / (Math.sqrt(5.0) + 1.0)) + ((2.0 * Math.cos(y)) / t_0)))) / 3.0;
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y): t_0 = 3.0 + math.sqrt(5.0) t_1 = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (math.cos(x) * (math.sqrt(5.0) + -1.0))))) tmp = 0 if x <= -9.2e-6: tmp = t_1 elif x <= 5.2e-26: tmp = ((2.0 + (-0.0625 * (math.pow(math.sin(y), 2.0) * (math.sqrt(2.0) * (1.0 - math.cos(y)))))) / (1.0 + ((2.0 / (math.sqrt(5.0) + 1.0)) + ((2.0 * math.cos(y)) / t_0)))) / 3.0 else: tmp = t_1 return tmp
function code(x, y) t_0 = Float64(3.0 + sqrt(5.0)) t_1 = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / t_0) + Float64(cos(x) * Float64(sqrt(5.0) + -1.0)))))) tmp = 0.0 if (x <= -9.2e-6) tmp = t_1; elseif (x <= 5.2e-26) tmp = Float64(Float64(Float64(2.0 + Float64(-0.0625 * Float64((sin(y) ^ 2.0) * Float64(sqrt(2.0) * Float64(1.0 - cos(y)))))) / Float64(1.0 + Float64(Float64(2.0 / Float64(sqrt(5.0) + 1.0)) + Float64(Float64(2.0 * cos(y)) / t_0)))) / 3.0); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 + sqrt(5.0); t_1 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (cos(x) * (sqrt(5.0) + -1.0))))); tmp = 0.0; if (x <= -9.2e-6) tmp = t_1; elseif (x <= 5.2e-26) tmp = ((2.0 + (-0.0625 * ((sin(y) ^ 2.0) * (sqrt(2.0) * (1.0 - cos(y)))))) / (1.0 + ((2.0 / (sqrt(5.0) + 1.0)) + ((2.0 * cos(y)) / t_0)))) / 3.0; else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / t$95$0), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -9.2e-6], t$95$1, If[LessEqual[x, 5.2e-26], N[(N[(N[(2.0 + N[(-0.0625 * N[(N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(N[(2.0 / N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] + N[(N[(2.0 * N[Cos[y], $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / 3.0), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 + \sqrt{5}\\
t_1 := \frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{t\_0} + \cos x \cdot \left(\sqrt{5} + -1\right)\right)}\\
\mathbf{if}\;x \leq -9.2 \cdot 10^{-6}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{\frac{2 + -0.0625 \cdot \left({\sin y}^{2} \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)}{1 + \left(\frac{2}{\sqrt{5} + 1} + \frac{2 \cdot \cos y}{t\_0}\right)}}{3}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -9.2e-6 or 5.2000000000000002e-26 < x Initial program 99.0%
Simplified99.1%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.1%
Applied egg-rr99.1%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified57.6%
if -9.2e-6 < x < 5.2000000000000002e-26Initial program 99.6%
Applied egg-rr99.7%
Taylor expanded in x around 0
/-lowering-/.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
+-lowering-+.f64N/A
Simplified99.7%
Final simplification76.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ 3.0 (sqrt 5.0)))
(t_1
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ (/ 4.0 t_0) (* (cos x) (+ (sqrt 5.0) -1.0))))))))
(if (<= x -1.26e-5)
t_1
(if (<= x 5.2e-26)
(/
(+
0.6666666666666666
(*
0.3333333333333333
(* -0.0625 (* (pow (sin y) 2.0) (* (sqrt 2.0) (- 1.0 (cos y)))))))
(+ 1.0 (+ (/ 2.0 (+ (sqrt 5.0) 1.0)) (/ (* 2.0 (cos y)) t_0))))
t_1))))
double code(double x, double y) {
double t_0 = 3.0 + sqrt(5.0);
double t_1 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (cos(x) * (sqrt(5.0) + -1.0)))));
double tmp;
if (x <= -1.26e-5) {
tmp = t_1;
} else if (x <= 5.2e-26) {
tmp = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * (pow(sin(y), 2.0) * (sqrt(2.0) * (1.0 - cos(y))))))) / (1.0 + ((2.0 / (sqrt(5.0) + 1.0)) + ((2.0 * cos(y)) / t_0)));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = 3.0d0 + sqrt(5.0d0)
t_1 = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / t_0) + (cos(x) * (sqrt(5.0d0) + (-1.0d0))))))
if (x <= (-1.26d-5)) then
tmp = t_1
else if (x <= 5.2d-26) then
tmp = (0.6666666666666666d0 + (0.3333333333333333d0 * ((-0.0625d0) * ((sin(y) ** 2.0d0) * (sqrt(2.0d0) * (1.0d0 - cos(y))))))) / (1.0d0 + ((2.0d0 / (sqrt(5.0d0) + 1.0d0)) + ((2.0d0 * cos(y)) / t_0)))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 + Math.sqrt(5.0);
double t_1 = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (Math.cos(x) * (Math.sqrt(5.0) + -1.0)))));
double tmp;
if (x <= -1.26e-5) {
tmp = t_1;
} else if (x <= 5.2e-26) {
tmp = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * (Math.pow(Math.sin(y), 2.0) * (Math.sqrt(2.0) * (1.0 - Math.cos(y))))))) / (1.0 + ((2.0 / (Math.sqrt(5.0) + 1.0)) + ((2.0 * Math.cos(y)) / t_0)));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y): t_0 = 3.0 + math.sqrt(5.0) t_1 = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (math.cos(x) * (math.sqrt(5.0) + -1.0))))) tmp = 0 if x <= -1.26e-5: tmp = t_1 elif x <= 5.2e-26: tmp = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * (math.pow(math.sin(y), 2.0) * (math.sqrt(2.0) * (1.0 - math.cos(y))))))) / (1.0 + ((2.0 / (math.sqrt(5.0) + 1.0)) + ((2.0 * math.cos(y)) / t_0))) else: tmp = t_1 return tmp
function code(x, y) t_0 = Float64(3.0 + sqrt(5.0)) t_1 = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / t_0) + Float64(cos(x) * Float64(sqrt(5.0) + -1.0)))))) tmp = 0.0 if (x <= -1.26e-5) tmp = t_1; elseif (x <= 5.2e-26) tmp = Float64(Float64(0.6666666666666666 + Float64(0.3333333333333333 * Float64(-0.0625 * Float64((sin(y) ^ 2.0) * Float64(sqrt(2.0) * Float64(1.0 - cos(y))))))) / Float64(1.0 + Float64(Float64(2.0 / Float64(sqrt(5.0) + 1.0)) + Float64(Float64(2.0 * cos(y)) / t_0)))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 + sqrt(5.0); t_1 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (cos(x) * (sqrt(5.0) + -1.0))))); tmp = 0.0; if (x <= -1.26e-5) tmp = t_1; elseif (x <= 5.2e-26) tmp = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * ((sin(y) ^ 2.0) * (sqrt(2.0) * (1.0 - cos(y))))))) / (1.0 + ((2.0 / (sqrt(5.0) + 1.0)) + ((2.0 * cos(y)) / t_0))); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / t$95$0), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.26e-5], t$95$1, If[LessEqual[x, 5.2e-26], N[(N[(0.6666666666666666 + N[(0.3333333333333333 * N[(-0.0625 * N[(N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(N[(2.0 / N[(N[Sqrt[5.0], $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision] + N[(N[(2.0 * N[Cos[y], $MachinePrecision]), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 + \sqrt{5}\\
t_1 := \frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{t\_0} + \cos x \cdot \left(\sqrt{5} + -1\right)\right)}\\
\mathbf{if}\;x \leq -1.26 \cdot 10^{-5}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{0.6666666666666666 + 0.3333333333333333 \cdot \left(-0.0625 \cdot \left({\sin y}^{2} \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)\right)\right)}{1 + \left(\frac{2}{\sqrt{5} + 1} + \frac{2 \cdot \cos y}{t\_0}\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -1.25999999999999996e-5 or 5.2000000000000002e-26 < x Initial program 99.0%
Simplified99.1%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.1%
Applied egg-rr99.1%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified57.6%
if -1.25999999999999996e-5 < x < 5.2000000000000002e-26Initial program 99.6%
Applied egg-rr99.7%
Taylor expanded in x around 0
associate-*r/N/A
/-lowering-/.f64N/A
Simplified99.7%
Final simplification76.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ 3.0 (sqrt 5.0)))
(t_1 (+ (sqrt 5.0) -1.0))
(t_2
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ (/ 4.0 t_0) (* (cos x) t_1)))))))
(if (<= x -2.4e-6)
t_2
(if (<= x 5.2e-26)
(/
(+
2.0
(* (pow (sin y) 2.0) (* (- 1.0 (cos y)) (* (sqrt 2.0) -0.0625))))
(+ 3.0 (* 1.5 (+ t_1 (/ (* (cos y) 4.0) t_0)))))
t_2))))
double code(double x, double y) {
double t_0 = 3.0 + sqrt(5.0);
double t_1 = sqrt(5.0) + -1.0;
double t_2 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (cos(x) * t_1))));
double tmp;
if (x <= -2.4e-6) {
tmp = t_2;
} else if (x <= 5.2e-26) {
tmp = (2.0 + (pow(sin(y), 2.0) * ((1.0 - cos(y)) * (sqrt(2.0) * -0.0625)))) / (3.0 + (1.5 * (t_1 + ((cos(y) * 4.0) / t_0))));
} else {
tmp = t_2;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_0 = 3.0d0 + sqrt(5.0d0)
t_1 = sqrt(5.0d0) + (-1.0d0)
t_2 = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / t_0) + (cos(x) * t_1))))
if (x <= (-2.4d-6)) then
tmp = t_2
else if (x <= 5.2d-26) then
tmp = (2.0d0 + ((sin(y) ** 2.0d0) * ((1.0d0 - cos(y)) * (sqrt(2.0d0) * (-0.0625d0))))) / (3.0d0 + (1.5d0 * (t_1 + ((cos(y) * 4.0d0) / t_0))))
else
tmp = t_2
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 + Math.sqrt(5.0);
double t_1 = Math.sqrt(5.0) + -1.0;
double t_2 = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (Math.cos(x) * t_1))));
double tmp;
if (x <= -2.4e-6) {
tmp = t_2;
} else if (x <= 5.2e-26) {
tmp = (2.0 + (Math.pow(Math.sin(y), 2.0) * ((1.0 - Math.cos(y)) * (Math.sqrt(2.0) * -0.0625)))) / (3.0 + (1.5 * (t_1 + ((Math.cos(y) * 4.0) / t_0))));
} else {
tmp = t_2;
}
return tmp;
}
def code(x, y): t_0 = 3.0 + math.sqrt(5.0) t_1 = math.sqrt(5.0) + -1.0 t_2 = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (math.cos(x) * t_1)))) tmp = 0 if x <= -2.4e-6: tmp = t_2 elif x <= 5.2e-26: tmp = (2.0 + (math.pow(math.sin(y), 2.0) * ((1.0 - math.cos(y)) * (math.sqrt(2.0) * -0.0625)))) / (3.0 + (1.5 * (t_1 + ((math.cos(y) * 4.0) / t_0)))) else: tmp = t_2 return tmp
function code(x, y) t_0 = Float64(3.0 + sqrt(5.0)) t_1 = Float64(sqrt(5.0) + -1.0) t_2 = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / t_0) + Float64(cos(x) * t_1))))) tmp = 0.0 if (x <= -2.4e-6) tmp = t_2; elseif (x <= 5.2e-26) tmp = Float64(Float64(2.0 + Float64((sin(y) ^ 2.0) * Float64(Float64(1.0 - cos(y)) * Float64(sqrt(2.0) * -0.0625)))) / Float64(3.0 + Float64(1.5 * Float64(t_1 + Float64(Float64(cos(y) * 4.0) / t_0))))); else tmp = t_2; end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 + sqrt(5.0); t_1 = sqrt(5.0) + -1.0; t_2 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / t_0) + (cos(x) * t_1)))); tmp = 0.0; if (x <= -2.4e-6) tmp = t_2; elseif (x <= 5.2e-26) tmp = (2.0 + ((sin(y) ^ 2.0) * ((1.0 - cos(y)) * (sqrt(2.0) * -0.0625)))) / (3.0 + (1.5 * (t_1 + ((cos(y) * 4.0) / t_0)))); else tmp = t_2; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, Block[{t$95$2 = N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / t$95$0), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -2.4e-6], t$95$2, If[LessEqual[x, 5.2e-26], N[(N[(2.0 + N[(N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision] * N[(N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * -0.0625), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(t$95$1 + N[(N[(N[Cos[y], $MachinePrecision] * 4.0), $MachinePrecision] / t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$2]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 + \sqrt{5}\\
t_1 := \sqrt{5} + -1\\
t_2 := \frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{t\_0} + \cos x \cdot t\_1\right)}\\
\mathbf{if}\;x \leq -2.4 \cdot 10^{-6}:\\
\;\;\;\;t\_2\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{2 + {\sin y}^{2} \cdot \left(\left(1 - \cos y\right) \cdot \left(\sqrt{2} \cdot -0.0625\right)\right)}{3 + 1.5 \cdot \left(t\_1 + \frac{\cos y \cdot 4}{t\_0}\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_2\\
\end{array}
\end{array}
if x < -2.3999999999999999e-6 or 5.2000000000000002e-26 < x Initial program 99.0%
Simplified99.1%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.1%
Applied egg-rr99.1%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified57.6%
if -2.3999999999999999e-6 < x < 5.2000000000000002e-26Initial program 99.6%
Simplified99.6%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.7%
Applied egg-rr99.7%
Taylor expanded in x around 0
/-lowering-/.f64N/A
Simplified99.6%
Final simplification76.3%
(FPCore (x y)
:precision binary64
(let* ((t_0
(/
(+
2.0
(* (* (sqrt 2.0) (+ (cos x) -1.0)) (* -0.0625 (pow (sin x) 2.0))))
(+
3.0
(*
1.5
(+ (/ 4.0 (+ 3.0 (sqrt 5.0))) (* (cos x) (+ (sqrt 5.0) -1.0))))))))
(if (<= x -1.35e-5)
t_0
(if (<= x 5.2e-26)
(/
(+
2.0
(* (* -0.0625 (pow (sin y) 2.0)) (* (sqrt 2.0) (- 1.0 (cos y)))))
(+ 3.0 (+ (* 1.5 (+ (sqrt 5.0) (* (cos y) (- 3.0 (sqrt 5.0))))) -1.5)))
t_0))))
double code(double x, double y) {
double t_0 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + (cos(x) * (sqrt(5.0) + -1.0)))));
double tmp;
if (x <= -1.35e-5) {
tmp = t_0;
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * pow(sin(y), 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + ((1.5 * (sqrt(5.0) + (cos(y) * (3.0 - sqrt(5.0))))) + -1.5));
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: tmp
t_0 = (2.0d0 + ((sqrt(2.0d0) * (cos(x) + (-1.0d0))) * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * ((4.0d0 / (3.0d0 + sqrt(5.0d0))) + (cos(x) * (sqrt(5.0d0) + (-1.0d0))))))
if (x <= (-1.35d-5)) then
tmp = t_0
else if (x <= 5.2d-26) then
tmp = (2.0d0 + (((-0.0625d0) * (sin(y) ** 2.0d0)) * (sqrt(2.0d0) * (1.0d0 - cos(y))))) / (3.0d0 + ((1.5d0 * (sqrt(5.0d0) + (cos(y) * (3.0d0 - sqrt(5.0d0))))) + (-1.5d0)))
else
tmp = t_0
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = (2.0 + ((Math.sqrt(2.0) * (Math.cos(x) + -1.0)) * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + Math.sqrt(5.0))) + (Math.cos(x) * (Math.sqrt(5.0) + -1.0)))));
double tmp;
if (x <= -1.35e-5) {
tmp = t_0;
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * Math.pow(Math.sin(y), 2.0)) * (Math.sqrt(2.0) * (1.0 - Math.cos(y))))) / (3.0 + ((1.5 * (Math.sqrt(5.0) + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))) + -1.5));
} else {
tmp = t_0;
}
return tmp;
}
def code(x, y): t_0 = (2.0 + ((math.sqrt(2.0) * (math.cos(x) + -1.0)) * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + math.sqrt(5.0))) + (math.cos(x) * (math.sqrt(5.0) + -1.0))))) tmp = 0 if x <= -1.35e-5: tmp = t_0 elif x <= 5.2e-26: tmp = (2.0 + ((-0.0625 * math.pow(math.sin(y), 2.0)) * (math.sqrt(2.0) * (1.0 - math.cos(y))))) / (3.0 + ((1.5 * (math.sqrt(5.0) + (math.cos(y) * (3.0 - math.sqrt(5.0))))) + -1.5)) else: tmp = t_0 return tmp
function code(x, y) t_0 = Float64(Float64(2.0 + Float64(Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(Float64(4.0 / Float64(3.0 + sqrt(5.0))) + Float64(cos(x) * Float64(sqrt(5.0) + -1.0)))))) tmp = 0.0 if (x <= -1.35e-5) tmp = t_0; elseif (x <= 5.2e-26) tmp = Float64(Float64(2.0 + Float64(Float64(-0.0625 * (sin(y) ^ 2.0)) * Float64(sqrt(2.0) * Float64(1.0 - cos(y))))) / Float64(3.0 + Float64(Float64(1.5 * Float64(sqrt(5.0) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))) + -1.5))); else tmp = t_0; end return tmp end
function tmp_2 = code(x, y) t_0 = (2.0 + ((sqrt(2.0) * (cos(x) + -1.0)) * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * ((4.0 / (3.0 + sqrt(5.0))) + (cos(x) * (sqrt(5.0) + -1.0))))); tmp = 0.0; if (x <= -1.35e-5) tmp = t_0; elseif (x <= 5.2e-26) tmp = (2.0 + ((-0.0625 * (sin(y) ^ 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + ((1.5 * (sqrt(5.0) + (cos(y) * (3.0 - sqrt(5.0))))) + -1.5)); else tmp = t_0; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[(2.0 + N[(N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(N[(4.0 / N[(3.0 + N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.35e-5], t$95$0, If[LessEqual[x, 5.2e-26], N[(N[(2.0 + N[(N[(-0.0625 * N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(N[(1.5 * N[(N[Sqrt[5.0], $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -1.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \frac{2 + \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right) \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(\frac{4}{3 + \sqrt{5}} + \cos x \cdot \left(\sqrt{5} + -1\right)\right)}\\
\mathbf{if}\;x \leq -1.35 \cdot 10^{-5}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{2 + \left(-0.0625 \cdot {\sin y}^{2}\right) \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)}{3 + \left(1.5 \cdot \left(\sqrt{5} + \cos y \cdot \left(3 - \sqrt{5}\right)\right) + -1.5\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if x < -1.3499999999999999e-5 or 5.2000000000000002e-26 < x Initial program 99.0%
Simplified99.1%
flip--N/A
rem-square-sqrtN/A
metadata-evalN/A
metadata-evalN/A
metadata-evalN/A
/-lowering-/.f64N/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.1%
Applied egg-rr99.1%
Taylor expanded in y around 0
/-lowering-/.f64N/A
Simplified57.6%
if -1.3499999999999999e-5 < x < 5.2000000000000002e-26Initial program 99.6%
Simplified99.6%
Taylor expanded in x around 0
Simplified99.6%
Final simplification76.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- 3.0 (sqrt 5.0)))
(t_1
(/
(+
0.6666666666666666
(*
0.3333333333333333
(* -0.0625 (* (+ (cos x) -1.0) (* (sqrt 2.0) (pow (sin x) 2.0))))))
(+ 1.0 (* 0.5 (+ (* (cos x) (+ (sqrt 5.0) -1.0)) t_0))))))
(if (<= x -1.4e-5)
t_1
(if (<= x 5.2e-26)
(/
(+
2.0
(* (* -0.0625 (pow (sin y) 2.0)) (* (sqrt 2.0) (- 1.0 (cos y)))))
(+ 3.0 (+ (* 1.5 (+ (sqrt 5.0) (* (cos y) t_0))) -1.5)))
t_1))))
double code(double x, double y) {
double t_0 = 3.0 - sqrt(5.0);
double t_1 = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * ((cos(x) + -1.0) * (sqrt(2.0) * pow(sin(x), 2.0)))))) / (1.0 + (0.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + t_0)));
double tmp;
if (x <= -1.4e-5) {
tmp = t_1;
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * pow(sin(y), 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + ((1.5 * (sqrt(5.0) + (cos(y) * t_0))) + -1.5));
} else {
tmp = t_1;
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = 3.0d0 - sqrt(5.0d0)
t_1 = (0.6666666666666666d0 + (0.3333333333333333d0 * ((-0.0625d0) * ((cos(x) + (-1.0d0)) * (sqrt(2.0d0) * (sin(x) ** 2.0d0)))))) / (1.0d0 + (0.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) + t_0)))
if (x <= (-1.4d-5)) then
tmp = t_1
else if (x <= 5.2d-26) then
tmp = (2.0d0 + (((-0.0625d0) * (sin(y) ** 2.0d0)) * (sqrt(2.0d0) * (1.0d0 - cos(y))))) / (3.0d0 + ((1.5d0 * (sqrt(5.0d0) + (cos(y) * t_0))) + (-1.5d0)))
else
tmp = t_1
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = 3.0 - Math.sqrt(5.0);
double t_1 = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * ((Math.cos(x) + -1.0) * (Math.sqrt(2.0) * Math.pow(Math.sin(x), 2.0)))))) / (1.0 + (0.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) + t_0)));
double tmp;
if (x <= -1.4e-5) {
tmp = t_1;
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * Math.pow(Math.sin(y), 2.0)) * (Math.sqrt(2.0) * (1.0 - Math.cos(y))))) / (3.0 + ((1.5 * (Math.sqrt(5.0) + (Math.cos(y) * t_0))) + -1.5));
} else {
tmp = t_1;
}
return tmp;
}
def code(x, y): t_0 = 3.0 - math.sqrt(5.0) t_1 = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * ((math.cos(x) + -1.0) * (math.sqrt(2.0) * math.pow(math.sin(x), 2.0)))))) / (1.0 + (0.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) + t_0))) tmp = 0 if x <= -1.4e-5: tmp = t_1 elif x <= 5.2e-26: tmp = (2.0 + ((-0.0625 * math.pow(math.sin(y), 2.0)) * (math.sqrt(2.0) * (1.0 - math.cos(y))))) / (3.0 + ((1.5 * (math.sqrt(5.0) + (math.cos(y) * t_0))) + -1.5)) else: tmp = t_1 return tmp
function code(x, y) t_0 = Float64(3.0 - sqrt(5.0)) t_1 = Float64(Float64(0.6666666666666666 + Float64(0.3333333333333333 * Float64(-0.0625 * Float64(Float64(cos(x) + -1.0) * Float64(sqrt(2.0) * (sin(x) ^ 2.0)))))) / Float64(1.0 + Float64(0.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + t_0)))) tmp = 0.0 if (x <= -1.4e-5) tmp = t_1; elseif (x <= 5.2e-26) tmp = Float64(Float64(2.0 + Float64(Float64(-0.0625 * (sin(y) ^ 2.0)) * Float64(sqrt(2.0) * Float64(1.0 - cos(y))))) / Float64(3.0 + Float64(Float64(1.5 * Float64(sqrt(5.0) + Float64(cos(y) * t_0))) + -1.5))); else tmp = t_1; end return tmp end
function tmp_2 = code(x, y) t_0 = 3.0 - sqrt(5.0); t_1 = (0.6666666666666666 + (0.3333333333333333 * (-0.0625 * ((cos(x) + -1.0) * (sqrt(2.0) * (sin(x) ^ 2.0)))))) / (1.0 + (0.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + t_0))); tmp = 0.0; if (x <= -1.4e-5) tmp = t_1; elseif (x <= 5.2e-26) tmp = (2.0 + ((-0.0625 * (sin(y) ^ 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + ((1.5 * (sqrt(5.0) + (cos(y) * t_0))) + -1.5)); else tmp = t_1; end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[(0.6666666666666666 + N[(0.3333333333333333 * N[(-0.0625 * N[(N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(1.0 + N[(0.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -1.4e-5], t$95$1, If[LessEqual[x, 5.2e-26], N[(N[(2.0 + N[(N[(-0.0625 * N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(N[(1.5 * N[(N[Sqrt[5.0], $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -1.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], t$95$1]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 3 - \sqrt{5}\\
t_1 := \frac{0.6666666666666666 + 0.3333333333333333 \cdot \left(-0.0625 \cdot \left(\left(\cos x + -1\right) \cdot \left(\sqrt{2} \cdot {\sin x}^{2}\right)\right)\right)}{1 + 0.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + t\_0\right)}\\
\mathbf{if}\;x \leq -1.4 \cdot 10^{-5}:\\
\;\;\;\;t\_1\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{2 + \left(-0.0625 \cdot {\sin y}^{2}\right) \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)}{3 + \left(1.5 \cdot \left(\sqrt{5} + \cos y \cdot t\_0\right) + -1.5\right)}\\
\mathbf{else}:\\
\;\;\;\;t\_1\\
\end{array}
\end{array}
if x < -1.39999999999999998e-5 or 5.2000000000000002e-26 < x Initial program 99.0%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6462.5%
Simplified62.5%
Taylor expanded in y around 0
associate-*r/N/A
/-lowering-/.f64N/A
Simplified57.6%
if -1.39999999999999998e-5 < x < 5.2000000000000002e-26Initial program 99.6%
Simplified99.6%
Taylor expanded in x around 0
Simplified99.6%
Final simplification76.3%
(FPCore (x y)
:precision binary64
(let* ((t_0 (- (* (cos x) (+ (sqrt 5.0) -1.0)) (sqrt 5.0)))
(t_1 (* (sqrt 2.0) (+ (cos x) -1.0))))
(if (<= x -9.8e-6)
(/
(+ 2.0 (* (* -0.0625 t_1) (- 0.5 (* 0.5 (cos (* 2.0 x))))))
(+ (* 1.5 t_0) 7.5))
(if (<= x 5.2e-26)
(/
(+
2.0
(* (* -0.0625 (pow (sin y) 2.0)) (* (sqrt 2.0) (- 1.0 (cos y)))))
(+ 3.0 (+ (* 1.5 (+ (sqrt 5.0) (* (cos y) (- 3.0 (sqrt 5.0))))) -1.5)))
(/
(+ 2.0 (* t_1 (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ 3.0 t_0))))))))
double code(double x, double y) {
double t_0 = (cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0);
double t_1 = sqrt(2.0) * (cos(x) + -1.0);
double tmp;
if (x <= -9.8e-6) {
tmp = (2.0 + ((-0.0625 * t_1) * (0.5 - (0.5 * cos((2.0 * x)))))) / ((1.5 * t_0) + 7.5);
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * pow(sin(y), 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + ((1.5 * (sqrt(5.0) + (cos(y) * (3.0 - sqrt(5.0))))) + -1.5));
} else {
tmp = (2.0 + (t_1 * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * (3.0 + t_0)));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: tmp
t_0 = (cos(x) * (sqrt(5.0d0) + (-1.0d0))) - sqrt(5.0d0)
t_1 = sqrt(2.0d0) * (cos(x) + (-1.0d0))
if (x <= (-9.8d-6)) then
tmp = (2.0d0 + (((-0.0625d0) * t_1) * (0.5d0 - (0.5d0 * cos((2.0d0 * x)))))) / ((1.5d0 * t_0) + 7.5d0)
else if (x <= 5.2d-26) then
tmp = (2.0d0 + (((-0.0625d0) * (sin(y) ** 2.0d0)) * (sqrt(2.0d0) * (1.0d0 - cos(y))))) / (3.0d0 + ((1.5d0 * (sqrt(5.0d0) + (cos(y) * (3.0d0 - sqrt(5.0d0))))) + (-1.5d0)))
else
tmp = (2.0d0 + (t_1 * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * (3.0d0 + t_0)))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = (Math.cos(x) * (Math.sqrt(5.0) + -1.0)) - Math.sqrt(5.0);
double t_1 = Math.sqrt(2.0) * (Math.cos(x) + -1.0);
double tmp;
if (x <= -9.8e-6) {
tmp = (2.0 + ((-0.0625 * t_1) * (0.5 - (0.5 * Math.cos((2.0 * x)))))) / ((1.5 * t_0) + 7.5);
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * Math.pow(Math.sin(y), 2.0)) * (Math.sqrt(2.0) * (1.0 - Math.cos(y))))) / (3.0 + ((1.5 * (Math.sqrt(5.0) + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))) + -1.5));
} else {
tmp = (2.0 + (t_1 * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * (3.0 + t_0)));
}
return tmp;
}
def code(x, y): t_0 = (math.cos(x) * (math.sqrt(5.0) + -1.0)) - math.sqrt(5.0) t_1 = math.sqrt(2.0) * (math.cos(x) + -1.0) tmp = 0 if x <= -9.8e-6: tmp = (2.0 + ((-0.0625 * t_1) * (0.5 - (0.5 * math.cos((2.0 * x)))))) / ((1.5 * t_0) + 7.5) elif x <= 5.2e-26: tmp = (2.0 + ((-0.0625 * math.pow(math.sin(y), 2.0)) * (math.sqrt(2.0) * (1.0 - math.cos(y))))) / (3.0 + ((1.5 * (math.sqrt(5.0) + (math.cos(y) * (3.0 - math.sqrt(5.0))))) + -1.5)) else: tmp = (2.0 + (t_1 * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * (3.0 + t_0))) return tmp
function code(x, y) t_0 = Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) - sqrt(5.0)) t_1 = Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) tmp = 0.0 if (x <= -9.8e-6) tmp = Float64(Float64(2.0 + Float64(Float64(-0.0625 * t_1) * Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * x)))))) / Float64(Float64(1.5 * t_0) + 7.5)); elseif (x <= 5.2e-26) tmp = Float64(Float64(2.0 + Float64(Float64(-0.0625 * (sin(y) ^ 2.0)) * Float64(sqrt(2.0) * Float64(1.0 - cos(y))))) / Float64(3.0 + Float64(Float64(1.5 * Float64(sqrt(5.0) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))) + -1.5))); else tmp = Float64(Float64(2.0 + Float64(t_1 * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(3.0 + t_0)))); end return tmp end
function tmp_2 = code(x, y) t_0 = (cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0); t_1 = sqrt(2.0) * (cos(x) + -1.0); tmp = 0.0; if (x <= -9.8e-6) tmp = (2.0 + ((-0.0625 * t_1) * (0.5 - (0.5 * cos((2.0 * x)))))) / ((1.5 * t_0) + 7.5); elseif (x <= 5.2e-26) tmp = (2.0 + ((-0.0625 * (sin(y) ^ 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + ((1.5 * (sqrt(5.0) + (cos(y) * (3.0 - sqrt(5.0))))) + -1.5)); else tmp = (2.0 + (t_1 * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * (3.0 + t_0))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -9.8e-6], N[(N[(2.0 + N[(N[(-0.0625 * t$95$1), $MachinePrecision] * N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(1.5 * t$95$0), $MachinePrecision] + 7.5), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5.2e-26], N[(N[(2.0 + N[(N[(-0.0625 * N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(N[(1.5 * N[(N[Sqrt[5.0], $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + -1.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(t$95$1 * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(3.0 + t$95$0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \cos x \cdot \left(\sqrt{5} + -1\right) - \sqrt{5}\\
t_1 := \sqrt{2} \cdot \left(\cos x + -1\right)\\
\mathbf{if}\;x \leq -9.8 \cdot 10^{-6}:\\
\;\;\;\;\frac{2 + \left(-0.0625 \cdot t\_1\right) \cdot \left(0.5 - 0.5 \cdot \cos \left(2 \cdot x\right)\right)}{1.5 \cdot t\_0 + 7.5}\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{2 + \left(-0.0625 \cdot {\sin y}^{2}\right) \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)}{3 + \left(1.5 \cdot \left(\sqrt{5} + \cos y \cdot \left(3 - \sqrt{5}\right)\right) + -1.5\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + t\_1 \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(3 + t\_0\right)}\\
\end{array}
\end{array}
if x < -9.79999999999999934e-6Initial program 99.0%
Simplified99.0%
Taylor expanded in y around 0
Simplified54.2%
Applied egg-rr54.2%
if -9.79999999999999934e-6 < x < 5.2000000000000002e-26Initial program 99.6%
Simplified99.6%
Taylor expanded in x around 0
Simplified99.6%
if 5.2000000000000002e-26 < x Initial program 98.9%
Simplified99.1%
Taylor expanded in y around 0
sin-lowering-sin.f6465.8%
Simplified65.8%
Taylor expanded in y around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
cos-lowering-cos.f6462.4%
Simplified62.4%
Taylor expanded in y around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f64N/A
sqrt-lowering-sqrt.f6460.8%
Simplified60.8%
Final simplification76.2%
(FPCore (x y)
:precision binary64
(let* ((t_0 (+ (sqrt 5.0) -1.0))
(t_1 (- (* (cos x) t_0) (sqrt 5.0)))
(t_2 (* (sqrt 2.0) (+ (cos x) -1.0))))
(if (<= x -3e-6)
(/
(+ 2.0 (* (* -0.0625 t_2) (- 0.5 (* 0.5 (cos (* 2.0 x))))))
(+ (* 1.5 t_1) 7.5))
(if (<= x 5.2e-26)
(/
(+
2.0
(* (* -0.0625 (pow (sin y) 2.0)) (* (sqrt 2.0) (- 1.0 (cos y)))))
(+ 3.0 (* 1.5 (+ t_0 (* (cos y) (- 3.0 (sqrt 5.0)))))))
(/
(+ 2.0 (* t_2 (* -0.0625 (pow (sin x) 2.0))))
(+ 3.0 (* 1.5 (+ 3.0 t_1))))))))
double code(double x, double y) {
double t_0 = sqrt(5.0) + -1.0;
double t_1 = (cos(x) * t_0) - sqrt(5.0);
double t_2 = sqrt(2.0) * (cos(x) + -1.0);
double tmp;
if (x <= -3e-6) {
tmp = (2.0 + ((-0.0625 * t_2) * (0.5 - (0.5 * cos((2.0 * x)))))) / ((1.5 * t_1) + 7.5);
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * pow(sin(y), 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + (1.5 * (t_0 + (cos(y) * (3.0 - sqrt(5.0))))));
} else {
tmp = (2.0 + (t_2 * (-0.0625 * pow(sin(x), 2.0)))) / (3.0 + (1.5 * (3.0 + t_1)));
}
return tmp;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8) :: t_0
real(8) :: t_1
real(8) :: t_2
real(8) :: tmp
t_0 = sqrt(5.0d0) + (-1.0d0)
t_1 = (cos(x) * t_0) - sqrt(5.0d0)
t_2 = sqrt(2.0d0) * (cos(x) + (-1.0d0))
if (x <= (-3d-6)) then
tmp = (2.0d0 + (((-0.0625d0) * t_2) * (0.5d0 - (0.5d0 * cos((2.0d0 * x)))))) / ((1.5d0 * t_1) + 7.5d0)
else if (x <= 5.2d-26) then
tmp = (2.0d0 + (((-0.0625d0) * (sin(y) ** 2.0d0)) * (sqrt(2.0d0) * (1.0d0 - cos(y))))) / (3.0d0 + (1.5d0 * (t_0 + (cos(y) * (3.0d0 - sqrt(5.0d0))))))
else
tmp = (2.0d0 + (t_2 * ((-0.0625d0) * (sin(x) ** 2.0d0)))) / (3.0d0 + (1.5d0 * (3.0d0 + t_1)))
end if
code = tmp
end function
public static double code(double x, double y) {
double t_0 = Math.sqrt(5.0) + -1.0;
double t_1 = (Math.cos(x) * t_0) - Math.sqrt(5.0);
double t_2 = Math.sqrt(2.0) * (Math.cos(x) + -1.0);
double tmp;
if (x <= -3e-6) {
tmp = (2.0 + ((-0.0625 * t_2) * (0.5 - (0.5 * Math.cos((2.0 * x)))))) / ((1.5 * t_1) + 7.5);
} else if (x <= 5.2e-26) {
tmp = (2.0 + ((-0.0625 * Math.pow(Math.sin(y), 2.0)) * (Math.sqrt(2.0) * (1.0 - Math.cos(y))))) / (3.0 + (1.5 * (t_0 + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))));
} else {
tmp = (2.0 + (t_2 * (-0.0625 * Math.pow(Math.sin(x), 2.0)))) / (3.0 + (1.5 * (3.0 + t_1)));
}
return tmp;
}
def code(x, y): t_0 = math.sqrt(5.0) + -1.0 t_1 = (math.cos(x) * t_0) - math.sqrt(5.0) t_2 = math.sqrt(2.0) * (math.cos(x) + -1.0) tmp = 0 if x <= -3e-6: tmp = (2.0 + ((-0.0625 * t_2) * (0.5 - (0.5 * math.cos((2.0 * x)))))) / ((1.5 * t_1) + 7.5) elif x <= 5.2e-26: tmp = (2.0 + ((-0.0625 * math.pow(math.sin(y), 2.0)) * (math.sqrt(2.0) * (1.0 - math.cos(y))))) / (3.0 + (1.5 * (t_0 + (math.cos(y) * (3.0 - math.sqrt(5.0)))))) else: tmp = (2.0 + (t_2 * (-0.0625 * math.pow(math.sin(x), 2.0)))) / (3.0 + (1.5 * (3.0 + t_1))) return tmp
function code(x, y) t_0 = Float64(sqrt(5.0) + -1.0) t_1 = Float64(Float64(cos(x) * t_0) - sqrt(5.0)) t_2 = Float64(sqrt(2.0) * Float64(cos(x) + -1.0)) tmp = 0.0 if (x <= -3e-6) tmp = Float64(Float64(2.0 + Float64(Float64(-0.0625 * t_2) * Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * x)))))) / Float64(Float64(1.5 * t_1) + 7.5)); elseif (x <= 5.2e-26) tmp = Float64(Float64(2.0 + Float64(Float64(-0.0625 * (sin(y) ^ 2.0)) * Float64(sqrt(2.0) * Float64(1.0 - cos(y))))) / Float64(3.0 + Float64(1.5 * Float64(t_0 + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))); else tmp = Float64(Float64(2.0 + Float64(t_2 * Float64(-0.0625 * (sin(x) ^ 2.0)))) / Float64(3.0 + Float64(1.5 * Float64(3.0 + t_1)))); end return tmp end
function tmp_2 = code(x, y) t_0 = sqrt(5.0) + -1.0; t_1 = (cos(x) * t_0) - sqrt(5.0); t_2 = sqrt(2.0) * (cos(x) + -1.0); tmp = 0.0; if (x <= -3e-6) tmp = (2.0 + ((-0.0625 * t_2) * (0.5 - (0.5 * cos((2.0 * x)))))) / ((1.5 * t_1) + 7.5); elseif (x <= 5.2e-26) tmp = (2.0 + ((-0.0625 * (sin(y) ^ 2.0)) * (sqrt(2.0) * (1.0 - cos(y))))) / (3.0 + (1.5 * (t_0 + (cos(y) * (3.0 - sqrt(5.0)))))); else tmp = (2.0 + (t_2 * (-0.0625 * (sin(x) ^ 2.0)))) / (3.0 + (1.5 * (3.0 + t_1))); end tmp_2 = tmp; end
code[x_, y_] := Block[{t$95$0 = N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]}, Block[{t$95$1 = N[(N[(N[Cos[x], $MachinePrecision] * t$95$0), $MachinePrecision] - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[x, -3e-6], N[(N[(2.0 + N[(N[(-0.0625 * t$95$2), $MachinePrecision] * N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(1.5 * t$95$1), $MachinePrecision] + 7.5), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 5.2e-26], N[(N[(2.0 + N[(N[(-0.0625 * N[Power[N[Sin[y], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[(1.0 - N[Cos[y], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(t$95$0 + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 + N[(t$95$2 * N[(-0.0625 * N[Power[N[Sin[x], $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(3.0 + N[(1.5 * N[(3.0 + t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := \sqrt{5} + -1\\
t_1 := \cos x \cdot t\_0 - \sqrt{5}\\
t_2 := \sqrt{2} \cdot \left(\cos x + -1\right)\\
\mathbf{if}\;x \leq -3 \cdot 10^{-6}:\\
\;\;\;\;\frac{2 + \left(-0.0625 \cdot t\_2\right) \cdot \left(0.5 - 0.5 \cdot \cos \left(2 \cdot x\right)\right)}{1.5 \cdot t\_1 + 7.5}\\
\mathbf{elif}\;x \leq 5.2 \cdot 10^{-26}:\\
\;\;\;\;\frac{2 + \left(-0.0625 \cdot {\sin y}^{2}\right) \cdot \left(\sqrt{2} \cdot \left(1 - \cos y\right)\right)}{3 + 1.5 \cdot \left(t\_0 + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}\\
\mathbf{else}:\\
\;\;\;\;\frac{2 + t\_2 \cdot \left(-0.0625 \cdot {\sin x}^{2}\right)}{3 + 1.5 \cdot \left(3 + t\_1\right)}\\
\end{array}
\end{array}
if x < -3.0000000000000001e-6Initial program 99.0%
Simplified99.0%
Taylor expanded in y around 0
Simplified54.2%
Applied egg-rr54.2%
if -3.0000000000000001e-6 < x < 5.2000000000000002e-26Initial program 99.6%
Simplified99.6%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6499.6%
Simplified99.6%
Taylor expanded in x around 0
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6499.6%
Simplified99.6%
if 5.2000000000000002e-26 < x Initial program 98.9%
Simplified99.1%
Taylor expanded in y around 0
sin-lowering-sin.f6465.8%
Simplified65.8%
Taylor expanded in y around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
cos-lowering-cos.f6462.4%
Simplified62.4%
Taylor expanded in y around 0
associate--l+N/A
+-lowering-+.f64N/A
--lowering--.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f64N/A
sqrt-lowering-sqrt.f6460.8%
Simplified60.8%
Final simplification76.2%
(FPCore (x y)
:precision binary64
(/
1.0
(/
(+ (* 1.5 (- (* (cos x) (+ (sqrt 5.0) -1.0)) (sqrt 5.0))) 7.5)
(+
2.0
(*
(* -0.0625 (* (sqrt 2.0) (+ (cos x) -1.0)))
(- 0.5 (* 0.5 (cos (* 2.0 x)))))))))
double code(double x, double y) {
return 1.0 / (((1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0))) + 7.5) / (2.0 + ((-0.0625 * (sqrt(2.0) * (cos(x) + -1.0))) * (0.5 - (0.5 * cos((2.0 * x)))))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 1.0d0 / (((1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) - sqrt(5.0d0))) + 7.5d0) / (2.0d0 + (((-0.0625d0) * (sqrt(2.0d0) * (cos(x) + (-1.0d0)))) * (0.5d0 - (0.5d0 * cos((2.0d0 * x)))))))
end function
public static double code(double x, double y) {
return 1.0 / (((1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) - Math.sqrt(5.0))) + 7.5) / (2.0 + ((-0.0625 * (Math.sqrt(2.0) * (Math.cos(x) + -1.0))) * (0.5 - (0.5 * Math.cos((2.0 * x)))))));
}
def code(x, y): return 1.0 / (((1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) - math.sqrt(5.0))) + 7.5) / (2.0 + ((-0.0625 * (math.sqrt(2.0) * (math.cos(x) + -1.0))) * (0.5 - (0.5 * math.cos((2.0 * x)))))))
function code(x, y) return Float64(1.0 / Float64(Float64(Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) - sqrt(5.0))) + 7.5) / Float64(2.0 + Float64(Float64(-0.0625 * Float64(sqrt(2.0) * Float64(cos(x) + -1.0))) * Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * x)))))))) end
function tmp = code(x, y) tmp = 1.0 / (((1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0))) + 7.5) / (2.0 + ((-0.0625 * (sqrt(2.0) * (cos(x) + -1.0))) * (0.5 - (0.5 * cos((2.0 * x))))))); end
code[x_, y_] := N[(1.0 / N[(N[(N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 7.5), $MachinePrecision] / N[(2.0 + N[(N[(-0.0625 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{1}{\frac{1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) - \sqrt{5}\right) + 7.5}{2 + \left(-0.0625 \cdot \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right)\right) \cdot \left(0.5 - 0.5 \cdot \cos \left(2 \cdot x\right)\right)}}
\end{array}
Initial program 99.3%
Simplified99.3%
Taylor expanded in y around 0
Simplified59.2%
Applied egg-rr59.2%
(FPCore (x y)
:precision binary64
(/
(+
2.0
(*
(* -0.0625 (* (sqrt 2.0) (+ (cos x) -1.0)))
(- 0.5 (* 0.5 (cos (* 2.0 x))))))
(+ (* 1.5 (- (* (cos x) (+ (sqrt 5.0) -1.0)) (sqrt 5.0))) 7.5)))
double code(double x, double y) {
return (2.0 + ((-0.0625 * (sqrt(2.0) * (cos(x) + -1.0))) * (0.5 - (0.5 * cos((2.0 * x)))))) / ((1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0))) + 7.5);
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = (2.0d0 + (((-0.0625d0) * (sqrt(2.0d0) * (cos(x) + (-1.0d0)))) * (0.5d0 - (0.5d0 * cos((2.0d0 * x)))))) / ((1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) - sqrt(5.0d0))) + 7.5d0)
end function
public static double code(double x, double y) {
return (2.0 + ((-0.0625 * (Math.sqrt(2.0) * (Math.cos(x) + -1.0))) * (0.5 - (0.5 * Math.cos((2.0 * x)))))) / ((1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) - Math.sqrt(5.0))) + 7.5);
}
def code(x, y): return (2.0 + ((-0.0625 * (math.sqrt(2.0) * (math.cos(x) + -1.0))) * (0.5 - (0.5 * math.cos((2.0 * x)))))) / ((1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) - math.sqrt(5.0))) + 7.5)
function code(x, y) return Float64(Float64(2.0 + Float64(Float64(-0.0625 * Float64(sqrt(2.0) * Float64(cos(x) + -1.0))) * Float64(0.5 - Float64(0.5 * cos(Float64(2.0 * x)))))) / Float64(Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) - sqrt(5.0))) + 7.5)) end
function tmp = code(x, y) tmp = (2.0 + ((-0.0625 * (sqrt(2.0) * (cos(x) + -1.0))) * (0.5 - (0.5 * cos((2.0 * x)))))) / ((1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0))) + 7.5); end
code[x_, y_] := N[(N[(2.0 + N[(N[(-0.0625 * N[(N[Sqrt[2.0], $MachinePrecision] * N[(N[Cos[x], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(0.5 - N[(0.5 * N[Cos[N[(2.0 * x), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 7.5), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2 + \left(-0.0625 \cdot \left(\sqrt{2} \cdot \left(\cos x + -1\right)\right)\right) \cdot \left(0.5 - 0.5 \cdot \cos \left(2 \cdot x\right)\right)}{1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) - \sqrt{5}\right) + 7.5}
\end{array}
Initial program 99.3%
Simplified99.3%
Taylor expanded in y around 0
Simplified59.2%
Applied egg-rr59.2%
(FPCore (x y)
:precision binary64
(/
2.0
(*
3.0
(+
(+ 1.0 (* (cos x) (/ (+ (sqrt 5.0) -1.0) 2.0)))
(* (cos y) (/ (- 3.0 (sqrt 5.0)) 2.0))))))
double code(double x, double y) {
return 2.0 / (3.0 * ((1.0 + (cos(x) * ((sqrt(5.0) + -1.0) / 2.0))) + (cos(y) * ((3.0 - sqrt(5.0)) / 2.0))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 2.0d0 / (3.0d0 * ((1.0d0 + (cos(x) * ((sqrt(5.0d0) + (-1.0d0)) / 2.0d0))) + (cos(y) * ((3.0d0 - sqrt(5.0d0)) / 2.0d0))))
end function
public static double code(double x, double y) {
return 2.0 / (3.0 * ((1.0 + (Math.cos(x) * ((Math.sqrt(5.0) + -1.0) / 2.0))) + (Math.cos(y) * ((3.0 - Math.sqrt(5.0)) / 2.0))));
}
def code(x, y): return 2.0 / (3.0 * ((1.0 + (math.cos(x) * ((math.sqrt(5.0) + -1.0) / 2.0))) + (math.cos(y) * ((3.0 - math.sqrt(5.0)) / 2.0))))
function code(x, y) return Float64(2.0 / Float64(3.0 * Float64(Float64(1.0 + Float64(cos(x) * Float64(Float64(sqrt(5.0) + -1.0) / 2.0))) + Float64(cos(y) * Float64(Float64(3.0 - sqrt(5.0)) / 2.0))))) end
function tmp = code(x, y) tmp = 2.0 / (3.0 * ((1.0 + (cos(x) * ((sqrt(5.0) + -1.0) / 2.0))) + (cos(y) * ((3.0 - sqrt(5.0)) / 2.0)))); end
code[x_, y_] := N[(2.0 / N[(3.0 * N[(N[(1.0 + N[(N[Cos[x], $MachinePrecision] * N[(N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision] / 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision] / 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2}{3 \cdot \left(\left(1 + \cos x \cdot \frac{\sqrt{5} + -1}{2}\right) + \cos y \cdot \frac{3 - \sqrt{5}}{2}\right)}
\end{array}
Initial program 99.3%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6463.7%
Simplified63.7%
Taylor expanded in x around 0
Simplified45.8%
Final simplification45.8%
(FPCore (x y)
:precision binary64
(/
2.0
(+
3.0
(*
1.5
(+ (* (cos x) (+ (sqrt 5.0) -1.0)) (* (cos y) (- 3.0 (sqrt 5.0))))))))
double code(double x, double y) {
return 2.0 / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0))))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 2.0d0 / (3.0d0 + (1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) + (cos(y) * (3.0d0 - sqrt(5.0d0))))))
end function
public static double code(double x, double y) {
return 2.0 / (3.0 + (1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))));
}
def code(x, y): return 2.0 / (3.0 + (1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) + (math.cos(y) * (3.0 - math.sqrt(5.0))))))
function code(x, y) return Float64(2.0 / Float64(3.0 + Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))) end
function tmp = code(x, y) tmp = 2.0 / (3.0 + (1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) + (cos(y) * (3.0 - sqrt(5.0)))))); end
code[x_, y_] := N[(2.0 / N[(3.0 + N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2}{3 + 1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}
\end{array}
Initial program 99.3%
Simplified99.3%
Taylor expanded in x around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-commutativeN/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
--lowering--.f64N/A
cos-lowering-cos.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f6461.0%
Simplified61.0%
Taylor expanded in y around 0
Simplified45.8%
Final simplification45.8%
(FPCore (x y) :precision binary64 (/ 2.0 (+ 3.0 (+ (* 1.5 (- (* (cos x) (+ (sqrt 5.0) -1.0)) (sqrt 5.0))) 4.5))))
double code(double x, double y) {
return 2.0 / (3.0 + ((1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0))) + 4.5));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 2.0d0 / (3.0d0 + ((1.5d0 * ((cos(x) * (sqrt(5.0d0) + (-1.0d0))) - sqrt(5.0d0))) + 4.5d0))
end function
public static double code(double x, double y) {
return 2.0 / (3.0 + ((1.5 * ((Math.cos(x) * (Math.sqrt(5.0) + -1.0)) - Math.sqrt(5.0))) + 4.5));
}
def code(x, y): return 2.0 / (3.0 + ((1.5 * ((math.cos(x) * (math.sqrt(5.0) + -1.0)) - math.sqrt(5.0))) + 4.5))
function code(x, y) return Float64(2.0 / Float64(3.0 + Float64(Float64(1.5 * Float64(Float64(cos(x) * Float64(sqrt(5.0) + -1.0)) - sqrt(5.0))) + 4.5))) end
function tmp = code(x, y) tmp = 2.0 / (3.0 + ((1.5 * ((cos(x) * (sqrt(5.0) + -1.0)) - sqrt(5.0))) + 4.5)); end
code[x_, y_] := N[(2.0 / N[(3.0 + N[(N[(1.5 * N[(N[(N[Cos[x], $MachinePrecision] * N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision]), $MachinePrecision] - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + 4.5), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2}{3 + \left(1.5 \cdot \left(\cos x \cdot \left(\sqrt{5} + -1\right) - \sqrt{5}\right) + 4.5\right)}
\end{array}
Initial program 99.3%
Simplified99.3%
Taylor expanded in y around 0
Simplified59.2%
Taylor expanded in x around 0
Simplified43.1%
Final simplification43.1%
(FPCore (x y) :precision binary64 (/ 2.0 (+ 3.0 (* 1.5 (+ (sqrt 5.0) (+ -1.0 (* (cos y) (- 3.0 (sqrt 5.0)))))))))
double code(double x, double y) {
return 2.0 / (3.0 + (1.5 * (sqrt(5.0) + (-1.0 + (cos(y) * (3.0 - sqrt(5.0)))))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 2.0d0 / (3.0d0 + (1.5d0 * (sqrt(5.0d0) + ((-1.0d0) + (cos(y) * (3.0d0 - sqrt(5.0d0)))))))
end function
public static double code(double x, double y) {
return 2.0 / (3.0 + (1.5 * (Math.sqrt(5.0) + (-1.0 + (Math.cos(y) * (3.0 - Math.sqrt(5.0)))))));
}
def code(x, y): return 2.0 / (3.0 + (1.5 * (math.sqrt(5.0) + (-1.0 + (math.cos(y) * (3.0 - math.sqrt(5.0)))))))
function code(x, y) return Float64(2.0 / Float64(3.0 + Float64(1.5 * Float64(sqrt(5.0) + Float64(-1.0 + Float64(cos(y) * Float64(3.0 - sqrt(5.0)))))))) end
function tmp = code(x, y) tmp = 2.0 / (3.0 + (1.5 * (sqrt(5.0) + (-1.0 + (cos(y) * (3.0 - sqrt(5.0))))))); end
code[x_, y_] := N[(2.0 / N[(3.0 + N[(1.5 * N[(N[Sqrt[5.0], $MachinePrecision] + N[(-1.0 + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{2}{3 + 1.5 \cdot \left(\sqrt{5} + \left(-1 + \cos y \cdot \left(3 - \sqrt{5}\right)\right)\right)}
\end{array}
Initial program 99.3%
Simplified99.3%
Taylor expanded in y around 0
sin-lowering-sin.f6463.7%
Simplified63.7%
Taylor expanded in y around 0
+-lowering-+.f64N/A
associate-*r*N/A
*-lowering-*.f64N/A
*-lowering-*.f64N/A
pow-lowering-pow.f64N/A
sin-lowering-sin.f64N/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
cos-lowering-cos.f6461.6%
Simplified61.6%
Taylor expanded in x around 0
/-lowering-/.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
associate--l+N/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
--lowering--.f64N/A
sqrt-lowering-sqrt.f6442.4%
Simplified42.4%
Final simplification42.4%
(FPCore (x y) :precision binary64 (/ 0.6666666666666666 (+ 1.0 (* 0.5 (+ (+ (sqrt 5.0) -1.0) (* (cos y) (- 3.0 (sqrt 5.0))))))))
double code(double x, double y) {
return 0.6666666666666666 / (1.0 + (0.5 * ((sqrt(5.0) + -1.0) + (cos(y) * (3.0 - sqrt(5.0))))));
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 0.6666666666666666d0 / (1.0d0 + (0.5d0 * ((sqrt(5.0d0) + (-1.0d0)) + (cos(y) * (3.0d0 - sqrt(5.0d0))))))
end function
public static double code(double x, double y) {
return 0.6666666666666666 / (1.0 + (0.5 * ((Math.sqrt(5.0) + -1.0) + (Math.cos(y) * (3.0 - Math.sqrt(5.0))))));
}
def code(x, y): return 0.6666666666666666 / (1.0 + (0.5 * ((math.sqrt(5.0) + -1.0) + (math.cos(y) * (3.0 - math.sqrt(5.0))))))
function code(x, y) return Float64(0.6666666666666666 / Float64(1.0 + Float64(0.5 * Float64(Float64(sqrt(5.0) + -1.0) + Float64(cos(y) * Float64(3.0 - sqrt(5.0))))))) end
function tmp = code(x, y) tmp = 0.6666666666666666 / (1.0 + (0.5 * ((sqrt(5.0) + -1.0) + (cos(y) * (3.0 - sqrt(5.0)))))); end
code[x_, y_] := N[(0.6666666666666666 / N[(1.0 + N[(0.5 * N[(N[(N[Sqrt[5.0], $MachinePrecision] + -1.0), $MachinePrecision] + N[(N[Cos[y], $MachinePrecision] * N[(3.0 - N[Sqrt[5.0], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{0.6666666666666666}{1 + 0.5 \cdot \left(\left(\sqrt{5} + -1\right) + \cos y \cdot \left(3 - \sqrt{5}\right)\right)}
\end{array}
Initial program 99.3%
Taylor expanded in y around 0
*-commutativeN/A
*-lowering-*.f64N/A
sqrt-lowering-sqrt.f64N/A
sin-lowering-sin.f6463.7%
Simplified63.7%
Taylor expanded in x around 0
/-lowering-/.f64N/A
+-lowering-+.f64N/A
distribute-lft-outN/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
cos-lowering-cos.f64N/A
--lowering--.f64N/A
sqrt-lowering-sqrt.f64N/A
sub-negN/A
metadata-evalN/A
+-lowering-+.f64N/A
sqrt-lowering-sqrt.f6442.4%
Simplified42.4%
Final simplification42.4%
(FPCore (x y) :precision binary64 0.3333333333333333)
double code(double x, double y) {
return 0.3333333333333333;
}
real(8) function code(x, y)
real(8), intent (in) :: x
real(8), intent (in) :: y
code = 0.3333333333333333d0
end function
public static double code(double x, double y) {
return 0.3333333333333333;
}
def code(x, y): return 0.3333333333333333
function code(x, y) return 0.3333333333333333 end
function tmp = code(x, y) tmp = 0.3333333333333333; end
code[x_, y_] := 0.3333333333333333
\begin{array}{l}
\\
0.3333333333333333
\end{array}
Initial program 99.3%
Simplified99.3%
Taylor expanded in y around 0
Simplified59.2%
Taylor expanded in x around 0
Simplified40.4%
herbie shell --seed 2024158
(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))))))