\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)a - \left(0.3333333333333333 - \left(a - 0.3333333333333333\right) \cdot \frac{rand}{\sqrt{-3 + a \cdot 9}}\right)(FPCore (a rand) :precision binary64 (* (- a (/ 1.0 3.0)) (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 (- a (/ 1.0 3.0))))) rand))))
(FPCore (a rand) :precision binary64 (- a (- 0.3333333333333333 (* (- a 0.3333333333333333) (/ rand (sqrt (+ -3.0 (* a 9.0))))))))
double code(double a, double rand) {
return (a - (1.0 / 3.0)) * (1.0 + ((1.0 / sqrt(9.0 * (a - (1.0 / 3.0)))) * rand));
}
double code(double a, double rand) {
return a - (0.3333333333333333 - ((a - 0.3333333333333333) * (rand / sqrt(-3.0 + (a * 9.0)))));
}



Bits error versus a



Bits error versus rand
Results
Initial program 0.1
Simplified0.1
rmApplied distribute-rgt-in_binary64_13920.1
Simplified0.1
Simplified0.1
rmApplied associate-+l-_binary64_13770.1
Final simplification0.1
herbie shell --seed 2021045
(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))))