| Alternative 1 | |
|---|---|
| Error | 4.0 |
| Cost | 20489 |
(FPCore (t l k) :precision binary64 (/ 2.0 (* (* (* (/ (pow t 3.0) (* l l)) (sin k)) (tan k)) (- (+ 1.0 (pow (/ k t) 2.0)) 1.0))))
(FPCore (t l k)
:precision binary64
(let* ((t_1 (* k (/ k l))))
(if (or (<= k -8.4e-44) (not (<= k 1.3e-66)))
(* (* (/ l k) (cos k)) (/ (/ (pow (sin k) -2.0) (/ k (* l 2.0))) t))
(/ 2.0 (* t_1 (* t t_1))))))double code(double t, double l, double k) {
return 2.0 / ((((pow(t, 3.0) / (l * l)) * sin(k)) * tan(k)) * ((1.0 + pow((k / t), 2.0)) - 1.0));
}
double code(double t, double l, double k) {
double t_1 = k * (k / l);
double tmp;
if ((k <= -8.4e-44) || !(k <= 1.3e-66)) {
tmp = ((l / k) * cos(k)) * ((pow(sin(k), -2.0) / (k / (l * 2.0))) / t);
} else {
tmp = 2.0 / (t_1 * (t * t_1));
}
return tmp;
}
real(8) function code(t, l, k)
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: k
code = 2.0d0 / (((((t ** 3.0d0) / (l * l)) * sin(k)) * tan(k)) * ((1.0d0 + ((k / t) ** 2.0d0)) - 1.0d0))
end function
real(8) function code(t, l, k)
real(8), intent (in) :: t
real(8), intent (in) :: l
real(8), intent (in) :: k
real(8) :: t_1
real(8) :: tmp
t_1 = k * (k / l)
if ((k <= (-8.4d-44)) .or. (.not. (k <= 1.3d-66))) then
tmp = ((l / k) * cos(k)) * (((sin(k) ** (-2.0d0)) / (k / (l * 2.0d0))) / t)
else
tmp = 2.0d0 / (t_1 * (t * t_1))
end if
code = tmp
end function
public static double code(double t, double l, double k) {
return 2.0 / ((((Math.pow(t, 3.0) / (l * l)) * Math.sin(k)) * Math.tan(k)) * ((1.0 + Math.pow((k / t), 2.0)) - 1.0));
}
public static double code(double t, double l, double k) {
double t_1 = k * (k / l);
double tmp;
if ((k <= -8.4e-44) || !(k <= 1.3e-66)) {
tmp = ((l / k) * Math.cos(k)) * ((Math.pow(Math.sin(k), -2.0) / (k / (l * 2.0))) / t);
} else {
tmp = 2.0 / (t_1 * (t * t_1));
}
return tmp;
}
def code(t, l, k): return 2.0 / ((((math.pow(t, 3.0) / (l * l)) * math.sin(k)) * math.tan(k)) * ((1.0 + math.pow((k / t), 2.0)) - 1.0))
def code(t, l, k): t_1 = k * (k / l) tmp = 0 if (k <= -8.4e-44) or not (k <= 1.3e-66): tmp = ((l / k) * math.cos(k)) * ((math.pow(math.sin(k), -2.0) / (k / (l * 2.0))) / t) else: tmp = 2.0 / (t_1 * (t * t_1)) return tmp
function code(t, l, k) return Float64(2.0 / Float64(Float64(Float64(Float64((t ^ 3.0) / Float64(l * l)) * sin(k)) * tan(k)) * Float64(Float64(1.0 + (Float64(k / t) ^ 2.0)) - 1.0))) end
function code(t, l, k) t_1 = Float64(k * Float64(k / l)) tmp = 0.0 if ((k <= -8.4e-44) || !(k <= 1.3e-66)) tmp = Float64(Float64(Float64(l / k) * cos(k)) * Float64(Float64((sin(k) ^ -2.0) / Float64(k / Float64(l * 2.0))) / t)); else tmp = Float64(2.0 / Float64(t_1 * Float64(t * t_1))); end return tmp end
function tmp = code(t, l, k) tmp = 2.0 / (((((t ^ 3.0) / (l * l)) * sin(k)) * tan(k)) * ((1.0 + ((k / t) ^ 2.0)) - 1.0)); end
function tmp_2 = code(t, l, k) t_1 = k * (k / l); tmp = 0.0; if ((k <= -8.4e-44) || ~((k <= 1.3e-66))) tmp = ((l / k) * cos(k)) * (((sin(k) ^ -2.0) / (k / (l * 2.0))) / t); else tmp = 2.0 / (t_1 * (t * t_1)); end tmp_2 = tmp; end
code[t_, l_, k_] := N[(2.0 / N[(N[(N[(N[(N[Power[t, 3.0], $MachinePrecision] / N[(l * l), $MachinePrecision]), $MachinePrecision] * N[Sin[k], $MachinePrecision]), $MachinePrecision] * N[Tan[k], $MachinePrecision]), $MachinePrecision] * N[(N[(1.0 + N[Power[N[(k / t), $MachinePrecision], 2.0], $MachinePrecision]), $MachinePrecision] - 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
code[t_, l_, k_] := Block[{t$95$1 = N[(k * N[(k / l), $MachinePrecision]), $MachinePrecision]}, If[Or[LessEqual[k, -8.4e-44], N[Not[LessEqual[k, 1.3e-66]], $MachinePrecision]], N[(N[(N[(l / k), $MachinePrecision] * N[Cos[k], $MachinePrecision]), $MachinePrecision] * N[(N[(N[Power[N[Sin[k], $MachinePrecision], -2.0], $MachinePrecision] / N[(k / N[(l * 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t), $MachinePrecision]), $MachinePrecision], N[(2.0 / N[(t$95$1 * N[(t * t$95$1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]
\frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}
\begin{array}{l}
t_1 := k \cdot \frac{k}{\ell}\\
\mathbf{if}\;k \leq -8.4 \cdot 10^{-44} \lor \neg \left(k \leq 1.3 \cdot 10^{-66}\right):\\
\;\;\;\;\left(\frac{\ell}{k} \cdot \cos k\right) \cdot \frac{\frac{{\sin k}^{-2}}{\frac{k}{\ell \cdot 2}}}{t}\\
\mathbf{else}:\\
\;\;\;\;\frac{2}{t_1 \cdot \left(t \cdot t_1\right)}\\
\end{array}
Results
if k < -8.40000000000000005e-44 or 1.2999999999999999e-66 < k Initial program 45.1
Simplified37.1
[Start]45.1 | \[ \frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}
\] |
|---|---|
*-commutative [=>]45.1 | \[ \frac{2}{\color{blue}{\left(\tan k \cdot \left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right)\right)} \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}
\] |
associate-*l* [=>]45.1 | \[ \frac{2}{\color{blue}{\tan k \cdot \left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)\right)}}
\] |
+-commutative [=>]45.1 | \[ \frac{2}{\tan k \cdot \left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \left(\color{blue}{\left({\left(\frac{k}{t}\right)}^{2} + 1\right)} - 1\right)\right)}
\] |
associate--l+ [=>]37.1 | \[ \frac{2}{\tan k \cdot \left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \color{blue}{\left({\left(\frac{k}{t}\right)}^{2} + \left(1 - 1\right)\right)}\right)}
\] |
metadata-eval [=>]37.1 | \[ \frac{2}{\tan k \cdot \left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \left({\left(\frac{k}{t}\right)}^{2} + \color{blue}{0}\right)\right)}
\] |
Taylor expanded in k around inf 18.9
Simplified14.3
[Start]18.9 | \[ \frac{2}{\frac{{k}^{2} \cdot \left({\sin k}^{2} \cdot t\right)}{\cos k \cdot {\ell}^{2}}}
\] |
|---|---|
times-frac [=>]18.9 | \[ \frac{2}{\color{blue}{\frac{{k}^{2}}{\cos k} \cdot \frac{{\sin k}^{2} \cdot t}{{\ell}^{2}}}}
\] |
unpow2 [=>]18.9 | \[ \frac{2}{\frac{\color{blue}{k \cdot k}}{\cos k} \cdot \frac{{\sin k}^{2} \cdot t}{{\ell}^{2}}}
\] |
associate-/l* [=>]18.9 | \[ \frac{2}{\color{blue}{\frac{k}{\frac{\cos k}{k}}} \cdot \frac{{\sin k}^{2} \cdot t}{{\ell}^{2}}}
\] |
*-commutative [=>]18.9 | \[ \frac{2}{\frac{k}{\frac{\cos k}{k}} \cdot \frac{\color{blue}{t \cdot {\sin k}^{2}}}{{\ell}^{2}}}
\] |
unpow2 [=>]18.9 | \[ \frac{2}{\frac{k}{\frac{\cos k}{k}} \cdot \frac{t \cdot {\sin k}^{2}}{\color{blue}{\ell \cdot \ell}}}
\] |
times-frac [=>]14.3 | \[ \frac{2}{\frac{k}{\frac{\cos k}{k}} \cdot \color{blue}{\left(\frac{t}{\ell} \cdot \frac{{\sin k}^{2}}{\ell}\right)}}
\] |
Applied egg-rr9.2
Applied egg-rr4.2
Simplified4.1
[Start]4.2 | \[ \left(\frac{2}{k \cdot t} \cdot \left(\ell \cdot {\sin k}^{-2}\right)\right) \cdot \frac{\ell}{\frac{k}{\cos k}}
\] |
|---|---|
*-commutative [=>]4.2 | \[ \color{blue}{\frac{\ell}{\frac{k}{\cos k}} \cdot \left(\frac{2}{k \cdot t} \cdot \left(\ell \cdot {\sin k}^{-2}\right)\right)}
\] |
associate-/r/ [=>]4.1 | \[ \color{blue}{\left(\frac{\ell}{k} \cdot \cos k\right)} \cdot \left(\frac{2}{k \cdot t} \cdot \left(\ell \cdot {\sin k}^{-2}\right)\right)
\] |
*-commutative [=>]4.1 | \[ \left(\frac{\ell}{k} \cdot \cos k\right) \cdot \color{blue}{\left(\left(\ell \cdot {\sin k}^{-2}\right) \cdot \frac{2}{k \cdot t}\right)}
\] |
Applied egg-rr0.4
if -8.40000000000000005e-44 < k < 1.2999999999999999e-66Initial program 63.4
Simplified53.6
[Start]63.4 | \[ \frac{2}{\left(\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k\right) \cdot \left(\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1\right)}
\] |
|---|---|
associate-/r* [=>]63.4 | \[ \color{blue}{\frac{\frac{2}{\left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right) \cdot \tan k}}{\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1}}
\] |
*-commutative [=>]63.4 | \[ \frac{\frac{2}{\color{blue}{\tan k \cdot \left(\frac{{t}^{3}}{\ell \cdot \ell} \cdot \sin k\right)}}}{\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1}
\] |
associate-*l/ [=>]63.7 | \[ \frac{\frac{2}{\tan k \cdot \color{blue}{\frac{{t}^{3} \cdot \sin k}{\ell \cdot \ell}}}}{\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1}
\] |
times-frac [=>]62.5 | \[ \frac{\frac{2}{\tan k \cdot \color{blue}{\left(\frac{{t}^{3}}{\ell} \cdot \frac{\sin k}{\ell}\right)}}}{\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1}
\] |
associate-*r* [=>]62.5 | \[ \frac{\frac{2}{\color{blue}{\left(\tan k \cdot \frac{{t}^{3}}{\ell}\right) \cdot \frac{\sin k}{\ell}}}}{\left(1 + {\left(\frac{k}{t}\right)}^{2}\right) - 1}
\] |
+-commutative [=>]62.5 | \[ \frac{\frac{2}{\left(\tan k \cdot \frac{{t}^{3}}{\ell}\right) \cdot \frac{\sin k}{\ell}}}{\color{blue}{\left({\left(\frac{k}{t}\right)}^{2} + 1\right)} - 1}
\] |
associate--l+ [=>]53.6 | \[ \frac{\frac{2}{\left(\tan k \cdot \frac{{t}^{3}}{\ell}\right) \cdot \frac{\sin k}{\ell}}}{\color{blue}{{\left(\frac{k}{t}\right)}^{2} + \left(1 - 1\right)}}
\] |
metadata-eval [=>]53.6 | \[ \frac{\frac{2}{\left(\tan k \cdot \frac{{t}^{3}}{\ell}\right) \cdot \frac{\sin k}{\ell}}}{{\left(\frac{k}{t}\right)}^{2} + \color{blue}{0}}
\] |
+-rgt-identity [=>]53.6 | \[ \frac{\frac{2}{\left(\tan k \cdot \frac{{t}^{3}}{\ell}\right) \cdot \frac{\sin k}{\ell}}}{\color{blue}{{\left(\frac{k}{t}\right)}^{2}}}
\] |
Taylor expanded in k around 0 56.2
Simplified56.3
[Start]56.2 | \[ 2 \cdot \frac{{\ell}^{2}}{{k}^{4} \cdot t}
\] |
|---|---|
associate-*r/ [=>]56.2 | \[ \color{blue}{\frac{2 \cdot {\ell}^{2}}{{k}^{4} \cdot t}}
\] |
*-commutative [=>]56.2 | \[ \frac{2 \cdot {\ell}^{2}}{\color{blue}{t \cdot {k}^{4}}}
\] |
times-frac [=>]56.3 | \[ \color{blue}{\frac{2}{t} \cdot \frac{{\ell}^{2}}{{k}^{4}}}
\] |
unpow2 [=>]56.3 | \[ \frac{2}{t} \cdot \frac{\color{blue}{\ell \cdot \ell}}{{k}^{4}}
\] |
Applied egg-rr22.3
Applied egg-rr0.7
Final simplification0.4
| Alternative 1 | |
|---|---|
| Error | 4.0 |
| Cost | 20489 |
| Alternative 2 | |
|---|---|
| Error | 0.5 |
| Cost | 20489 |
| Alternative 3 | |
|---|---|
| Error | 4.0 |
| Cost | 20488 |
| Alternative 4 | |
|---|---|
| Error | 3.9 |
| Cost | 20488 |
| Alternative 5 | |
|---|---|
| Error | 6.9 |
| Cost | 14540 |
| Alternative 6 | |
|---|---|
| Error | 6.9 |
| Cost | 14540 |
| Alternative 7 | |
|---|---|
| Error | 3.7 |
| Cost | 14540 |
| Alternative 8 | |
|---|---|
| Error | 12.6 |
| Cost | 14408 |
| Alternative 9 | |
|---|---|
| Error | 12.9 |
| Cost | 14025 |
| Alternative 10 | |
|---|---|
| Error | 20.4 |
| Cost | 8009 |
| Alternative 11 | |
|---|---|
| Error | 25.8 |
| Cost | 960 |
| Alternative 12 | |
|---|---|
| Error | 22.4 |
| Cost | 960 |
herbie shell --seed 2022356
(FPCore (t l k)
:name "Toniolo and Linder, Equation (10-)"
:precision binary64
(/ 2.0 (* (* (* (/ (pow t 3.0) (* l l)) (sin k)) (tan k)) (- (+ 1.0 (pow (/ k t) 2.0)) 1.0))))