double f(double a, double rand) {
double r1607620 = a;
double r1607621 = 1.0;
double r1607622 = 3.0;
double r1607623 = r1607621 / r1607622;
double r1607624 = r1607620 - r1607623;
double r1607625 = 1.0;
double r1607626 = 9.0;
double r1607627 = r1607626 * r1607624;
double r1607628 = sqrt(r1607627);
double r1607629 = r1607625 / r1607628;
double r1607630 = rand;
double r1607631 = r1607629 * r1607630;
double r1607632 = r1607625 + r1607631;
double r1607633 = r1607624 * r1607632;
return r1607633;
}
double f(double a, double rand) {
double r1607634 = a;
double r1607635 = 1.0;
double r1607636 = 3.0;
double r1607637 = r1607635 / r1607636;
double r1607638 = r1607634 - r1607637;
double r1607639 = 1.0;
double r1607640 = r1607638 * r1607639;
double r1607641 = 9.0;
double r1607642 = r1607638 * r1607641;
double r1607643 = sqrt(r1607642);
double r1607644 = r1607638 / r1607643;
double r1607645 = rand;
double r1607646 = r1607639 * r1607645;
double r1607647 = r1607644 * r1607646;
double r1607648 = r1607640 + r1607647;
return r1607648;
}
\left(a - \frac{1.0}{3.0}\right) \cdot \left(1 + \frac{1}{\sqrt{9 \cdot \left(a - \frac{1.0}{3.0}\right)}} \cdot rand\right)\left(a - \frac{1.0}{3.0}\right) \cdot 1 + \frac{a - \frac{1.0}{3.0}}{\sqrt{\left(a - \frac{1.0}{3.0}\right) \cdot 9}} \cdot \left(1 \cdot rand\right)


Bits error versus a



Bits error versus rand
Initial program 0.2
rmApplied sub-neg0.2
Applied distribute-lft-in0.2
rmApplied distribute-lft-in0.2
Simplified0.2
rmApplied associate-/l*0.2
rmApplied associate-/r/0.2
Final simplification0.2
herbie shell --seed 2019101 +o rules:numerics
(FPCore (a rand)
:name "Octave 3.8, oct_fill_randg"
(*.p16 (-.p16 a (/.p16 (real->posit16 1.0) (real->posit16 3.0))) (+.p16 (real->posit16 1) (*.p16 (/.p16 (real->posit16 1) (sqrt.p16 (*.p16 (real->posit16 9) (-.p16 a (/.p16 (real->posit16 1.0) (real->posit16 3.0)))))) rand))))