| Alternative 1 | |
|---|---|
| Error | 16.5 |
| Cost | 8152 |
(FPCore (re im) :precision binary64 (* 0.5 (sqrt (* 2.0 (- (sqrt (+ (* re re) (* im im))) re)))))
(FPCore (re im)
:precision binary64
(let* ((t_0 (* 0.5 (* im (pow re -0.5))))
(t_1 (* 0.5 (sqrt (* 2.0 (- (hypot re im) re))))))
(if (<= re 1.05e-78)
t_1
(if (<= re 4.4e-36)
t_0
(if (<= re 7600000000000.0)
t_1
(if (<= re 2.1e+39)
(* 0.5 (/ 1.0 (/ (sqrt re) im)))
(if (<= re 2.2e+113)
(* 0.5 (sqrt (* 2.0 (/ 1.0 (+ (/ 1.0 im) (/ re (* im im)))))))
t_0)))))))double code(double re, double im) {
return 0.5 * sqrt((2.0 * (sqrt(((re * re) + (im * im))) - re)));
}
double code(double re, double im) {
double t_0 = 0.5 * (im * pow(re, -0.5));
double t_1 = 0.5 * sqrt((2.0 * (hypot(re, im) - re)));
double tmp;
if (re <= 1.05e-78) {
tmp = t_1;
} else if (re <= 4.4e-36) {
tmp = t_0;
} else if (re <= 7600000000000.0) {
tmp = t_1;
} else if (re <= 2.1e+39) {
tmp = 0.5 * (1.0 / (sqrt(re) / im));
} else if (re <= 2.2e+113) {
tmp = 0.5 * sqrt((2.0 * (1.0 / ((1.0 / im) + (re / (im * im))))));
} else {
tmp = t_0;
}
return tmp;
}
public static double code(double re, double im) {
return 0.5 * Math.sqrt((2.0 * (Math.sqrt(((re * re) + (im * im))) - re)));
}
public static double code(double re, double im) {
double t_0 = 0.5 * (im * Math.pow(re, -0.5));
double t_1 = 0.5 * Math.sqrt((2.0 * (Math.hypot(re, im) - re)));
double tmp;
if (re <= 1.05e-78) {
tmp = t_1;
} else if (re <= 4.4e-36) {
tmp = t_0;
} else if (re <= 7600000000000.0) {
tmp = t_1;
} else if (re <= 2.1e+39) {
tmp = 0.5 * (1.0 / (Math.sqrt(re) / im));
} else if (re <= 2.2e+113) {
tmp = 0.5 * Math.sqrt((2.0 * (1.0 / ((1.0 / im) + (re / (im * im))))));
} else {
tmp = t_0;
}
return tmp;
}
def code(re, im): return 0.5 * math.sqrt((2.0 * (math.sqrt(((re * re) + (im * im))) - re)))
def code(re, im): t_0 = 0.5 * (im * math.pow(re, -0.5)) t_1 = 0.5 * math.sqrt((2.0 * (math.hypot(re, im) - re))) tmp = 0 if re <= 1.05e-78: tmp = t_1 elif re <= 4.4e-36: tmp = t_0 elif re <= 7600000000000.0: tmp = t_1 elif re <= 2.1e+39: tmp = 0.5 * (1.0 / (math.sqrt(re) / im)) elif re <= 2.2e+113: tmp = 0.5 * math.sqrt((2.0 * (1.0 / ((1.0 / im) + (re / (im * im)))))) else: tmp = t_0 return tmp
function code(re, im) return Float64(0.5 * sqrt(Float64(2.0 * Float64(sqrt(Float64(Float64(re * re) + Float64(im * im))) - re)))) end
function code(re, im) t_0 = Float64(0.5 * Float64(im * (re ^ -0.5))) t_1 = Float64(0.5 * sqrt(Float64(2.0 * Float64(hypot(re, im) - re)))) tmp = 0.0 if (re <= 1.05e-78) tmp = t_1; elseif (re <= 4.4e-36) tmp = t_0; elseif (re <= 7600000000000.0) tmp = t_1; elseif (re <= 2.1e+39) tmp = Float64(0.5 * Float64(1.0 / Float64(sqrt(re) / im))); elseif (re <= 2.2e+113) tmp = Float64(0.5 * sqrt(Float64(2.0 * Float64(1.0 / Float64(Float64(1.0 / im) + Float64(re / Float64(im * im))))))); else tmp = t_0; end return tmp end
function tmp = code(re, im) tmp = 0.5 * sqrt((2.0 * (sqrt(((re * re) + (im * im))) - re))); end
function tmp_2 = code(re, im) t_0 = 0.5 * (im * (re ^ -0.5)); t_1 = 0.5 * sqrt((2.0 * (hypot(re, im) - re))); tmp = 0.0; if (re <= 1.05e-78) tmp = t_1; elseif (re <= 4.4e-36) tmp = t_0; elseif (re <= 7600000000000.0) tmp = t_1; elseif (re <= 2.1e+39) tmp = 0.5 * (1.0 / (sqrt(re) / im)); elseif (re <= 2.2e+113) tmp = 0.5 * sqrt((2.0 * (1.0 / ((1.0 / im) + (re / (im * im)))))); else tmp = t_0; end tmp_2 = tmp; end
code[re_, im_] := N[(0.5 * N[Sqrt[N[(2.0 * N[(N[Sqrt[N[(N[(re * re), $MachinePrecision] + N[(im * im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - re), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]
code[re_, im_] := Block[{t$95$0 = N[(0.5 * N[(im * N[Power[re, -0.5], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(0.5 * N[Sqrt[N[(2.0 * N[(N[Sqrt[re ^ 2 + im ^ 2], $MachinePrecision] - re), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, If[LessEqual[re, 1.05e-78], t$95$1, If[LessEqual[re, 4.4e-36], t$95$0, If[LessEqual[re, 7600000000000.0], t$95$1, If[LessEqual[re, 2.1e+39], N[(0.5 * N[(1.0 / N[(N[Sqrt[re], $MachinePrecision] / im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], If[LessEqual[re, 2.2e+113], N[(0.5 * N[Sqrt[N[(2.0 * N[(1.0 / N[(N[(1.0 / im), $MachinePrecision] + N[(re / N[(im * im), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], t$95$0]]]]]]]
0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\begin{array}{l}
t_0 := 0.5 \cdot \left(im \cdot {re}^{-0.5}\right)\\
t_1 := 0.5 \cdot \sqrt{2 \cdot \left(\mathsf{hypot}\left(re, im\right) - re\right)}\\
\mathbf{if}\;re \leq 1.05 \cdot 10^{-78}:\\
\;\;\;\;t_1\\
\mathbf{elif}\;re \leq 4.4 \cdot 10^{-36}:\\
\;\;\;\;t_0\\
\mathbf{elif}\;re \leq 7600000000000:\\
\;\;\;\;t_1\\
\mathbf{elif}\;re \leq 2.1 \cdot 10^{+39}:\\
\;\;\;\;0.5 \cdot \frac{1}{\frac{\sqrt{re}}{im}}\\
\mathbf{elif}\;re \leq 2.2 \cdot 10^{+113}:\\
\;\;\;\;0.5 \cdot \sqrt{2 \cdot \frac{1}{\frac{1}{im} + \frac{re}{im \cdot im}}}\\
\mathbf{else}:\\
\;\;\;\;t_0\\
\end{array}
Results
if re < 1.05e-78 or 4.3999999999999999e-36 < re < 7.6e12Initial program 32.0
Simplified3.7
[Start]32.0 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
|---|---|
metadata-eval [<=]32.0 | \[ 0.5 \cdot \sqrt{\color{blue}{\left(2 \cdot 1\right)} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
metadata-eval [<=]32.0 | \[ 0.5 \cdot \sqrt{\left(2 \cdot \color{blue}{\left(--1\right)}\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
associate-*r* [<=]32.0 | \[ 0.5 \cdot \sqrt{\color{blue}{2 \cdot \left(\left(--1\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}}
\] |
metadata-eval [=>]32.0 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{1} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}
\] |
*-lft-identity [=>]32.0 | \[ 0.5 \cdot \sqrt{2 \cdot \color{blue}{\left(\sqrt{re \cdot re + im \cdot im} - re\right)}}
\] |
hypot-def [=>]3.7 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{\mathsf{hypot}\left(re, im\right)} - re\right)}
\] |
if 1.05e-78 < re < 4.3999999999999999e-36 or 2.2000000000000001e113 < re Initial program 57.3
Simplified37.4
[Start]57.3 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
|---|---|
metadata-eval [<=]57.3 | \[ 0.5 \cdot \sqrt{\color{blue}{\left(2 \cdot 1\right)} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
metadata-eval [<=]57.3 | \[ 0.5 \cdot \sqrt{\left(2 \cdot \color{blue}{\left(--1\right)}\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
associate-*r* [<=]57.3 | \[ 0.5 \cdot \sqrt{\color{blue}{2 \cdot \left(\left(--1\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}}
\] |
metadata-eval [=>]57.3 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{1} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}
\] |
*-lft-identity [=>]57.3 | \[ 0.5 \cdot \sqrt{2 \cdot \color{blue}{\left(\sqrt{re \cdot re + im \cdot im} - re\right)}}
\] |
hypot-def [=>]37.4 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{\mathsf{hypot}\left(re, im\right)} - re\right)}
\] |
Taylor expanded in re around inf 34.8
Simplified34.8
[Start]34.8 | \[ 0.5 \cdot \sqrt{2 \cdot \left(0.5 \cdot \frac{{im}^{2}}{re}\right)}
\] |
|---|---|
unpow2 [=>]34.8 | \[ 0.5 \cdot \sqrt{2 \cdot \left(0.5 \cdot \frac{\color{blue}{im \cdot im}}{re}\right)}
\] |
Applied egg-rr44.3
Simplified14.7
[Start]44.3 | \[ 0.5 \cdot \left(e^{\mathsf{log1p}\left(\frac{im}{\sqrt{re}}\right)} - 1\right)
\] |
|---|---|
expm1-def [=>]15.1 | \[ 0.5 \cdot \color{blue}{\mathsf{expm1}\left(\mathsf{log1p}\left(\frac{im}{\sqrt{re}}\right)\right)}
\] |
expm1-log1p [=>]14.7 | \[ 0.5 \cdot \color{blue}{\frac{im}{\sqrt{re}}}
\] |
Applied egg-rr14.7
if 7.6e12 < re < 2.0999999999999999e39Initial program 44.3
Simplified30.8
[Start]44.3 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
|---|---|
metadata-eval [<=]44.3 | \[ 0.5 \cdot \sqrt{\color{blue}{\left(2 \cdot 1\right)} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
metadata-eval [<=]44.3 | \[ 0.5 \cdot \sqrt{\left(2 \cdot \color{blue}{\left(--1\right)}\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
associate-*r* [<=]44.3 | \[ 0.5 \cdot \sqrt{\color{blue}{2 \cdot \left(\left(--1\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}}
\] |
metadata-eval [=>]44.3 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{1} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}
\] |
*-lft-identity [=>]44.3 | \[ 0.5 \cdot \sqrt{2 \cdot \color{blue}{\left(\sqrt{re \cdot re + im \cdot im} - re\right)}}
\] |
hypot-def [=>]30.8 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{\mathsf{hypot}\left(re, im\right)} - re\right)}
\] |
Taylor expanded in re around inf 41.4
Simplified41.4
[Start]41.4 | \[ 0.5 \cdot \sqrt{2 \cdot \left(0.5 \cdot \frac{{im}^{2}}{re}\right)}
\] |
|---|---|
unpow2 [=>]41.4 | \[ 0.5 \cdot \sqrt{2 \cdot \left(0.5 \cdot \frac{\color{blue}{im \cdot im}}{re}\right)}
\] |
Applied egg-rr29.0
if 2.0999999999999999e39 < re < 2.2000000000000001e113Initial program 50.9
Simplified34.4
[Start]50.9 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
|---|---|
metadata-eval [<=]50.9 | \[ 0.5 \cdot \sqrt{\color{blue}{\left(2 \cdot 1\right)} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
metadata-eval [<=]50.9 | \[ 0.5 \cdot \sqrt{\left(2 \cdot \color{blue}{\left(--1\right)}\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)}
\] |
associate-*r* [<=]50.9 | \[ 0.5 \cdot \sqrt{\color{blue}{2 \cdot \left(\left(--1\right) \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}}
\] |
metadata-eval [=>]50.9 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{1} \cdot \left(\sqrt{re \cdot re + im \cdot im} - re\right)\right)}
\] |
*-lft-identity [=>]50.9 | \[ 0.5 \cdot \sqrt{2 \cdot \color{blue}{\left(\sqrt{re \cdot re + im \cdot im} - re\right)}}
\] |
hypot-def [=>]34.4 | \[ 0.5 \cdot \sqrt{2 \cdot \left(\color{blue}{\mathsf{hypot}\left(re, im\right)} - re\right)}
\] |
Applied egg-rr34.4
Taylor expanded in re around 0 31.8
Simplified31.8
[Start]31.8 | \[ 0.5 \cdot \sqrt{2 \cdot \frac{1}{\frac{re}{{im}^{2}} + \frac{1}{im}}}
\] |
|---|---|
+-commutative [=>]31.8 | \[ 0.5 \cdot \sqrt{2 \cdot \frac{1}{\color{blue}{\frac{1}{im} + \frac{re}{{im}^{2}}}}}
\] |
unpow2 [=>]31.8 | \[ 0.5 \cdot \sqrt{2 \cdot \frac{1}{\frac{1}{im} + \frac{re}{\color{blue}{im \cdot im}}}}
\] |
Final simplification8.1
| Alternative 1 | |
|---|---|
| Error | 16.5 |
| Cost | 8152 |
| Alternative 2 | |
|---|---|
| Error | 16.8 |
| Cost | 7640 |
| Alternative 3 | |
|---|---|
| Error | 16.7 |
| Cost | 7640 |
| Alternative 4 | |
|---|---|
| Error | 15.9 |
| Cost | 7576 |
| Alternative 5 | |
|---|---|
| Error | 23.5 |
| Cost | 7444 |
| Alternative 6 | |
|---|---|
| Error | 23.5 |
| Cost | 7382 |
| Alternative 7 | |
|---|---|
| Error | 30.1 |
| Cost | 6720 |
herbie shell --seed 2023056
(FPCore (re im)
:name "math.sqrt on complex, imaginary part, im greater than 0 branch"
:precision binary64
:pre (> im 0.0)
(* 0.5 (sqrt (* 2.0 (- (sqrt (+ (* re re) (* im im))) re)))))