
(FPCore (a rand) :precision binary64 (let* ((t_0 (- a (/ 1.0 3.0)))) (* t_0 (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 t_0))) rand)))))
double code(double a, double rand) {
double t_0 = a - (1.0 / 3.0);
return t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand));
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
real(8) :: t_0
t_0 = a - (1.0d0 / 3.0d0)
code = t_0 * (1.0d0 + ((1.0d0 / sqrt((9.0d0 * t_0))) * rand))
end function
public static double code(double a, double rand) {
double t_0 = a - (1.0 / 3.0);
return t_0 * (1.0 + ((1.0 / Math.sqrt((9.0 * t_0))) * rand));
}
def code(a, rand): t_0 = a - (1.0 / 3.0) return t_0 * (1.0 + ((1.0 / math.sqrt((9.0 * t_0))) * rand))
function code(a, rand) t_0 = Float64(a - Float64(1.0 / 3.0)) return Float64(t_0 * Float64(1.0 + Float64(Float64(1.0 / sqrt(Float64(9.0 * t_0))) * rand))) end
function tmp = code(a, rand) t_0 = a - (1.0 / 3.0); tmp = t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand)); end
code[a_, rand_] := Block[{t$95$0 = N[(a - N[(1.0 / 3.0), $MachinePrecision]), $MachinePrecision]}, N[(t$95$0 * N[(1.0 + N[(N[(1.0 / N[Sqrt[N[(9.0 * t$95$0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * rand), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := a - \frac{1}{3}\\
t\_0 \cdot \left(1 + \frac{1}{\sqrt{9 \cdot t\_0}} \cdot rand\right)
\end{array}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 8 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a rand) :precision binary64 (let* ((t_0 (- a (/ 1.0 3.0)))) (* t_0 (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 t_0))) rand)))))
double code(double a, double rand) {
double t_0 = a - (1.0 / 3.0);
return t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand));
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
real(8) :: t_0
t_0 = a - (1.0d0 / 3.0d0)
code = t_0 * (1.0d0 + ((1.0d0 / sqrt((9.0d0 * t_0))) * rand))
end function
public static double code(double a, double rand) {
double t_0 = a - (1.0 / 3.0);
return t_0 * (1.0 + ((1.0 / Math.sqrt((9.0 * t_0))) * rand));
}
def code(a, rand): t_0 = a - (1.0 / 3.0) return t_0 * (1.0 + ((1.0 / math.sqrt((9.0 * t_0))) * rand))
function code(a, rand) t_0 = Float64(a - Float64(1.0 / 3.0)) return Float64(t_0 * Float64(1.0 + Float64(Float64(1.0 / sqrt(Float64(9.0 * t_0))) * rand))) end
function tmp = code(a, rand) t_0 = a - (1.0 / 3.0); tmp = t_0 * (1.0 + ((1.0 / sqrt((9.0 * t_0))) * rand)); end
code[a_, rand_] := Block[{t$95$0 = N[(a - N[(1.0 / 3.0), $MachinePrecision]), $MachinePrecision]}, N[(t$95$0 * N[(1.0 + N[(N[(1.0 / N[Sqrt[N[(9.0 * t$95$0), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * rand), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := a - \frac{1}{3}\\
t\_0 \cdot \left(1 + \frac{1}{\sqrt{9 \cdot t\_0}} \cdot rand\right)
\end{array}
\end{array}
(FPCore (a rand) :precision binary64 (- (+ a (* 0.3333333333333333 (* rand (sqrt (- a 0.3333333333333333))))) 0.3333333333333333))
double code(double a, double rand) {
return (a + (0.3333333333333333 * (rand * sqrt((a - 0.3333333333333333))))) - 0.3333333333333333;
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
code = (a + (0.3333333333333333d0 * (rand * sqrt((a - 0.3333333333333333d0))))) - 0.3333333333333333d0
end function
public static double code(double a, double rand) {
return (a + (0.3333333333333333 * (rand * Math.sqrt((a - 0.3333333333333333))))) - 0.3333333333333333;
}
def code(a, rand): return (a + (0.3333333333333333 * (rand * math.sqrt((a - 0.3333333333333333))))) - 0.3333333333333333
function code(a, rand) return Float64(Float64(a + Float64(0.3333333333333333 * Float64(rand * sqrt(Float64(a - 0.3333333333333333))))) - 0.3333333333333333) end
function tmp = code(a, rand) tmp = (a + (0.3333333333333333 * (rand * sqrt((a - 0.3333333333333333))))) - 0.3333333333333333; end
code[a_, rand_] := N[(N[(a + N[(0.3333333333333333 * N[(rand * N[Sqrt[N[(a - 0.3333333333333333), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] - 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
\left(a + 0.3333333333333333 \cdot \left(rand \cdot \sqrt{a - 0.3333333333333333}\right)\right) - 0.3333333333333333
\end{array}
Initial program 99.8%
*-lft-identity99.8%
*-lft-identity99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
*-commutative99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in rand around 0 99.8%
(FPCore (a rand)
:precision binary64
(let* ((t_0 (* 0.3333333333333333 (* rand (sqrt (- a 0.3333333333333333))))))
(if (<= rand -8.5e+87)
t_0
(if (<= rand 4.4e+54) (- a 0.3333333333333333) t_0))))
double code(double a, double rand) {
double t_0 = 0.3333333333333333 * (rand * sqrt((a - 0.3333333333333333)));
double tmp;
if (rand <= -8.5e+87) {
tmp = t_0;
} else if (rand <= 4.4e+54) {
tmp = a - 0.3333333333333333;
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
real(8) :: t_0
real(8) :: tmp
t_0 = 0.3333333333333333d0 * (rand * sqrt((a - 0.3333333333333333d0)))
if (rand <= (-8.5d+87)) then
tmp = t_0
else if (rand <= 4.4d+54) then
tmp = a - 0.3333333333333333d0
else
tmp = t_0
end if
code = tmp
end function
public static double code(double a, double rand) {
double t_0 = 0.3333333333333333 * (rand * Math.sqrt((a - 0.3333333333333333)));
double tmp;
if (rand <= -8.5e+87) {
tmp = t_0;
} else if (rand <= 4.4e+54) {
tmp = a - 0.3333333333333333;
} else {
tmp = t_0;
}
return tmp;
}
def code(a, rand): t_0 = 0.3333333333333333 * (rand * math.sqrt((a - 0.3333333333333333))) tmp = 0 if rand <= -8.5e+87: tmp = t_0 elif rand <= 4.4e+54: tmp = a - 0.3333333333333333 else: tmp = t_0 return tmp
function code(a, rand) t_0 = Float64(0.3333333333333333 * Float64(rand * sqrt(Float64(a - 0.3333333333333333)))) tmp = 0.0 if (rand <= -8.5e+87) tmp = t_0; elseif (rand <= 4.4e+54) tmp = Float64(a - 0.3333333333333333); else tmp = t_0; end return tmp end
function tmp_2 = code(a, rand) t_0 = 0.3333333333333333 * (rand * sqrt((a - 0.3333333333333333))); tmp = 0.0; if (rand <= -8.5e+87) tmp = t_0; elseif (rand <= 4.4e+54) tmp = a - 0.3333333333333333; else tmp = t_0; end tmp_2 = tmp; end
code[a_, rand_] := Block[{t$95$0 = N[(0.3333333333333333 * N[(rand * N[Sqrt[N[(a - 0.3333333333333333), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[rand, -8.5e+87], t$95$0, If[LessEqual[rand, 4.4e+54], N[(a - 0.3333333333333333), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 0.3333333333333333 \cdot \left(rand \cdot \sqrt{a - 0.3333333333333333}\right)\\
\mathbf{if}\;rand \leq -8.5 \cdot 10^{+87}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;rand \leq 4.4 \cdot 10^{+54}:\\
\;\;\;\;a - 0.3333333333333333\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if rand < -8.5000000000000001e87 or 4.3999999999999998e54 < rand Initial program 99.5%
*-lft-identity99.5%
*-lft-identity99.5%
sub-neg99.5%
metadata-eval99.5%
metadata-eval99.5%
*-commutative99.5%
sub-neg99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in rand around inf 89.4%
if -8.5000000000000001e87 < rand < 4.3999999999999998e54Initial program 99.9%
*-lft-identity99.9%
*-lft-identity99.9%
sub-neg99.9%
metadata-eval99.9%
metadata-eval99.9%
*-commutative99.9%
sub-neg99.9%
metadata-eval99.9%
metadata-eval99.9%
Simplified99.9%
Taylor expanded in rand around 0 95.6%
(FPCore (a rand)
:precision binary64
(let* ((t_0 (* 0.3333333333333333 (* (sqrt a) rand))))
(if (<= rand -3.6e+88)
t_0
(if (<= rand 3e+54) (- a 0.3333333333333333) t_0))))
double code(double a, double rand) {
double t_0 = 0.3333333333333333 * (sqrt(a) * rand);
double tmp;
if (rand <= -3.6e+88) {
tmp = t_0;
} else if (rand <= 3e+54) {
tmp = a - 0.3333333333333333;
} else {
tmp = t_0;
}
return tmp;
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
real(8) :: t_0
real(8) :: tmp
t_0 = 0.3333333333333333d0 * (sqrt(a) * rand)
if (rand <= (-3.6d+88)) then
tmp = t_0
else if (rand <= 3d+54) then
tmp = a - 0.3333333333333333d0
else
tmp = t_0
end if
code = tmp
end function
public static double code(double a, double rand) {
double t_0 = 0.3333333333333333 * (Math.sqrt(a) * rand);
double tmp;
if (rand <= -3.6e+88) {
tmp = t_0;
} else if (rand <= 3e+54) {
tmp = a - 0.3333333333333333;
} else {
tmp = t_0;
}
return tmp;
}
def code(a, rand): t_0 = 0.3333333333333333 * (math.sqrt(a) * rand) tmp = 0 if rand <= -3.6e+88: tmp = t_0 elif rand <= 3e+54: tmp = a - 0.3333333333333333 else: tmp = t_0 return tmp
function code(a, rand) t_0 = Float64(0.3333333333333333 * Float64(sqrt(a) * rand)) tmp = 0.0 if (rand <= -3.6e+88) tmp = t_0; elseif (rand <= 3e+54) tmp = Float64(a - 0.3333333333333333); else tmp = t_0; end return tmp end
function tmp_2 = code(a, rand) t_0 = 0.3333333333333333 * (sqrt(a) * rand); tmp = 0.0; if (rand <= -3.6e+88) tmp = t_0; elseif (rand <= 3e+54) tmp = a - 0.3333333333333333; else tmp = t_0; end tmp_2 = tmp; end
code[a_, rand_] := Block[{t$95$0 = N[(0.3333333333333333 * N[(N[Sqrt[a], $MachinePrecision] * rand), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[rand, -3.6e+88], t$95$0, If[LessEqual[rand, 3e+54], N[(a - 0.3333333333333333), $MachinePrecision], t$95$0]]]
\begin{array}{l}
\\
\begin{array}{l}
t_0 := 0.3333333333333333 \cdot \left(\sqrt{a} \cdot rand\right)\\
\mathbf{if}\;rand \leq -3.6 \cdot 10^{+88}:\\
\;\;\;\;t\_0\\
\mathbf{elif}\;rand \leq 3 \cdot 10^{+54}:\\
\;\;\;\;a - 0.3333333333333333\\
\mathbf{else}:\\
\;\;\;\;t\_0\\
\end{array}
\end{array}
if rand < -3.6000000000000002e88 or 2.9999999999999999e54 < rand Initial program 99.5%
*-lft-identity99.5%
*-lft-identity99.5%
sub-neg99.5%
metadata-eval99.5%
metadata-eval99.5%
*-commutative99.5%
sub-neg99.5%
metadata-eval99.5%
metadata-eval99.5%
Simplified99.5%
Taylor expanded in a around inf 96.5%
Taylor expanded in a around 0 86.5%
if -3.6000000000000002e88 < rand < 2.9999999999999999e54Initial program 99.9%
*-lft-identity99.9%
*-lft-identity99.9%
sub-neg99.9%
metadata-eval99.9%
metadata-eval99.9%
*-commutative99.9%
sub-neg99.9%
metadata-eval99.9%
metadata-eval99.9%
Simplified99.9%
Taylor expanded in rand around 0 95.6%
(FPCore (a rand) :precision binary64 (- (+ (* (* 0.3333333333333333 rand) (sqrt a)) a) 0.3333333333333333))
double code(double a, double rand) {
return (((0.3333333333333333 * rand) * sqrt(a)) + a) - 0.3333333333333333;
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
code = (((0.3333333333333333d0 * rand) * sqrt(a)) + a) - 0.3333333333333333d0
end function
public static double code(double a, double rand) {
return (((0.3333333333333333 * rand) * Math.sqrt(a)) + a) - 0.3333333333333333;
}
def code(a, rand): return (((0.3333333333333333 * rand) * math.sqrt(a)) + a) - 0.3333333333333333
function code(a, rand) return Float64(Float64(Float64(Float64(0.3333333333333333 * rand) * sqrt(a)) + a) - 0.3333333333333333) end
function tmp = code(a, rand) tmp = (((0.3333333333333333 * rand) * sqrt(a)) + a) - 0.3333333333333333; end
code[a_, rand_] := N[(N[(N[(N[(0.3333333333333333 * rand), $MachinePrecision] * N[Sqrt[a], $MachinePrecision]), $MachinePrecision] + a), $MachinePrecision] - 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
\left(\left(0.3333333333333333 \cdot rand\right) \cdot \sqrt{a} + a\right) - 0.3333333333333333
\end{array}
Initial program 99.8%
*-lft-identity99.8%
*-lft-identity99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
*-commutative99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in rand around 0 99.8%
+-commutative99.8%
associate-*r*99.8%
fma-define99.8%
sub-neg99.8%
metadata-eval99.8%
Applied egg-rr99.8%
fma-undefine99.8%
Applied egg-rr99.8%
Taylor expanded in a around inf 98.8%
(FPCore (a rand) :precision binary64 (+ a (* 0.3333333333333333 (* (sqrt a) rand))))
double code(double a, double rand) {
return a + (0.3333333333333333 * (sqrt(a) * rand));
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
code = a + (0.3333333333333333d0 * (sqrt(a) * rand))
end function
public static double code(double a, double rand) {
return a + (0.3333333333333333 * (Math.sqrt(a) * rand));
}
def code(a, rand): return a + (0.3333333333333333 * (math.sqrt(a) * rand))
function code(a, rand) return Float64(a + Float64(0.3333333333333333 * Float64(sqrt(a) * rand))) end
function tmp = code(a, rand) tmp = a + (0.3333333333333333 * (sqrt(a) * rand)); end
code[a_, rand_] := N[(a + N[(0.3333333333333333 * N[(N[Sqrt[a], $MachinePrecision] * rand), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a + 0.3333333333333333 \cdot \left(\sqrt{a} \cdot rand\right)
\end{array}
Initial program 99.8%
*-lft-identity99.8%
*-lft-identity99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
*-commutative99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in a around inf 97.4%
Taylor expanded in a around 0 97.5%
(FPCore (a rand) :precision binary64 (- a 0.3333333333333333))
double code(double a, double rand) {
return a - 0.3333333333333333;
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
code = a - 0.3333333333333333d0
end function
public static double code(double a, double rand) {
return a - 0.3333333333333333;
}
def code(a, rand): return a - 0.3333333333333333
function code(a, rand) return Float64(a - 0.3333333333333333) end
function tmp = code(a, rand) tmp = a - 0.3333333333333333; end
code[a_, rand_] := N[(a - 0.3333333333333333), $MachinePrecision]
\begin{array}{l}
\\
a - 0.3333333333333333
\end{array}
Initial program 99.8%
*-lft-identity99.8%
*-lft-identity99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
*-commutative99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in rand around 0 64.5%
(FPCore (a rand) :precision binary64 a)
double code(double a, double rand) {
return a;
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
code = a
end function
public static double code(double a, double rand) {
return a;
}
def code(a, rand): return a
function code(a, rand) return a end
function tmp = code(a, rand) tmp = a; end
code[a_, rand_] := a
\begin{array}{l}
\\
a
\end{array}
Initial program 99.8%
*-lft-identity99.8%
*-lft-identity99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
*-commutative99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in rand around 0 64.5%
Taylor expanded in a around inf 63.2%
(FPCore (a rand) :precision binary64 -0.3333333333333333)
double code(double a, double rand) {
return -0.3333333333333333;
}
real(8) function code(a, rand)
real(8), intent (in) :: a
real(8), intent (in) :: rand
code = -0.3333333333333333d0
end function
public static double code(double a, double rand) {
return -0.3333333333333333;
}
def code(a, rand): return -0.3333333333333333
function code(a, rand) return -0.3333333333333333 end
function tmp = code(a, rand) tmp = -0.3333333333333333; end
code[a_, rand_] := -0.3333333333333333
\begin{array}{l}
\\
-0.3333333333333333
\end{array}
Initial program 99.8%
*-lft-identity99.8%
*-lft-identity99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
*-commutative99.8%
sub-neg99.8%
metadata-eval99.8%
metadata-eval99.8%
Simplified99.8%
Taylor expanded in rand around 0 64.5%
Taylor expanded in a around 0 1.6%
herbie shell --seed 2024116 -o generate:simplify
(FPCore (a rand)
:name "Octave 3.8, oct_fill_randg"
:precision binary64
(* (- a (/ 1.0 3.0)) (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 (- a (/ 1.0 3.0))))) rand))))