
(FPCore (x c s) :precision binary64 (/ (cos (* 2.0 x)) (* (pow c 2.0) (* (* x (pow s 2.0)) x))))
double code(double x, double c, double s) {
return cos((2.0 * x)) / (pow(c, 2.0) * ((x * pow(s, 2.0)) * x));
}
real(8) function code(x, c, s)
real(8), intent (in) :: x
real(8), intent (in) :: c
real(8), intent (in) :: s
code = cos((2.0d0 * x)) / ((c ** 2.0d0) * ((x * (s ** 2.0d0)) * x))
end function
public static double code(double x, double c, double s) {
return Math.cos((2.0 * x)) / (Math.pow(c, 2.0) * ((x * Math.pow(s, 2.0)) * x));
}
def code(x, c, s): return math.cos((2.0 * x)) / (math.pow(c, 2.0) * ((x * math.pow(s, 2.0)) * x))
function code(x, c, s) return Float64(cos(Float64(2.0 * x)) / Float64((c ^ 2.0) * Float64(Float64(x * (s ^ 2.0)) * x))) end
function tmp = code(x, c, s) tmp = cos((2.0 * x)) / ((c ^ 2.0) * ((x * (s ^ 2.0)) * x)); end
code[x_, c_, s_] := N[(N[Cos[N[(2.0 * x), $MachinePrecision]], $MachinePrecision] / N[(N[Power[c, 2.0], $MachinePrecision] * N[(N[(x * N[Power[s, 2.0], $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\cos \left(2 \cdot x\right)}{{c}^{2} \cdot \left(\left(x \cdot {s}^{2}\right) \cdot x\right)}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 6 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x c s) :precision binary64 (/ (cos (* 2.0 x)) (* (pow c 2.0) (* (* x (pow s 2.0)) x))))
double code(double x, double c, double s) {
return cos((2.0 * x)) / (pow(c, 2.0) * ((x * pow(s, 2.0)) * x));
}
real(8) function code(x, c, s)
real(8), intent (in) :: x
real(8), intent (in) :: c
real(8), intent (in) :: s
code = cos((2.0d0 * x)) / ((c ** 2.0d0) * ((x * (s ** 2.0d0)) * x))
end function
public static double code(double x, double c, double s) {
return Math.cos((2.0 * x)) / (Math.pow(c, 2.0) * ((x * Math.pow(s, 2.0)) * x));
}
def code(x, c, s): return math.cos((2.0 * x)) / (math.pow(c, 2.0) * ((x * math.pow(s, 2.0)) * x))
function code(x, c, s) return Float64(cos(Float64(2.0 * x)) / Float64((c ^ 2.0) * Float64(Float64(x * (s ^ 2.0)) * x))) end
function tmp = code(x, c, s) tmp = cos((2.0 * x)) / ((c ^ 2.0) * ((x * (s ^ 2.0)) * x)); end
code[x_, c_, s_] := N[(N[Cos[N[(2.0 * x), $MachinePrecision]], $MachinePrecision] / N[(N[Power[c, 2.0], $MachinePrecision] * N[(N[(x * N[Power[s, 2.0], $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\frac{\cos \left(2 \cdot x\right)}{{c}^{2} \cdot \left(\left(x \cdot {s}^{2}\right) \cdot x\right)}
\end{array}
x_m = (fabs.f64 x) c_m = (fabs.f64 c) NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. (FPCore (x_m c_m s) :precision binary64 (/ (* (/ 1.0 c_m) (* (/ 1.0 s) (/ (cos (* x_m 2.0)) x_m))) (* c_m (fabs (* s x_m)))))
x_m = fabs(x);
c_m = fabs(c);
assert(x_m < c_m && c_m < s);
double code(double x_m, double c_m, double s) {
return ((1.0 / c_m) * ((1.0 / s) * (cos((x_m * 2.0)) / x_m))) / (c_m * fabs((s * x_m)));
}
x_m = abs(x)
c_m = abs(c)
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
real(8) function code(x_m, c_m, s)
real(8), intent (in) :: x_m
real(8), intent (in) :: c_m
real(8), intent (in) :: s
code = ((1.0d0 / c_m) * ((1.0d0 / s) * (cos((x_m * 2.0d0)) / x_m))) / (c_m * abs((s * x_m)))
end function
x_m = Math.abs(x);
c_m = Math.abs(c);
assert x_m < c_m && c_m < s;
public static double code(double x_m, double c_m, double s) {
return ((1.0 / c_m) * ((1.0 / s) * (Math.cos((x_m * 2.0)) / x_m))) / (c_m * Math.abs((s * x_m)));
}
x_m = math.fabs(x) c_m = math.fabs(c) [x_m, c_m, s] = sort([x_m, c_m, s]) def code(x_m, c_m, s): return ((1.0 / c_m) * ((1.0 / s) * (math.cos((x_m * 2.0)) / x_m))) / (c_m * math.fabs((s * x_m)))
x_m = abs(x) c_m = abs(c) x_m, c_m, s = sort([x_m, c_m, s]) function code(x_m, c_m, s) return Float64(Float64(Float64(1.0 / c_m) * Float64(Float64(1.0 / s) * Float64(cos(Float64(x_m * 2.0)) / x_m))) / Float64(c_m * abs(Float64(s * x_m)))) end
x_m = abs(x);
c_m = abs(c);
x_m, c_m, s = num2cell(sort([x_m, c_m, s])){:}
function tmp = code(x_m, c_m, s)
tmp = ((1.0 / c_m) * ((1.0 / s) * (cos((x_m * 2.0)) / x_m))) / (c_m * abs((s * x_m)));
end
x_m = N[Abs[x], $MachinePrecision] c_m = N[Abs[c], $MachinePrecision] NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. code[x$95$m_, c$95$m_, s_] := N[(N[(N[(1.0 / c$95$m), $MachinePrecision] * N[(N[(1.0 / s), $MachinePrecision] * N[(N[Cos[N[(x$95$m * 2.0), $MachinePrecision]], $MachinePrecision] / x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(c$95$m * N[Abs[N[(s * x$95$m), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
c_m = \left|c\right|
\\
[x_m, c_m, s] = \mathsf{sort}([x_m, c_m, s])\\
\\
\frac{\frac{1}{c\_m} \cdot \left(\frac{1}{s} \cdot \frac{\cos \left(x\_m \cdot 2\right)}{x\_m}\right)}{c\_m \cdot \left|s \cdot x\_m\right|}
\end{array}
Initial program 68.6%
*-un-lft-identity68.6%
add-sqr-sqrt68.6%
times-frac68.6%
sqrt-prod68.6%
sqrt-pow149.8%
metadata-eval49.8%
pow149.8%
*-commutative49.8%
associate-*r*45.3%
unpow245.3%
pow-prod-down49.8%
sqrt-prod49.7%
Applied egg-rr86.7%
associate-*l/86.7%
*-lft-identity86.7%
unpow286.7%
rem-sqrt-square86.7%
unpow286.7%
rem-sqrt-square97.3%
Simplified97.3%
*-un-lft-identity97.3%
add-sqr-sqrt56.4%
fabs-sqr56.4%
add-sqr-sqrt66.5%
times-frac66.3%
*-commutative66.3%
Applied egg-rr66.3%
*-un-lft-identity66.3%
times-frac66.3%
Applied egg-rr66.3%
x_m = (fabs.f64 x) c_m = (fabs.f64 c) NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. (FPCore (x_m c_m s) :precision binary64 (/ (* (/ 1.0 c_m) (/ (cos (* x_m 2.0)) (* s x_m))) (* c_m (fabs (* s x_m)))))
x_m = fabs(x);
c_m = fabs(c);
assert(x_m < c_m && c_m < s);
double code(double x_m, double c_m, double s) {
return ((1.0 / c_m) * (cos((x_m * 2.0)) / (s * x_m))) / (c_m * fabs((s * x_m)));
}
x_m = abs(x)
c_m = abs(c)
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
real(8) function code(x_m, c_m, s)
real(8), intent (in) :: x_m
real(8), intent (in) :: c_m
real(8), intent (in) :: s
code = ((1.0d0 / c_m) * (cos((x_m * 2.0d0)) / (s * x_m))) / (c_m * abs((s * x_m)))
end function
x_m = Math.abs(x);
c_m = Math.abs(c);
assert x_m < c_m && c_m < s;
public static double code(double x_m, double c_m, double s) {
return ((1.0 / c_m) * (Math.cos((x_m * 2.0)) / (s * x_m))) / (c_m * Math.abs((s * x_m)));
}
x_m = math.fabs(x) c_m = math.fabs(c) [x_m, c_m, s] = sort([x_m, c_m, s]) def code(x_m, c_m, s): return ((1.0 / c_m) * (math.cos((x_m * 2.0)) / (s * x_m))) / (c_m * math.fabs((s * x_m)))
x_m = abs(x) c_m = abs(c) x_m, c_m, s = sort([x_m, c_m, s]) function code(x_m, c_m, s) return Float64(Float64(Float64(1.0 / c_m) * Float64(cos(Float64(x_m * 2.0)) / Float64(s * x_m))) / Float64(c_m * abs(Float64(s * x_m)))) end
x_m = abs(x);
c_m = abs(c);
x_m, c_m, s = num2cell(sort([x_m, c_m, s])){:}
function tmp = code(x_m, c_m, s)
tmp = ((1.0 / c_m) * (cos((x_m * 2.0)) / (s * x_m))) / (c_m * abs((s * x_m)));
end
x_m = N[Abs[x], $MachinePrecision] c_m = N[Abs[c], $MachinePrecision] NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. code[x$95$m_, c$95$m_, s_] := N[(N[(N[(1.0 / c$95$m), $MachinePrecision] * N[(N[Cos[N[(x$95$m * 2.0), $MachinePrecision]], $MachinePrecision] / N[(s * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / N[(c$95$m * N[Abs[N[(s * x$95$m), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
x_m = \left|x\right|
\\
c_m = \left|c\right|
\\
[x_m, c_m, s] = \mathsf{sort}([x_m, c_m, s])\\
\\
\frac{\frac{1}{c\_m} \cdot \frac{\cos \left(x\_m \cdot 2\right)}{s \cdot x\_m}}{c\_m \cdot \left|s \cdot x\_m\right|}
\end{array}
Initial program 68.6%
*-un-lft-identity68.6%
add-sqr-sqrt68.6%
times-frac68.6%
sqrt-prod68.6%
sqrt-pow149.8%
metadata-eval49.8%
pow149.8%
*-commutative49.8%
associate-*r*45.3%
unpow245.3%
pow-prod-down49.8%
sqrt-prod49.7%
Applied egg-rr86.7%
associate-*l/86.7%
*-lft-identity86.7%
unpow286.7%
rem-sqrt-square86.7%
unpow286.7%
rem-sqrt-square97.3%
Simplified97.3%
*-un-lft-identity97.3%
add-sqr-sqrt56.4%
fabs-sqr56.4%
add-sqr-sqrt66.5%
times-frac66.3%
*-commutative66.3%
Applied egg-rr66.3%
x_m = (fabs.f64 x) c_m = (fabs.f64 c) NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. (FPCore (x_m c_m s) :precision binary64 (let* ((t_0 (* c_m (* s x_m)))) (* (/ (cos (* x_m 2.0)) t_0) (/ 1.0 t_0))))
x_m = fabs(x);
c_m = fabs(c);
assert(x_m < c_m && c_m < s);
double code(double x_m, double c_m, double s) {
double t_0 = c_m * (s * x_m);
return (cos((x_m * 2.0)) / t_0) * (1.0 / t_0);
}
x_m = abs(x)
c_m = abs(c)
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
real(8) function code(x_m, c_m, s)
real(8), intent (in) :: x_m
real(8), intent (in) :: c_m
real(8), intent (in) :: s
real(8) :: t_0
t_0 = c_m * (s * x_m)
code = (cos((x_m * 2.0d0)) / t_0) * (1.0d0 / t_0)
end function
x_m = Math.abs(x);
c_m = Math.abs(c);
assert x_m < c_m && c_m < s;
public static double code(double x_m, double c_m, double s) {
double t_0 = c_m * (s * x_m);
return (Math.cos((x_m * 2.0)) / t_0) * (1.0 / t_0);
}
x_m = math.fabs(x) c_m = math.fabs(c) [x_m, c_m, s] = sort([x_m, c_m, s]) def code(x_m, c_m, s): t_0 = c_m * (s * x_m) return (math.cos((x_m * 2.0)) / t_0) * (1.0 / t_0)
x_m = abs(x) c_m = abs(c) x_m, c_m, s = sort([x_m, c_m, s]) function code(x_m, c_m, s) t_0 = Float64(c_m * Float64(s * x_m)) return Float64(Float64(cos(Float64(x_m * 2.0)) / t_0) * Float64(1.0 / t_0)) end
x_m = abs(x);
c_m = abs(c);
x_m, c_m, s = num2cell(sort([x_m, c_m, s])){:}
function tmp = code(x_m, c_m, s)
t_0 = c_m * (s * x_m);
tmp = (cos((x_m * 2.0)) / t_0) * (1.0 / t_0);
end
x_m = N[Abs[x], $MachinePrecision]
c_m = N[Abs[c], $MachinePrecision]
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
code[x$95$m_, c$95$m_, s_] := Block[{t$95$0 = N[(c$95$m * N[(s * x$95$m), $MachinePrecision]), $MachinePrecision]}, N[(N[(N[Cos[N[(x$95$m * 2.0), $MachinePrecision]], $MachinePrecision] / t$95$0), $MachinePrecision] * N[(1.0 / t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
c_m = \left|c\right|
\\
[x_m, c_m, s] = \mathsf{sort}([x_m, c_m, s])\\
\\
\begin{array}{l}
t_0 := c\_m \cdot \left(s \cdot x\_m\right)\\
\frac{\cos \left(x\_m \cdot 2\right)}{t\_0} \cdot \frac{1}{t\_0}
\end{array}
\end{array}
Initial program 68.6%
*-un-lft-identity68.6%
add-sqr-sqrt68.6%
times-frac68.6%
sqrt-prod68.6%
sqrt-pow149.8%
metadata-eval49.8%
pow149.8%
*-commutative49.8%
associate-*r*45.3%
unpow245.3%
pow-prod-down49.8%
sqrt-prod49.7%
Applied egg-rr86.7%
associate-*l/86.7%
*-lft-identity86.7%
unpow286.7%
rem-sqrt-square86.7%
unpow286.7%
rem-sqrt-square97.3%
Simplified97.3%
div-inv97.3%
*-commutative97.3%
add-sqr-sqrt56.4%
fabs-sqr56.4%
add-sqr-sqrt66.5%
add-sqr-sqrt49.0%
fabs-sqr49.0%
add-sqr-sqrt97.3%
Applied egg-rr97.3%
x_m = (fabs.f64 x) c_m = (fabs.f64 c) NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. (FPCore (x_m c_m s) :precision binary64 (let* ((t_0 (* x_m (* c_m s)))) (/ (cos (* x_m 2.0)) (* t_0 t_0))))
x_m = fabs(x);
c_m = fabs(c);
assert(x_m < c_m && c_m < s);
double code(double x_m, double c_m, double s) {
double t_0 = x_m * (c_m * s);
return cos((x_m * 2.0)) / (t_0 * t_0);
}
x_m = abs(x)
c_m = abs(c)
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
real(8) function code(x_m, c_m, s)
real(8), intent (in) :: x_m
real(8), intent (in) :: c_m
real(8), intent (in) :: s
real(8) :: t_0
t_0 = x_m * (c_m * s)
code = cos((x_m * 2.0d0)) / (t_0 * t_0)
end function
x_m = Math.abs(x);
c_m = Math.abs(c);
assert x_m < c_m && c_m < s;
public static double code(double x_m, double c_m, double s) {
double t_0 = x_m * (c_m * s);
return Math.cos((x_m * 2.0)) / (t_0 * t_0);
}
x_m = math.fabs(x) c_m = math.fabs(c) [x_m, c_m, s] = sort([x_m, c_m, s]) def code(x_m, c_m, s): t_0 = x_m * (c_m * s) return math.cos((x_m * 2.0)) / (t_0 * t_0)
x_m = abs(x) c_m = abs(c) x_m, c_m, s = sort([x_m, c_m, s]) function code(x_m, c_m, s) t_0 = Float64(x_m * Float64(c_m * s)) return Float64(cos(Float64(x_m * 2.0)) / Float64(t_0 * t_0)) end
x_m = abs(x);
c_m = abs(c);
x_m, c_m, s = num2cell(sort([x_m, c_m, s])){:}
function tmp = code(x_m, c_m, s)
t_0 = x_m * (c_m * s);
tmp = cos((x_m * 2.0)) / (t_0 * t_0);
end
x_m = N[Abs[x], $MachinePrecision]
c_m = N[Abs[c], $MachinePrecision]
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
code[x$95$m_, c$95$m_, s_] := Block[{t$95$0 = N[(x$95$m * N[(c$95$m * s), $MachinePrecision]), $MachinePrecision]}, N[(N[Cos[N[(x$95$m * 2.0), $MachinePrecision]], $MachinePrecision] / N[(t$95$0 * t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
c_m = \left|c\right|
\\
[x_m, c_m, s] = \mathsf{sort}([x_m, c_m, s])\\
\\
\begin{array}{l}
t_0 := x\_m \cdot \left(c\_m \cdot s\right)\\
\frac{\cos \left(x\_m \cdot 2\right)}{t\_0 \cdot t\_0}
\end{array}
\end{array}
Initial program 68.6%
*-un-lft-identity68.6%
add-sqr-sqrt68.6%
times-frac68.6%
sqrt-prod68.6%
sqrt-pow149.8%
metadata-eval49.8%
pow149.8%
*-commutative49.8%
associate-*r*45.3%
unpow245.3%
pow-prod-down49.8%
sqrt-prod49.7%
Applied egg-rr86.7%
associate-*l/86.7%
*-lft-identity86.7%
unpow286.7%
rem-sqrt-square86.7%
unpow286.7%
rem-sqrt-square97.3%
Simplified97.3%
Taylor expanded in x around inf 80.3%
*-commutative80.3%
unpow280.3%
unpow280.3%
sqr-abs80.3%
swap-sqr97.3%
unpow297.3%
associate-*r*97.5%
*-commutative97.5%
Simplified97.5%
unpow297.5%
Applied egg-rr97.5%
x_m = (fabs.f64 x) c_m = (fabs.f64 c) NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. (FPCore (x_m c_m s) :precision binary64 (let* ((t_0 (/ 1.0 (* c_m (* s x_m))))) (* t_0 t_0)))
x_m = fabs(x);
c_m = fabs(c);
assert(x_m < c_m && c_m < s);
double code(double x_m, double c_m, double s) {
double t_0 = 1.0 / (c_m * (s * x_m));
return t_0 * t_0;
}
x_m = abs(x)
c_m = abs(c)
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
real(8) function code(x_m, c_m, s)
real(8), intent (in) :: x_m
real(8), intent (in) :: c_m
real(8), intent (in) :: s
real(8) :: t_0
t_0 = 1.0d0 / (c_m * (s * x_m))
code = t_0 * t_0
end function
x_m = Math.abs(x);
c_m = Math.abs(c);
assert x_m < c_m && c_m < s;
public static double code(double x_m, double c_m, double s) {
double t_0 = 1.0 / (c_m * (s * x_m));
return t_0 * t_0;
}
x_m = math.fabs(x) c_m = math.fabs(c) [x_m, c_m, s] = sort([x_m, c_m, s]) def code(x_m, c_m, s): t_0 = 1.0 / (c_m * (s * x_m)) return t_0 * t_0
x_m = abs(x) c_m = abs(c) x_m, c_m, s = sort([x_m, c_m, s]) function code(x_m, c_m, s) t_0 = Float64(1.0 / Float64(c_m * Float64(s * x_m))) return Float64(t_0 * t_0) end
x_m = abs(x);
c_m = abs(c);
x_m, c_m, s = num2cell(sort([x_m, c_m, s])){:}
function tmp = code(x_m, c_m, s)
t_0 = 1.0 / (c_m * (s * x_m));
tmp = t_0 * t_0;
end
x_m = N[Abs[x], $MachinePrecision]
c_m = N[Abs[c], $MachinePrecision]
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
code[x$95$m_, c$95$m_, s_] := Block[{t$95$0 = N[(1.0 / N[(c$95$m * N[(s * x$95$m), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, N[(t$95$0 * t$95$0), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
c_m = \left|c\right|
\\
[x_m, c_m, s] = \mathsf{sort}([x_m, c_m, s])\\
\\
\begin{array}{l}
t_0 := \frac{1}{c\_m \cdot \left(s \cdot x\_m\right)}\\
t\_0 \cdot t\_0
\end{array}
\end{array}
Initial program 68.6%
Taylor expanded in x around 0 54.8%
associate-/r*54.0%
unpow254.0%
unpow254.0%
swap-sqr66.6%
unpow266.6%
associate-/r*67.4%
unpow267.4%
rem-square-sqrt67.4%
swap-sqr73.4%
unpow273.4%
unpow273.4%
rem-sqrt-square78.7%
Simplified78.7%
inv-pow78.7%
unpow278.7%
unpow-prod-down78.7%
inv-pow78.7%
add-sqr-sqrt47.5%
fabs-sqr47.5%
add-sqr-sqrt60.9%
inv-pow60.9%
add-sqr-sqrt40.0%
fabs-sqr40.0%
add-sqr-sqrt78.7%
Applied egg-rr78.7%
x_m = (fabs.f64 x) c_m = (fabs.f64 c) NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function. (FPCore (x_m c_m s) :precision binary64 (let* ((t_0 (* c_m (* s x_m)))) (/ 1.0 (* t_0 t_0))))
x_m = fabs(x);
c_m = fabs(c);
assert(x_m < c_m && c_m < s);
double code(double x_m, double c_m, double s) {
double t_0 = c_m * (s * x_m);
return 1.0 / (t_0 * t_0);
}
x_m = abs(x)
c_m = abs(c)
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
real(8) function code(x_m, c_m, s)
real(8), intent (in) :: x_m
real(8), intent (in) :: c_m
real(8), intent (in) :: s
real(8) :: t_0
t_0 = c_m * (s * x_m)
code = 1.0d0 / (t_0 * t_0)
end function
x_m = Math.abs(x);
c_m = Math.abs(c);
assert x_m < c_m && c_m < s;
public static double code(double x_m, double c_m, double s) {
double t_0 = c_m * (s * x_m);
return 1.0 / (t_0 * t_0);
}
x_m = math.fabs(x) c_m = math.fabs(c) [x_m, c_m, s] = sort([x_m, c_m, s]) def code(x_m, c_m, s): t_0 = c_m * (s * x_m) return 1.0 / (t_0 * t_0)
x_m = abs(x) c_m = abs(c) x_m, c_m, s = sort([x_m, c_m, s]) function code(x_m, c_m, s) t_0 = Float64(c_m * Float64(s * x_m)) return Float64(1.0 / Float64(t_0 * t_0)) end
x_m = abs(x);
c_m = abs(c);
x_m, c_m, s = num2cell(sort([x_m, c_m, s])){:}
function tmp = code(x_m, c_m, s)
t_0 = c_m * (s * x_m);
tmp = 1.0 / (t_0 * t_0);
end
x_m = N[Abs[x], $MachinePrecision]
c_m = N[Abs[c], $MachinePrecision]
NOTE: x_m, c_m, and s should be sorted in increasing order before calling this function.
code[x$95$m_, c$95$m_, s_] := Block[{t$95$0 = N[(c$95$m * N[(s * x$95$m), $MachinePrecision]), $MachinePrecision]}, N[(1.0 / N[(t$95$0 * t$95$0), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
x_m = \left|x\right|
\\
c_m = \left|c\right|
\\
[x_m, c_m, s] = \mathsf{sort}([x_m, c_m, s])\\
\\
\begin{array}{l}
t_0 := c\_m \cdot \left(s \cdot x\_m\right)\\
\frac{1}{t\_0 \cdot t\_0}
\end{array}
\end{array}
Initial program 68.6%
Taylor expanded in x around 0 54.8%
associate-/r*54.0%
unpow254.0%
unpow254.0%
swap-sqr66.6%
unpow266.6%
associate-/r*67.4%
unpow267.4%
rem-square-sqrt67.4%
swap-sqr73.4%
unpow273.4%
unpow273.4%
rem-sqrt-square78.7%
Simplified78.7%
unpow-prod-down67.4%
add-sqr-sqrt67.3%
unpow-prod-down67.4%
sqrt-pow151.4%
metadata-eval51.4%
pow151.4%
add-sqr-sqrt30.2%
fabs-sqr30.2%
add-sqr-sqrt53.7%
unpow-prod-down60.3%
sqrt-pow160.9%
metadata-eval60.9%
pow160.9%
add-sqr-sqrt40.0%
fabs-sqr40.0%
add-sqr-sqrt78.7%
Applied egg-rr78.7%
herbie shell --seed 2024085
(FPCore (x c s)
:name "mixedcos"
:precision binary64
(/ (cos (* 2.0 x)) (* (pow c 2.0) (* (* x (pow s 2.0)) x))))