FRP.Yampa.Vector3:vector3Rho from Yampa-0.10.2

Average Error: 37.9 → 0.5

Time: 6.3s

Precision: binary64

Cost: 6528

\[ \begin{array}{c}[x, y, z] = \mathsf{sort}([x, y, z])\\ \end{array} \]

Math

\[\sqrt{\left(x \cdot x + y \cdot y\right) + z \cdot z} \]

↓

\[\mathsf{hypot}\left(z, x\right) \]

FPCore

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

↓

(FPCore (x y z) :precision binary64 (hypot z x))

C

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

↓

double code(double x, double y, double z) {
	return hypot(z, x);
}

Java

public static double code(double x, double y, double z) {
	return Math.sqrt((((x * x) + (y * y)) + (z * z)));
}

↓

public static double code(double x, double y, double z) {
	return Math.hypot(z, x);
}

Python

def code(x, y, z):
	return math.sqrt((((x * x) + (y * y)) + (z * z)))

↓

def code(x, y, z):
	return math.hypot(z, x)

Julia

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

↓

function code(x, y, z)
	return hypot(z, x)
end

MATLAB

function tmp = code(x, y, z)
	tmp = sqrt((((x * x) + (y * y)) + (z * z)));
end

↓

function tmp = code(x, y, z)
	tmp = hypot(z, x);
end

Wolfram

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

↓

code[x_, y_, z_] := N[Sqrt[z ^ 2 + x ^ 2], $MachinePrecision]

Target

Original	37.9
Target	19.5
Herbie	0.5

\[\begin{array}{l} \mathbf{if}\;z < -6.396479394109776 \cdot 10^{+136}:\\ \;\;\;\;-z\\ \mathbf{elif}\;z < 7.320293694404182 \cdot 10^{+117}:\\ \;\;\;\;\sqrt{\left(z \cdot z + x \cdot x\right) + y \cdot y}\\ \mathbf{else}:\\ \;\;\;\;z\\ \end{array} \]

Derivation

1. Initial program 37.9

   \[\sqrt{\left(x \cdot x + y \cdot y\right) + z \cdot z} \]

2. Taylor expanded in y around 0 38.1

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

3. Simplified 0.5

   \[\leadsto \color{blue}{\mathsf{hypot}\left(z, x\right)} \]
   Proof
   (hypot.f64 z x): 0 points increase in error, 0 points decrease in error
   (Rewrite<= hypot-def_binary64 (sqrt.f64 (+.f64 (*.f64 z z) (*.f64 x x)))): 166 points increase in error, 1 points decrease in error
   (sqrt.f64 (+.f64 (Rewrite<= unpow2_binary64 (pow.f64 z 2)) (*.f64 x x))): 0 points increase in error, 0 points decrease in error
   (sqrt.f64 (+.f64 (pow.f64 z 2) (Rewrite<= unpow2_binary64 (pow.f64 x 2)))): 0 points increase in error, 0 points decrease in error

4. Final simplification 0.5

   \[\leadsto \mathsf{hypot}\left(z, x\right) \]

Alternatives

Alternative 1
Error	13.0
Cost	7188

\[\begin{array}{l} \mathbf{if}\;z \leq 1027893.9002576969:\\ \;\;\;\;-0.5 \cdot \frac{y}{\frac{x}{y}} - x\\ \mathbf{elif}\;z \leq 1.8573995064406585 \cdot 10^{+32}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 1.2867170564516421 \cdot 10^{+56}:\\ \;\;\;\;-x\\ \mathbf{elif}\;z \leq 1.8184327216002477 \cdot 10^{+118}:\\ \;\;\;\;\mathsf{hypot}\left(z, y\right)\\ \mathbf{elif}\;z \leq 3.8347126517875565 \cdot 10^{+129}:\\ \;\;\;\;-0.5 \cdot \left(z \cdot \frac{z}{x}\right) - x\\ \mathbf{else}:\\ \;\;\;\;\mathsf{hypot}\left(z, y\right)\\ \end{array} \]

Alternative 2
Error	12.8
Cost	7188

\[\begin{array}{l} \mathbf{if}\;z \leq 1027893.9002576969:\\ \;\;\;\;\mathsf{hypot}\left(y, x\right)\\ \mathbf{elif}\;z \leq 1.8573995064406585 \cdot 10^{+32}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 1.2867170564516421 \cdot 10^{+56}:\\ \;\;\;\;-x\\ \mathbf{elif}\;z \leq 1.8184327216002477 \cdot 10^{+118}:\\ \;\;\;\;\mathsf{hypot}\left(z, y\right)\\ \mathbf{elif}\;z \leq 3.8347126517875565 \cdot 10^{+129}:\\ \;\;\;\;-0.5 \cdot \left(z \cdot \frac{z}{x}\right) - x\\ \mathbf{else}:\\ \;\;\;\;\mathsf{hypot}\left(z, y\right)\\ \end{array} \]

Alternative 3
Error	13.2
Cost	1236

\[\begin{array}{l} \mathbf{if}\;z \leq 1027893.9002576969:\\ \;\;\;\;-0.5 \cdot \frac{y}{\frac{x}{y}} - x\\ \mathbf{elif}\;z \leq 1.8573995064406585 \cdot 10^{+32}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 1.2867170564516421 \cdot 10^{+56}:\\ \;\;\;\;-x\\ \mathbf{elif}\;z \leq 1.8184327216002477 \cdot 10^{+118}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 3.8347126517875565 \cdot 10^{+129}:\\ \;\;\;\;-0.5 \cdot \left(z \cdot \frac{z}{x}\right) - x\\ \mathbf{else}:\\ \;\;\;\;z\\ \end{array} \]

Alternative 4
Error	13.3
Cost	788

\[\begin{array}{l} \mathbf{if}\;z \leq 1027893.9002576969:\\ \;\;\;\;-x\\ \mathbf{elif}\;z \leq 1.8573995064406585 \cdot 10^{+32}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 1.2867170564516421 \cdot 10^{+56}:\\ \;\;\;\;-x\\ \mathbf{elif}\;z \leq 1.8184327216002477 \cdot 10^{+118}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 3.8347126517875565 \cdot 10^{+129}:\\ \;\;\;\;-x\\ \mathbf{else}:\\ \;\;\;\;z\\ \end{array} \]

Alternative 5
Error	13.1
Cost	788

\[\begin{array}{l} \mathbf{if}\;z \leq 1027893.9002576969:\\ \;\;\;\;-0.5 \cdot \frac{y}{\frac{x}{y}} - x\\ \mathbf{elif}\;z \leq 1.8573995064406585 \cdot 10^{+32}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 1.2867170564516421 \cdot 10^{+56}:\\ \;\;\;\;-x\\ \mathbf{elif}\;z \leq 1.8184327216002477 \cdot 10^{+118}:\\ \;\;\;\;z\\ \mathbf{elif}\;z \leq 3.8347126517875565 \cdot 10^{+129}:\\ \;\;\;\;-x\\ \mathbf{else}:\\ \;\;\;\;z\\ \end{array} \]

Alternative 6
Error	31.6
Cost	64

\[z \]

Reproduce

herbie shell --seed 2022308 
(FPCore (x y z)
  :name "FRP.Yampa.Vector3:vector3Rho from Yampa-0.10.2"
  :precision binary64

  :herbie-target
  (if (< z -6.396479394109776e+136) (- z) (if (< z 7.320293694404182e+117) (sqrt (+ (+ (* z z) (* x x)) (* y y))) z))

  (sqrt (+ (+ (* x x) (* y y)) (* z z))))