\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 - \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(\frac{\left(\left(9\right) \cdot a\right)}{\left(\left(9\right) \cdot \left(-\left(\frac{\left(1.0\right)}{\left(3.0\right)}\right)\right)\right)}\right)}\right)}\right) \cdot rand\right)}\right)double f(double a, double rand) {
double r3019837 = a;
double r3019838 = 1.0;
double r3019839 = /* ERROR: no posit support in C */;
double r3019840 = 3.0;
double r3019841 = /* ERROR: no posit support in C */;
double r3019842 = r3019839 / r3019841;
double r3019843 = r3019837 - r3019842;
double r3019844 = 1.0;
double r3019845 = /* ERROR: no posit support in C */;
double r3019846 = 9.0;
double r3019847 = /* ERROR: no posit support in C */;
double r3019848 = r3019847 * r3019843;
double r3019849 = sqrt(r3019848);
double r3019850 = r3019845 / r3019849;
double r3019851 = rand;
double r3019852 = r3019850 * r3019851;
double r3019853 = r3019845 + r3019852;
double r3019854 = r3019843 * r3019853;
return r3019854;
}
double f(double a, double rand) {
double r3019855 = a;
double r3019856 = 1.0;
double r3019857 = /* ERROR: no posit support in C */;
double r3019858 = 3.0;
double r3019859 = /* ERROR: no posit support in C */;
double r3019860 = r3019857 / r3019859;
double r3019861 = r3019855 - r3019860;
double r3019862 = 1.0;
double r3019863 = /* ERROR: no posit support in C */;
double r3019864 = 9.0;
double r3019865 = /* ERROR: no posit support in C */;
double r3019866 = r3019865 * r3019855;
double r3019867 = -r3019860;
double r3019868 = r3019865 * r3019867;
double r3019869 = r3019866 + r3019868;
double r3019870 = sqrt(r3019869);
double r3019871 = r3019863 / r3019870;
double r3019872 = rand;
double r3019873 = r3019871 * r3019872;
double r3019874 = r3019863 + r3019873;
double r3019875 = r3019861 * r3019874;
return r3019875;
}



Bits error versus a



Bits error versus rand
Initial program 0.2
rmApplied sub-neg0.2
Applied distribute-lft-in0.2
Final simplification0.2
herbie shell --seed 2019163 +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))))