Rosa's DopplerBench

Average Error: 17.9 → 1.5

Time: 11.7s

Precision: binary64

Cost: 704

Math

\[\frac{\left(-t1\right) \cdot v}{\left(t1 + u\right) \cdot \left(t1 + u\right)} \]

↓

\[\frac{\frac{v}{t1 + u}}{-1 - \frac{u}{t1}} \]

FPCore

(FPCore (u v t1) :precision binary64 (/ (* (- t1) v) (* (+ t1 u) (+ t1 u))))

↓

(FPCore (u v t1) :precision binary64 (/ (/ v (+ t1 u)) (- -1.0 (/ u t1))))

C

double code(double u, double v, double t1) {
	return (-t1 * v) / ((t1 + u) * (t1 + u));
}

↓

double code(double u, double v, double t1) {
	return (v / (t1 + u)) / (-1.0 - (u / t1));
}

Fortran

real(8) function code(u, v, t1)
    real(8), intent (in) :: u
    real(8), intent (in) :: v
    real(8), intent (in) :: t1
    code = (-t1 * v) / ((t1 + u) * (t1 + u))
end function

↓

real(8) function code(u, v, t1)
    real(8), intent (in) :: u
    real(8), intent (in) :: v
    real(8), intent (in) :: t1
    code = (v / (t1 + u)) / ((-1.0d0) - (u / t1))
end function

Java

public static double code(double u, double v, double t1) {
	return (-t1 * v) / ((t1 + u) * (t1 + u));
}

↓

public static double code(double u, double v, double t1) {
	return (v / (t1 + u)) / (-1.0 - (u / t1));
}

Python

def code(u, v, t1):
	return (-t1 * v) / ((t1 + u) * (t1 + u))

↓

def code(u, v, t1):
	return (v / (t1 + u)) / (-1.0 - (u / t1))

Julia

function code(u, v, t1)
	return Float64(Float64(Float64(-t1) * v) / Float64(Float64(t1 + u) * Float64(t1 + u)))
end

↓

function code(u, v, t1)
	return Float64(Float64(v / Float64(t1 + u)) / Float64(-1.0 - Float64(u / t1)))
end

MATLAB

function tmp = code(u, v, t1)
	tmp = (-t1 * v) / ((t1 + u) * (t1 + u));
end

↓

function tmp = code(u, v, t1)
	tmp = (v / (t1 + u)) / (-1.0 - (u / t1));
end

Wolfram

code[u_, v_, t1_] := N[(N[((-t1) * v), $MachinePrecision] / N[(N[(t1 + u), $MachinePrecision] * N[(t1 + u), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]

↓

code[u_, v_, t1_] := N[(N[(v / N[(t1 + u), $MachinePrecision]), $MachinePrecision] / N[(-1.0 - N[(u / t1), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]

Derivation

1. Initial program 17.9

   \[\frac{\left(-t1\right) \cdot v}{\left(t1 + u\right) \cdot \left(t1 + u\right)} \]

2. Simplified 1.5

   \[\leadsto \color{blue}{\frac{\frac{v}{t1 + u}}{-1 - \frac{u}{t1}}} \]
   Proof
   (/.f64 (/.f64 v (+.f64 t1 u)) (-.f64 -1 (/.f64 u t1))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (-.f64 (Rewrite<= metadata-eval (neg.f64 1)) (/.f64 u t1))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (-.f64 (neg.f64 (Rewrite<= *-inverses_binary64 (/.f64 t1 t1))) (/.f64 u t1))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (-.f64 (Rewrite<= distribute-frac-neg_binary64 (/.f64 (neg.f64 t1) t1)) (/.f64 u t1))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (Rewrite<= div-sub_binary64 (/.f64 (-.f64 (neg.f64 t1) u) t1))): 3 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (/.f64 (Rewrite<= unsub-neg_binary64 (+.f64 (neg.f64 t1) (neg.f64 u))) t1)): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (/.f64 (Rewrite=> distribute-neg-out_binary64 (neg.f64 (+.f64 t1 u))) t1)): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (/.f64 (Rewrite=> neg-mul-1_binary64 (*.f64 -1 (+.f64 t1 u))) t1)): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (/.f64 (*.f64 -1 (+.f64 t1 u)) (Rewrite<= remove-double-neg_binary64 (neg.f64 (neg.f64 t1))))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (/.f64 (*.f64 -1 (+.f64 t1 u)) (Rewrite=> neg-mul-1_binary64 (*.f64 -1 (neg.f64 t1))))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (Rewrite=> times-frac_binary64 (*.f64 (/.f64 -1 -1) (/.f64 (+.f64 t1 u) (neg.f64 t1))))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (*.f64 (Rewrite=> metadata-eval 1) (/.f64 (+.f64 t1 u) (neg.f64 t1)))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (Rewrite=> *-lft-identity_binary64 (/.f64 (+.f64 t1 u) (neg.f64 t1)))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (/.f64 (+.f64 t1 u) (Rewrite=> neg-mul-1_binary64 (*.f64 -1 t1)))): 0 points increase in error, 0 points decrease in error
   (/.f64 (/.f64 v (+.f64 t1 u)) (Rewrite<= associate-/l/_binary64 (/.f64 (/.f64 (+.f64 t1 u) t1) -1))): 0 points increase in error, 0 points decrease in error
   (Rewrite<= associate-/l*_binary64 (/.f64 (*.f64 (/.f64 v (+.f64 t1 u)) -1) (/.f64 (+.f64 t1 u) t1))): 0 points increase in error, 0 points decrease in error
   (Rewrite<= associate-*r/_binary64 (*.f64 (/.f64 v (+.f64 t1 u)) (/.f64 -1 (/.f64 (+.f64 t1 u) t1)))): 7 points increase in error, 4 points decrease in error
   (*.f64 (/.f64 v (+.f64 t1 u)) (Rewrite<= associate-/l*_binary64 (/.f64 (*.f64 -1 t1) (+.f64 t1 u)))): 2 points increase in error, 8 points decrease in error
   (*.f64 (/.f64 v (+.f64 t1 u)) (/.f64 (Rewrite<= neg-mul-1_binary64 (neg.f64 t1)) (+.f64 t1 u))): 0 points increase in error, 0 points decrease in error
   (Rewrite<= times-frac_binary64 (/.f64 (*.f64 v (neg.f64 t1)) (*.f64 (+.f64 t1 u) (+.f64 t1 u)))): 94 points increase in error, 10 points decrease in error
   (/.f64 (Rewrite<= *-commutative_binary64 (*.f64 (neg.f64 t1) v)) (*.f64 (+.f64 t1 u) (+.f64 t1 u))): 0 points increase in error, 0 points decrease in error

3. Final simplification 1.5

   \[\leadsto \frac{\frac{v}{t1 + u}}{-1 - \frac{u}{t1}} \]

Alternatives

Alternative 1
Error	16.9
Cost	1496

\[\begin{array}{l} t_1 := -1 - \frac{u}{t1}\\ t_2 := \frac{t1 \cdot \frac{-1}{t1 + u}}{\frac{u}{v}}\\ t_3 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;u \leq -8.20528684512547 \cdot 10^{+67}:\\ \;\;\;\;\frac{v}{u} \cdot \frac{-t1}{u}\\ \mathbf{elif}\;u \leq -2.3740740170384844 \cdot 10^{-40}:\\ \;\;\;\;\frac{\frac{v}{t1}}{t_1}\\ \mathbf{elif}\;u \leq -8.607185271431702 \cdot 10^{-66}:\\ \;\;\;\;\frac{\frac{v}{u}}{t_1}\\ \mathbf{elif}\;u \leq 4.973965397940122 \cdot 10^{-103}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;u \leq 1.9851884181012372 \cdot 10^{+34}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;u \leq 4.6596465291876784 \cdot 10^{+54}:\\ \;\;\;\;t_3\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \]

Alternative 2
Error	17.1
Cost	1368

\[\begin{array}{l} t_1 := -1 - \frac{u}{t1}\\ t_2 := \frac{\frac{v}{u}}{t_1}\\ t_3 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;u \leq -8.20528684512547 \cdot 10^{+67}:\\ \;\;\;\;\frac{v}{u} \cdot \frac{-t1}{u}\\ \mathbf{elif}\;u \leq -2.3740740170384844 \cdot 10^{-40}:\\ \;\;\;\;\frac{\frac{v}{t1}}{t_1}\\ \mathbf{elif}\;u \leq -8.607185271431702 \cdot 10^{-66}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;u \leq 4.973965397940122 \cdot 10^{-103}:\\ \;\;\;\;t_3\\ \mathbf{elif}\;u \leq 1.9851884181012372 \cdot 10^{+34}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;u \leq 4.6596465291876784 \cdot 10^{+54}:\\ \;\;\;\;t_3\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \]

Alternative 3
Error	17.1
Cost	1304

\[\begin{array}{l} t_1 := \frac{-v}{t1 + u \cdot 2}\\ t_2 := \frac{v}{u} \cdot \frac{-t1}{u}\\ \mathbf{if}\;u \leq -8.20528684512547 \cdot 10^{+67}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;u \leq -2.3740740170384844 \cdot 10^{-40}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq -8.607185271431702 \cdot 10^{-66}:\\ \;\;\;\;\frac{-v}{\frac{u}{\frac{t1}{u}}}\\ \mathbf{elif}\;u \leq 4.973965397940122 \cdot 10^{-103}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 1.9851884181012372 \cdot 10^{+34}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;u \leq 4.6596465291876784 \cdot 10^{+54}:\\ \;\;\;\;t_1\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \]

Alternative 4
Error	17.1
Cost	1304

\[\begin{array}{l} t_1 := \frac{v}{u} \cdot \frac{-t1}{u}\\ t_2 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;u \leq -8.20528684512547 \cdot 10^{+67}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq -2.3740740170384844 \cdot 10^{-40}:\\ \;\;\;\;\frac{\frac{v}{t1}}{-1 - \frac{u}{t1}}\\ \mathbf{elif}\;u \leq -8.607185271431702 \cdot 10^{-66}:\\ \;\;\;\;\frac{-v}{\frac{u}{\frac{t1}{u}}}\\ \mathbf{elif}\;u \leq 4.973965397940122 \cdot 10^{-103}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;u \leq 1.9851884181012372 \cdot 10^{+34}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 4.6596465291876784 \cdot 10^{+54}:\\ \;\;\;\;t_2\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 5
Error	17.2
Cost	1040

\[\begin{array}{l} t_1 := \frac{-v}{t1 + u}\\ t_2 := \frac{-v}{\frac{u}{\frac{t1}{u}}}\\ \mathbf{if}\;t1 \leq -6908312167809264000:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq 1.05145900724471 \cdot 10^{-159}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;t1 \leq 8299223.135617268:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq 1.3447979138297305 \cdot 10^{+35}:\\ \;\;\;\;t_2\\ \mathbf{else}:\\ \;\;\;\;\frac{-v}{t1}\\ \end{array} \]

Alternative 6
Error	16.9
Cost	1040

\[\begin{array}{l} t_1 := \frac{-v}{\frac{u}{\frac{t1}{u}}}\\ t_2 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;t1 \leq -2.9228862174362337 \cdot 10^{-6}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;t1 \leq 1.05145900724471 \cdot 10^{-159}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq 8299223.135617268:\\ \;\;\;\;t_2\\ \mathbf{elif}\;t1 \leq 1.3447979138297305 \cdot 10^{+35}:\\ \;\;\;\;t_1\\ \mathbf{else}:\\ \;\;\;\;\frac{-v}{t1}\\ \end{array} \]

Alternative 7
Error	16.9
Cost	1040

\[\begin{array}{l} t_1 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;t1 \leq -2.9228862174362337 \cdot 10^{-6}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq 1.05145900724471 \cdot 10^{-159}:\\ \;\;\;\;\frac{-v}{u \cdot \frac{u}{t1}}\\ \mathbf{elif}\;t1 \leq 8299223.135617268:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq 1.3447979138297305 \cdot 10^{+35}:\\ \;\;\;\;\frac{-v}{\frac{u}{\frac{t1}{u}}}\\ \mathbf{else}:\\ \;\;\;\;\frac{-v}{t1}\\ \end{array} \]

Alternative 8
Error	21.9
Cost	712

\[\begin{array}{l} t_1 := \frac{\frac{v \cdot t1}{u}}{u}\\ \mathbf{if}\;u \leq -4.923813283382424 \cdot 10^{+131}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 2.8492238845344924 \cdot 10^{+66}:\\ \;\;\;\;\frac{-v}{t1 + u}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 9
Error	21.8
Cost	712

\[\begin{array}{l} t_1 := \frac{v}{\frac{u}{\frac{t1}{u}}}\\ \mathbf{if}\;u \leq -4.923813283382424 \cdot 10^{+131}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 2.8492238845344924 \cdot 10^{+66}:\\ \;\;\;\;\frac{-v}{t1 + u}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 10
Error	21.0
Cost	712

\[\begin{array}{l} t_1 := t1 \cdot \frac{v}{u \cdot u}\\ \mathbf{if}\;u \leq -8.20528684512547 \cdot 10^{+67}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 2.8492238845344924 \cdot 10^{+66}:\\ \;\;\;\;\frac{-v}{t1 + u}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 11
Error	28.0
Cost	584

\[\begin{array}{l} t_1 := \frac{v}{\frac{u}{-0.5}}\\ \mathbf{if}\;u \leq -3.9478195520892497 \cdot 10^{+180}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 8.166936782199208 \cdot 10^{+173}:\\ \;\;\;\;\frac{-v}{t1}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 12
Error	28.0
Cost	520

\[\begin{array}{l} t_1 := \frac{-v}{u}\\ \mathbf{if}\;u \leq -3.9478195520892497 \cdot 10^{+180}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 8.166936782199208 \cdot 10^{+173}:\\ \;\;\;\;\frac{-v}{t1}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 13
Error	25.6
Cost	384

\[\frac{-v}{t1 + u} \]

Alternative 14
Error	54.0
Cost	256

\[\frac{-v}{u} \]

Reproduce

herbie shell --seed 2022300 
(FPCore (u v t1)
  :name "Rosa's DopplerBench"
  :precision binary64
  (/ (* (- t1) v) (* (+ t1 u) (+ t1 u))))