
(FPCore modulus (re im) :precision binary64 (sqrt (+ (* re re) (* im im))))
(FPCore modulus (re im) :precision binary64 (hypot re im))
double modulus(double re, double im) {
return sqrt(((re * re) + (im * im)));
}
double modulus(double re, double im) {
return hypot(re, im);
}
public static double modulus(double re, double im) {
return Math.sqrt(((re * re) + (im * im)));
}
public static double modulus(double re, double im) {
return Math.hypot(re, im);
}
def modulus(re, im): return math.sqrt(((re * re) + (im * im)))
def modulus(re, im): return math.hypot(re, im)
function modulus(re, im) return sqrt(Float64(Float64(re * re) + Float64(im * im))) end
function modulus(re, im) return hypot(re, im) end
function tmp = modulus(re, im) tmp = sqrt(((re * re) + (im * im))); end
function tmp = modulus(re, im) tmp = hypot(re, im); end
modulus[re_, im_] := N[Sqrt[N[(N[(re * re), $MachinePrecision] + N[(im * im), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]
modulus[re_, im_] := N[Sqrt[re ^ 2 + im ^ 2], $MachinePrecision]
\sqrt{re \cdot re + im \cdot im}
\mathsf{hypot}\left(re, im\right)
Herbie found 1 alternatives:
| Alternative | Accuracy | Speedup |
|---|
Results
Initial program 52.6%
Simplified100.0%
[Start]52.6% | \[ \sqrt{re \cdot re + im \cdot im}
\] |
|---|---|
hypot-def [=>]100.0% | \[ \color{blue}{\mathsf{hypot}\left(re, im\right)}
\] |
Final simplification100.0%
herbie shell --seed 2023178
(FPCore modulus (re im)
:name "math.abs on complex"
:precision binary64
(sqrt (+ (* re re) (* im im))))