Graphics.Rasterific.Linear:$cquadrance from Rasterific-0.6.1

Average Accuracy: 100.0% → 100.0%

Time: 1.4s

Precision: binary64

Cost: 6720

Math

\[x \cdot x + y \cdot y \]

↓

\[\mathsf{fma}\left(y, y, x \cdot x\right) \]

FPCore

(FPCore (x y) :precision binary64 (+ (* x x) (* y y)))

↓

(FPCore (x y) :precision binary64 (fma y y (* x x)))

C

double code(double x, double y) {
	return (x * x) + (y * y);
}

↓

double code(double x, double y) {
	return fma(y, y, (x * x));
}

Julia

function code(x, y)
	return Float64(Float64(x * x) + Float64(y * y))
end

↓

function code(x, y)
	return fma(y, y, Float64(x * x))
end

Wolfram

code[x_, y_] := N[(N[(x * x), $MachinePrecision] + N[(y * y), $MachinePrecision]), $MachinePrecision]

↓

code[x_, y_] := N[(y * y + N[(x * x), $MachinePrecision]), $MachinePrecision]

Derivation

1. Initial program 100.0%

   \[x \cdot x + y \cdot y \]

2. Taylor expanded in x around 0 100.0%

   \[\leadsto \color{blue}{{y}^{2} + {x}^{2}} \]

3. Simplified 100.0%

   \[\leadsto \color{blue}{\mathsf{fma}\left(y, y, x \cdot x\right)} \]
   Proof

   [Start] 100.0	\[ {y}^{2} + {x}^{2} \]
   unpow2 [=>] 100.0	\[ \color{blue}{y \cdot y} + {x}^{2} \]
   unpow2 [=>] 100.0	\[ y \cdot y + \color{blue}{x \cdot x} \]
   fma-udef [<=] 100.0	\[ \color{blue}{\mathsf{fma}\left(y, y, x \cdot x\right)} \]

4. Final simplification 100.0%

   \[\leadsto \mathsf{fma}\left(y, y, x \cdot x\right) \]

Alternatives

Alternative 1
Accuracy	100.0%
Cost	6720

\[\mathsf{fma}\left(x, x, y \cdot y\right) \]

Alternative 2
Accuracy	68.6%
Cost	589

\[\begin{array}{l} \mathbf{if}\;x \leq -3.8 \cdot 10^{-92} \lor \neg \left(x \leq -3.5 \cdot 10^{-112}\right) \land x \leq -2.2 \cdot 10^{-128}:\\ \;\;\;\;x \cdot x\\ \mathbf{else}:\\ \;\;\;\;y \cdot y\\ \end{array} \]

Alternative 3
Accuracy	100.0%
Cost	448

\[x \cdot x + y \cdot y \]

Alternative 4
Accuracy	55.8%
Cost	192

\[x \cdot x \]

Reproduce

herbie shell --seed 2023122 
(FPCore (x y)
  :name "Graphics.Rasterific.Linear:$cquadrance from Rasterific-0.6.1"
  :precision binary64
  (+ (* x x) (* y y)))