\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)1 \cdot \left(a - \frac{1}{3}\right) + \frac{1 \cdot rand}{\sqrt{9}} \cdot \sqrt{a - \frac{1}{3}}double f(double a, double rand) {
double r70735 = a;
double r70736 = 1.0;
double r70737 = 3.0;
double r70738 = r70736 / r70737;
double r70739 = r70735 - r70738;
double r70740 = 9.0;
double r70741 = r70740 * r70739;
double r70742 = sqrt(r70741);
double r70743 = r70736 / r70742;
double r70744 = rand;
double r70745 = r70743 * r70744;
double r70746 = r70736 + r70745;
double r70747 = r70739 * r70746;
return r70747;
}
double f(double a, double rand) {
double r70748 = 1.0;
double r70749 = a;
double r70750 = 3.0;
double r70751 = r70748 / r70750;
double r70752 = r70749 - r70751;
double r70753 = r70748 * r70752;
double r70754 = rand;
double r70755 = r70748 * r70754;
double r70756 = 9.0;
double r70757 = sqrt(r70756);
double r70758 = r70755 / r70757;
double r70759 = sqrt(r70752);
double r70760 = r70758 * r70759;
double r70761 = r70753 + r70760;
return r70761;
}



Bits error versus a



Bits error versus rand
Results
Initial program 0.1
rmApplied sqrt-prod0.1
Applied *-un-lft-identity0.1
Applied times-frac0.2
Applied associate-*l*0.2
Simplified0.1
rmApplied frac-times0.1
Simplified0.1
Simplified0.1
rmApplied distribute-lft-in0.1
Simplified0.1
rmApplied add-sqr-sqrt0.1
Applied associate-/l*0.1
Simplified0.1
Final simplification0.1
herbie shell --seed 2019179
(FPCore (a rand)
:name "Octave 3.8, oct_fill_randg"
(* (- a (/ 1.0 3.0)) (+ 1.0 (* (/ 1.0 (sqrt (* 9.0 (- a (/ 1.0 3.0))))) rand))))