| Alternative 1 | |
|---|---|
| Accuracy | 100.0% |
| Cost | 6720 |
\[\mathsf{fma}\left(re, re, im \cdot im\right)
\]

(FPCore modulus_sqr (re im) :precision binary64 (+ (* re re) (* im im)))
(FPCore modulus_sqr (re im) :precision binary64 (fma re re (* im im)))
double modulus_sqr(double re, double im) {
return (re * re) + (im * im);
}
double modulus_sqr(double re, double im) {
return fma(re, re, (im * im));
}
function modulus_sqr(re, im) return Float64(Float64(re * re) + Float64(im * im)) end
function modulus_sqr(re, im) return fma(re, re, Float64(im * im)) end
modulus$95$sqr[re_, im_] := N[(N[(re * re), $MachinePrecision] + N[(im * im), $MachinePrecision]), $MachinePrecision]
modulus$95$sqr[re_, im_] := N[(re * re + N[(im * im), $MachinePrecision]), $MachinePrecision]
re \cdot re + im \cdot im
\mathsf{fma}\left(re, re, im \cdot im\right)
Herbie found 4 alternatives:
| Alternative | Accuracy | Speedup |
|---|
Initial program 100.0%
Simplified100.0%
[Start]100.0% | \[ re \cdot re + im \cdot im
\] |
|---|---|
fma-def [=>]100.0% | \[ \color{blue}{\mathsf{fma}\left(re, re, im \cdot im\right)}
\] |
Final simplification100.0%
| Alternative 1 | |
|---|---|
| Accuracy | 100.0% |
| Cost | 6720 |
| Alternative 2 | |
|---|---|
| Accuracy | 100.0% |
| Cost | 448 |
| Alternative 3 | |
|---|---|
| Accuracy | 68.8% |
| Cost | 324 |
| Alternative 4 | |
|---|---|
| Accuracy | 57.5% |
| Cost | 192 |
herbie shell --seed 2023263
(FPCore modulus_sqr (re im)
:name "math.abs on complex (squared)"
:precision binary64
(+ (* re re) (* im im)))