\sin^{-1} \left(\sqrt{\frac{1 - {\left(\frac{Om}{Omc}\right)}^{2}}{1 + 2 \cdot {\left(\frac{t}{\ell}\right)}^{2}}}\right)\mathsf{expm1}\left(\mathsf{log1p}\left(\sin^{-1} \left(\sqrt{\frac{1 - {\left(\frac{Om}{Omc}\right)}^{2}}{1 + 2 \cdot {\left(\frac{t}{\ell}\right)}^{2}}}\right)\right)\right)double f(double t, double l, double Om, double Omc) {
double r77845 = 1.0;
double r77846 = Om;
double r77847 = Omc;
double r77848 = r77846 / r77847;
double r77849 = 2.0;
double r77850 = pow(r77848, r77849);
double r77851 = r77845 - r77850;
double r77852 = t;
double r77853 = l;
double r77854 = r77852 / r77853;
double r77855 = pow(r77854, r77849);
double r77856 = r77849 * r77855;
double r77857 = r77845 + r77856;
double r77858 = r77851 / r77857;
double r77859 = sqrt(r77858);
double r77860 = asin(r77859);
return r77860;
}
double f(double t, double l, double Om, double Omc) {
double r77861 = 1.0;
double r77862 = Om;
double r77863 = Omc;
double r77864 = r77862 / r77863;
double r77865 = 2.0;
double r77866 = pow(r77864, r77865);
double r77867 = r77861 - r77866;
double r77868 = t;
double r77869 = l;
double r77870 = r77868 / r77869;
double r77871 = pow(r77870, r77865);
double r77872 = r77865 * r77871;
double r77873 = r77861 + r77872;
double r77874 = r77867 / r77873;
double r77875 = sqrt(r77874);
double r77876 = asin(r77875);
double r77877 = log1p(r77876);
double r77878 = expm1(r77877);
return r77878;
}



Bits error versus t



Bits error versus l



Bits error versus Om



Bits error versus Omc
Results
Initial program 10.4
rmApplied expm1-log1p-u10.4
Final simplification10.4
herbie shell --seed 2019346 +o rules:numerics
(FPCore (t l Om Omc)
:name "Toniolo and Linder, Equation (2)"
:precision binary64
(asin (sqrt (/ (- 1 (pow (/ Om Omc) 2)) (+ 1 (* 2 (pow (/ t l) 2)))))))