\left(a - \left(\frac{\left(1.0\right)}{\left(3.0\right)}\right)\right) \cdot \left(\frac{\left(1\right)}{\left(\left(\frac{\left(1\right)}{\left(\sqrt{\left(\left(9\right) \cdot \left(a - \left(\frac{\left(1.0\right)}{\left(3.0\right)}\right)\right)\right)}\right)}\right) \cdot rand\right)}\right)\left(a - \frac{1.0}{3.0}\right) \cdot 1 + \left(a - \frac{1.0}{3.0}\right) \cdot \frac{rand \cdot 1}{\sqrt{\left(a - \frac{1.0}{3.0}\right) \cdot 9}}double f(double a, double rand) {
double r3422765 = a;
double r3422766 = 1.0;
double r3422767 = /* ERROR: no posit support in C */;
double r3422768 = 3.0;
double r3422769 = /* ERROR: no posit support in C */;
double r3422770 = r3422767 / r3422769;
double r3422771 = r3422765 - r3422770;
double r3422772 = 1.0;
double r3422773 = /* ERROR: no posit support in C */;
double r3422774 = 9.0;
double r3422775 = /* ERROR: no posit support in C */;
double r3422776 = r3422775 * r3422771;
double r3422777 = sqrt(r3422776);
double r3422778 = r3422773 / r3422777;
double r3422779 = rand;
double r3422780 = r3422778 * r3422779;
double r3422781 = r3422773 + r3422780;
double r3422782 = r3422771 * r3422781;
return r3422782;
}
double f(double a, double rand) {
double r3422783 = a;
double r3422784 = 1.0;
double r3422785 = 3.0;
double r3422786 = r3422784 / r3422785;
double r3422787 = r3422783 - r3422786;
double r3422788 = 1.0;
double r3422789 = r3422787 * r3422788;
double r3422790 = rand;
double r3422791 = r3422790 * r3422788;
double r3422792 = 9.0;
double r3422793 = r3422787 * r3422792;
double r3422794 = sqrt(r3422793);
double r3422795 = r3422791 / r3422794;
double r3422796 = r3422787 * r3422795;
double r3422797 = r3422789 + r3422796;
return r3422797;
}



Bits error versus a



Bits error versus rand
Initial program 0.2
rmApplied *p16-rgt-identity-expand0.2
Applied associate-*l*0.2
Simplified0.2
rmApplied distribute-lft-in0.2
Final simplification0.2
herbie shell --seed 2019158 +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))))