\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)\left(a - \frac{1}{3}\right) \cdot \mathsf{fma}\left(\frac{\frac{1}{\sqrt{9}}}{\sqrt{a - \frac{1}{3}}}, rand, 1\right)double f(double a, double rand) {
double r195326 = a;
double r195327 = 1.0;
double r195328 = 3.0;
double r195329 = r195327 / r195328;
double r195330 = r195326 - r195329;
double r195331 = 9.0;
double r195332 = r195331 * r195330;
double r195333 = sqrt(r195332);
double r195334 = r195327 / r195333;
double r195335 = rand;
double r195336 = r195334 * r195335;
double r195337 = r195327 + r195336;
double r195338 = r195330 * r195337;
return r195338;
}
double f(double a, double rand) {
double r195339 = a;
double r195340 = 1.0;
double r195341 = 3.0;
double r195342 = r195340 / r195341;
double r195343 = r195339 - r195342;
double r195344 = 9.0;
double r195345 = sqrt(r195344);
double r195346 = r195340 / r195345;
double r195347 = sqrt(r195343);
double r195348 = r195346 / r195347;
double r195349 = rand;
double r195350 = fma(r195348, r195349, r195340);
double r195351 = r195343 * r195350;
return r195351;
}



Bits error versus a



Bits error versus rand
Initial program 0.1
Simplified0.1
rmApplied *-un-lft-identity0.1
Applied associate-*l*0.1
Simplified0.1
rmApplied sqrt-prod0.2
Applied associate-/r*0.2
Final simplification0.2
herbie shell --seed 2020042 +o rules:numerics
(FPCore (a rand)
:name "Octave 3.8, oct_fill_randg"
:precision binary64
(* (- a (/ 1 3)) (+ 1 (* (/ 1 (sqrt (* 9 (- a (/ 1 3))))) rand))))