\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 \left(1 + \frac{1 \cdot \frac{rand \cdot {\left(\sqrt[3]{1}\right)}^{3}}{\sqrt{9}}}{\sqrt{a - \frac{1}{3}}}\right)double f(double a, double rand) {
double r84179 = a;
double r84180 = 1.0;
double r84181 = 3.0;
double r84182 = r84180 / r84181;
double r84183 = r84179 - r84182;
double r84184 = 9.0;
double r84185 = r84184 * r84183;
double r84186 = sqrt(r84185);
double r84187 = r84180 / r84186;
double r84188 = rand;
double r84189 = r84187 * r84188;
double r84190 = r84180 + r84189;
double r84191 = r84183 * r84190;
return r84191;
}
double f(double a, double rand) {
double r84192 = a;
double r84193 = 1.0;
double r84194 = 3.0;
double r84195 = r84193 / r84194;
double r84196 = r84192 - r84195;
double r84197 = 1.0;
double r84198 = rand;
double r84199 = cbrt(r84193);
double r84200 = 3.0;
double r84201 = pow(r84199, r84200);
double r84202 = r84198 * r84201;
double r84203 = 9.0;
double r84204 = sqrt(r84203);
double r84205 = r84202 / r84204;
double r84206 = r84197 * r84205;
double r84207 = sqrt(r84196);
double r84208 = r84206 / r84207;
double r84209 = r84193 + r84208;
double r84210 = r84196 * r84209;
return r84210;
}



Bits error versus a



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