\left(a - \frac{1}{3}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1}{3}\right)}} \cdot rand\right)\left(\frac{\frac{1 \cdot rand}{\sqrt{9}}}{\sqrt{a - \frac{1}{3}}} + 1\right) \cdot \left(a - \frac{1}{3}\right)double f(double a, double rand) {
double r129806 = a;
double r129807 = 1.0;
double r129808 = 3.0;
double r129809 = r129807 / r129808;
double r129810 = r129806 - r129809;
double r129811 = 9.0;
double r129812 = r129811 * r129810;
double r129813 = sqrt(r129812);
double r129814 = r129807 / r129813;
double r129815 = rand;
double r129816 = r129814 * r129815;
double r129817 = r129807 + r129816;
double r129818 = r129810 * r129817;
return r129818;
}
double f(double a, double rand) {
double r129819 = 1.0;
double r129820 = rand;
double r129821 = r129819 * r129820;
double r129822 = 9.0;
double r129823 = sqrt(r129822);
double r129824 = r129821 / r129823;
double r129825 = a;
double r129826 = 3.0;
double r129827 = r129819 / r129826;
double r129828 = r129825 - r129827;
double r129829 = sqrt(r129828);
double r129830 = r129824 / r129829;
double r129831 = r129830 + r129819;
double r129832 = r129831 * r129828;
return r129832;
}



Bits error versus a



Bits error versus rand
Results
Initial program 0.1
Simplified0.1
rmApplied sqrt-prod0.1
Applied *-un-lft-identity0.1
Applied times-frac0.2
rmApplied fma-udef0.2
Simplified0.1
rmApplied associate-*l/0.1
Applied associate-/l/0.1
rmApplied associate-/r*0.1
Final simplification0.1
herbie shell --seed 2020043 +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))))