Rosa's DopplerBench

Average Error: 28.41% → 2.45%

Time: 12.5s

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 28.41

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

2. Simplified 2.45

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

   [Start] 28.41	\[ \frac{\left(-t1\right) \cdot v}{\left(t1 + u\right) \cdot \left(t1 + u\right)} \]
   *-commutative [=>] 28.41	\[ \frac{\color{blue}{v \cdot \left(-t1\right)}}{\left(t1 + u\right) \cdot \left(t1 + u\right)} \]
   associate-/l* [=>] 24.95	\[ \color{blue}{\frac{v}{\frac{\left(t1 + u\right) \cdot \left(t1 + u\right)}{-t1}}} \]
   associate-*r/ [<=] 5.6	\[ \frac{v}{\color{blue}{\left(t1 + u\right) \cdot \frac{t1 + u}{-t1}}} \]
   associate-/r* [=>] 2.46	\[ \color{blue}{\frac{\frac{v}{t1 + u}}{\frac{t1 + u}{-t1}}} \]
   neg-mul-1 [=>] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{t1 + u}{\color{blue}{-1 \cdot t1}}} \]
   associate-/l/ [<=] 2.46	\[ \frac{\frac{v}{t1 + u}}{\color{blue}{\frac{\frac{t1 + u}{t1}}{-1}}} \]
   metadata-eval [<=] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\color{blue}{0 - 1}}} \]
   mul0-lft [<=] 14.17	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\color{blue}{0 \cdot \frac{t1 + u}{t1}} - 1}} \]
   associate-*r/ [=>] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\color{blue}{\frac{0 \cdot \left(t1 + u\right)}{t1}} - 1}} \]
   mul0-lft [=>] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\frac{\color{blue}{0}}{t1} - 1}} \]
   *-inverses [<=] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\frac{0}{t1} - \color{blue}{\frac{t1}{t1}}}} \]
   div-sub [<=] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\color{blue}{\frac{0 - t1}{t1}}}} \]
   neg-sub0 [<=] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\frac{\color{blue}{-t1}}{t1}}} \]
   neg-mul-1 [=>] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\frac{\color{blue}{-1 \cdot t1}}{t1}}} \]
   *-commutative [=>] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\frac{\color{blue}{t1 \cdot -1}}{t1}}} \]
   associate-/l* [=>] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 + u}{t1}}{\color{blue}{\frac{t1}{\frac{t1}{-1}}}}} \]
   associate-/l* [<=] 2.46	\[ \frac{\frac{v}{t1 + u}}{\color{blue}{\frac{\frac{t1 + u}{t1} \cdot \frac{t1}{-1}}{t1}}} \]
   *-commutative [=>] 2.46	\[ \frac{\frac{v}{t1 + u}}{\frac{\color{blue}{\frac{t1}{-1} \cdot \frac{t1 + u}{t1}}}{t1}} \]
   times-frac [<=] 25.33	\[ \frac{\frac{v}{t1 + u}}{\frac{\color{blue}{\frac{t1 \cdot \left(t1 + u\right)}{-1 \cdot t1}}}{t1}} \]
   neg-mul-1 [<=] 25.33	\[ \frac{\frac{v}{t1 + u}}{\frac{\frac{t1 \cdot \left(t1 + u\right)}{\color{blue}{-t1}}}{t1}} \]
   associate-/l* [=>] 2.48	\[ \frac{\frac{v}{t1 + u}}{\frac{\color{blue}{\frac{t1}{\frac{-t1}{t1 + u}}}}{t1}} \]

3. Final simplification 2.45

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

Alternatives

Alternative 1
Error	23.57%
Cost	1168

\[\begin{array}{l} t_1 := -1 - \frac{u}{t1}\\ t_2 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;t1 \leq -5.4 \cdot 10^{+28}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;t1 \leq -8.5 \cdot 10^{-8}:\\ \;\;\;\;\frac{\frac{v}{u}}{t_1}\\ \mathbf{elif}\;t1 \leq -1.04 \cdot 10^{-140}:\\ \;\;\;\;\frac{\frac{v}{t1}}{t_1}\\ \mathbf{elif}\;t1 \leq 3.2 \cdot 10^{-72}:\\ \;\;\;\;\frac{-v}{u \cdot \left(\frac{u}{t1} + 2\right)}\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \]

Alternative 2
Error	23.08%
Cost	1040

\[\begin{array}{l} t_1 := \frac{-v}{t1 + u}\\ \mathbf{if}\;t1 \leq -2.8 \cdot 10^{+27}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq -1.16 \cdot 10^{-7}:\\ \;\;\;\;\frac{\frac{-v}{u}}{\frac{u}{t1}}\\ \mathbf{elif}\;t1 \leq -7 \cdot 10^{-23}:\\ \;\;\;\;\frac{-v}{t1}\\ \mathbf{elif}\;t1 \leq 1.9 \cdot 10^{-65}:\\ \;\;\;\;\frac{-v}{u \cdot \frac{u}{t1}}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 3
Error	22.9%
Cost	1040

\[\begin{array}{l} t_1 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;t1 \leq -7.6 \cdot 10^{+29}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq -6.8 \cdot 10^{-7}:\\ \;\;\;\;\frac{\frac{-v}{u}}{\frac{u}{t1}}\\ \mathbf{elif}\;t1 \leq -1.9 \cdot 10^{-23}:\\ \;\;\;\;\frac{-v}{t1}\\ \mathbf{elif}\;t1 \leq 8.2 \cdot 10^{-70}:\\ \;\;\;\;\frac{-v}{u \cdot \frac{u}{t1}}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 4
Error	23.81%
Cost	1040

\[\begin{array}{l} t_1 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;t1 \leq -1.08 \cdot 10^{+33}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;t1 \leq -1.32 \cdot 10^{-5}:\\ \;\;\;\;\frac{\frac{-v}{u}}{\frac{u}{t1}}\\ \mathbf{elif}\;t1 \leq -7.2 \cdot 10^{-141}:\\ \;\;\;\;\frac{\frac{v}{t1}}{-1 - \frac{u}{t1}}\\ \mathbf{elif}\;t1 \leq 7.2 \cdot 10^{-71}:\\ \;\;\;\;\frac{-v}{u \cdot \frac{u}{t1}}\\ \mathbf{else}:\\ \;\;\;\;t_1\\ \end{array} \]

Alternative 5
Error	23.94%
Cost	1040

\[\begin{array}{l} t_1 := -1 - \frac{u}{t1}\\ t_2 := \frac{-v}{t1 + u \cdot 2}\\ \mathbf{if}\;t1 \leq -8 \cdot 10^{+34}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;t1 \leq -8.8 \cdot 10^{-7}:\\ \;\;\;\;\frac{\frac{v}{u}}{t_1}\\ \mathbf{elif}\;t1 \leq -1.04 \cdot 10^{-140}:\\ \;\;\;\;\frac{\frac{v}{t1}}{t_1}\\ \mathbf{elif}\;t1 \leq 1.55 \cdot 10^{-76}:\\ \;\;\;\;\frac{-v}{u \cdot \frac{u}{t1}}\\ \mathbf{else}:\\ \;\;\;\;t_2\\ \end{array} \]

Alternative 6
Error	33.69%
Cost	978

\[\begin{array}{l} \mathbf{if}\;u \leq -5.8 \cdot 10^{+164} \lor \neg \left(u \leq -2.4 \cdot 10^{+122} \lor \neg \left(u \leq -2.9 \cdot 10^{+69}\right) \land u \leq 5.5 \cdot 10^{+170}\right):\\ \;\;\;\;v \cdot \frac{\frac{t1}{u}}{u}\\ \mathbf{else}:\\ \;\;\;\;\frac{-v}{t1 + u}\\ \end{array} \]

Alternative 7
Error	33.68%
Cost	976

\[\begin{array}{l} t_1 := v \cdot \frac{\frac{t1}{u}}{u}\\ t_2 := \frac{-v}{t1 + u}\\ \mathbf{if}\;u \leq -5.5 \cdot 10^{+166}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq -1.52 \cdot 10^{+122}:\\ \;\;\;\;t_2\\ \mathbf{elif}\;u \leq -7.5 \cdot 10^{+65}:\\ \;\;\;\;t_1\\ \mathbf{elif}\;u \leq 1.65 \cdot 10^{+146}:\\ \;\;\;\;t_2\\ \mathbf{else}:\\ \;\;\;\;\frac{v \cdot t1}{u \cdot u}\\ \end{array} \]

Alternative 8
Error	22.17%
Cost	777

\[\begin{array}{l} \mathbf{if}\;t1 \leq -1.1 \cdot 10^{+30} \lor \neg \left(t1 \leq 5.2 \cdot 10^{-69}\right):\\ \;\;\;\;\frac{-v}{t1 + u}\\ \mathbf{else}:\\ \;\;\;\;\frac{t1}{u} \cdot \frac{-v}{u}\\ \end{array} \]

Alternative 9
Error	22.07%
Cost	777

\[\begin{array}{l} \mathbf{if}\;t1 \leq -2.3 \cdot 10^{+27} \lor \neg \left(t1 \leq 4.7 \cdot 10^{-66}\right):\\ \;\;\;\;\frac{-v}{t1 + u}\\ \mathbf{else}:\\ \;\;\;\;\frac{\frac{-v}{\frac{u}{t1}}}{u}\\ \end{array} \]

Alternative 10
Error	43.01%
Cost	520

\[\begin{array}{l} \mathbf{if}\;u \leq -1.5 \cdot 10^{+167}:\\ \;\;\;\;\frac{v}{u}\\ \mathbf{elif}\;u \leq 5 \cdot 10^{+175}:\\ \;\;\;\;\frac{-v}{t1}\\ \mathbf{else}:\\ \;\;\;\;\frac{v}{u}\\ \end{array} \]

Alternative 11
Error	42.94%
Cost	520

\[\begin{array}{l} \mathbf{if}\;u \leq -7.8 \cdot 10^{+164}:\\ \;\;\;\;\frac{v}{\frac{u}{-0.5}}\\ \mathbf{elif}\;u \leq 1.25 \cdot 10^{+174}:\\ \;\;\;\;\frac{-v}{t1}\\ \mathbf{else}:\\ \;\;\;\;\frac{v}{u}\\ \end{array} \]

Alternative 12
Error	78.35%
Cost	456

\[\begin{array}{l} \mathbf{if}\;u \leq -2.9 \cdot 10^{+122}:\\ \;\;\;\;\frac{v}{u}\\ \mathbf{elif}\;u \leq 4.5 \cdot 10^{+141}:\\ \;\;\;\;\frac{v}{t1}\\ \mathbf{else}:\\ \;\;\;\;\frac{v}{u}\\ \end{array} \]

Alternative 13
Error	39.43%
Cost	384

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

Alternative 14
Error	85.36%
Cost	192

\[\frac{v}{t1} \]

Reproduce

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