double f(double a, double rand) {
double r1616608 = a;
double r1616609 = 1.0;
double r1616610 = 3.0;
double r1616611 = r1616609 / r1616610;
double r1616612 = r1616608 - r1616611;
double r1616613 = 1.0;
double r1616614 = 9.0;
double r1616615 = r1616614 * r1616612;
double r1616616 = sqrt(r1616615);
double r1616617 = r1616613 / r1616616;
double r1616618 = rand;
double r1616619 = r1616617 * r1616618;
double r1616620 = r1616613 + r1616619;
double r1616621 = r1616612 * r1616620;
return r1616621;
}
double f(double a, double rand) {
double r1616622 = a;
double r1616623 = 1.0;
double r1616624 = 3.0;
double r1616625 = r1616623 / r1616624;
double r1616626 = r1616622 - r1616625;
double r1616627 = 1.0;
double r1616628 = r1616626 * r1616627;
double r1616629 = 9.0;
double r1616630 = r1616626 * r1616629;
double r1616631 = sqrt(r1616630);
double r1616632 = r1616626 / r1616631;
double r1616633 = rand;
double r1616634 = r1616627 * r1616633;
double r1616635 = r1616632 * r1616634;
double r1616636 = r1616628 + r1616635;
return r1616636;
}
\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-rgt-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
(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))))