\left(\left(\sqrt{\pi \cdot 2} \cdot {\left(\left(\left(z - 1\right) + 7\right) + 0.5\right)}^{\left(\left(z - 1\right) + 0.5\right)}\right) \cdot e^{-\left(\left(\left(z - 1\right) + 7\right) + 0.5\right)}\right) \cdot \left(\left(\left(\left(\left(\left(\left(\left(0.9999999999998099 + \frac{676.5203681218851}{\left(z - 1\right) + 1}\right) + \frac{-1259.1392167224028}{\left(z - 1\right) + 2}\right) + \frac{771.3234287776531}{\left(z - 1\right) + 3}\right) + \frac{-176.6150291621406}{\left(z - 1\right) + 4}\right) + \frac{12.507343278686905}{\left(z - 1\right) + 5}\right) + \frac{-0.13857109526572012}{\left(z - 1\right) + 6}\right) + \frac{9.984369578019572 \cdot 10^{-06}}{\left(z - 1\right) + 7}\right) + \frac{1.5056327351493116 \cdot 10^{-07}}{\left(z - 1\right) + 8}\right)\left(\frac{-0.13857109526572012}{z - -5} + \left(\left(\left(\frac{-1259.1392167224028}{z + 1} + \frac{771.3234287776531}{z + 2}\right) + \left(\frac{676.5203681218851}{z} + \left(\frac{-176.6150291621406}{z - -3} + 0.9999999999998099\right)\right)\right) + \left(\left(\frac{1.5056327351493116 \cdot 10^{-07}}{z + 7} + \frac{9.984369578019572 \cdot 10^{-06}}{z + 6}\right) + \frac{12.507343278686905}{4 + z}\right)\right)\right) \cdot \frac{\frac{\sqrt{\sqrt{\pi \cdot 2} \cdot {\left(0.5 + \left(\left(z - 1\right) + 7\right)\right)}^{\left(\left(z - 1\right) + 0.5\right)}} \cdot \sqrt{\sqrt{\pi \cdot 2} \cdot {\left(0.5 + \left(\left(z - 1\right) + 7\right)\right)}^{\left(\left(z - 1\right) + 0.5\right)}}}{e^{\left(z - 1\right) + 7}}}{e^{0.5}}double f(double z) {
double r14714912 = atan2(1.0, 0.0);
double r14714913 = 2.0;
double r14714914 = r14714912 * r14714913;
double r14714915 = sqrt(r14714914);
double r14714916 = z;
double r14714917 = 1.0;
double r14714918 = r14714916 - r14714917;
double r14714919 = 7.0;
double r14714920 = r14714918 + r14714919;
double r14714921 = 0.5;
double r14714922 = r14714920 + r14714921;
double r14714923 = r14714918 + r14714921;
double r14714924 = pow(r14714922, r14714923);
double r14714925 = r14714915 * r14714924;
double r14714926 = -r14714922;
double r14714927 = exp(r14714926);
double r14714928 = r14714925 * r14714927;
double r14714929 = 0.9999999999998099;
double r14714930 = 676.5203681218851;
double r14714931 = r14714918 + r14714917;
double r14714932 = r14714930 / r14714931;
double r14714933 = r14714929 + r14714932;
double r14714934 = -1259.1392167224028;
double r14714935 = r14714918 + r14714913;
double r14714936 = r14714934 / r14714935;
double r14714937 = r14714933 + r14714936;
double r14714938 = 771.3234287776531;
double r14714939 = 3.0;
double r14714940 = r14714918 + r14714939;
double r14714941 = r14714938 / r14714940;
double r14714942 = r14714937 + r14714941;
double r14714943 = -176.6150291621406;
double r14714944 = 4.0;
double r14714945 = r14714918 + r14714944;
double r14714946 = r14714943 / r14714945;
double r14714947 = r14714942 + r14714946;
double r14714948 = 12.507343278686905;
double r14714949 = 5.0;
double r14714950 = r14714918 + r14714949;
double r14714951 = r14714948 / r14714950;
double r14714952 = r14714947 + r14714951;
double r14714953 = -0.13857109526572012;
double r14714954 = 6.0;
double r14714955 = r14714918 + r14714954;
double r14714956 = r14714953 / r14714955;
double r14714957 = r14714952 + r14714956;
double r14714958 = 9.984369578019572e-06;
double r14714959 = r14714958 / r14714920;
double r14714960 = r14714957 + r14714959;
double r14714961 = 1.5056327351493116e-07;
double r14714962 = 8.0;
double r14714963 = r14714918 + r14714962;
double r14714964 = r14714961 / r14714963;
double r14714965 = r14714960 + r14714964;
double r14714966 = r14714928 * r14714965;
return r14714966;
}
double f(double z) {
double r14714967 = -0.13857109526572012;
double r14714968 = z;
double r14714969 = -5.0;
double r14714970 = r14714968 - r14714969;
double r14714971 = r14714967 / r14714970;
double r14714972 = -1259.1392167224028;
double r14714973 = 1.0;
double r14714974 = r14714968 + r14714973;
double r14714975 = r14714972 / r14714974;
double r14714976 = 771.3234287776531;
double r14714977 = 2.0;
double r14714978 = r14714968 + r14714977;
double r14714979 = r14714976 / r14714978;
double r14714980 = r14714975 + r14714979;
double r14714981 = 676.5203681218851;
double r14714982 = r14714981 / r14714968;
double r14714983 = -176.6150291621406;
double r14714984 = -3.0;
double r14714985 = r14714968 - r14714984;
double r14714986 = r14714983 / r14714985;
double r14714987 = 0.9999999999998099;
double r14714988 = r14714986 + r14714987;
double r14714989 = r14714982 + r14714988;
double r14714990 = r14714980 + r14714989;
double r14714991 = 1.5056327351493116e-07;
double r14714992 = 7.0;
double r14714993 = r14714968 + r14714992;
double r14714994 = r14714991 / r14714993;
double r14714995 = 9.984369578019572e-06;
double r14714996 = 6.0;
double r14714997 = r14714968 + r14714996;
double r14714998 = r14714995 / r14714997;
double r14714999 = r14714994 + r14714998;
double r14715000 = 12.507343278686905;
double r14715001 = 4.0;
double r14715002 = r14715001 + r14714968;
double r14715003 = r14715000 / r14715002;
double r14715004 = r14714999 + r14715003;
double r14715005 = r14714990 + r14715004;
double r14715006 = r14714971 + r14715005;
double r14715007 = atan2(1.0, 0.0);
double r14715008 = r14715007 * r14714977;
double r14715009 = sqrt(r14715008);
double r14715010 = 0.5;
double r14715011 = r14714968 - r14714973;
double r14715012 = r14715011 + r14714992;
double r14715013 = r14715010 + r14715012;
double r14715014 = r14715011 + r14715010;
double r14715015 = pow(r14715013, r14715014);
double r14715016 = r14715009 * r14715015;
double r14715017 = sqrt(r14715016);
double r14715018 = r14715017 * r14715017;
double r14715019 = exp(r14715012);
double r14715020 = r14715018 / r14715019;
double r14715021 = exp(r14715010);
double r14715022 = r14715020 / r14715021;
double r14715023 = r14715006 * r14715022;
return r14715023;
}



Bits error versus z
Results
Initial program 59.9
Simplified1.0
rmApplied exp-sum1.0
Applied associate-/r*0.7
rmApplied add-sqr-sqrt0.7
Final simplification0.7
herbie shell --seed 2019132
(FPCore (z)
:name "Jmat.Real.gamma, branch z greater than 0.5"
(* (* (* (sqrt (* PI 2)) (pow (+ (+ (- z 1) 7) 0.5) (+ (- z 1) 0.5))) (exp (- (+ (+ (- z 1) 7) 0.5)))) (+ (+ (+ (+ (+ (+ (+ (+ 0.9999999999998099 (/ 676.5203681218851 (+ (- z 1) 1))) (/ -1259.1392167224028 (+ (- z 1) 2))) (/ 771.3234287776531 (+ (- z 1) 3))) (/ -176.6150291621406 (+ (- z 1) 4))) (/ 12.507343278686905 (+ (- z 1) 5))) (/ -0.13857109526572012 (+ (- z 1) 6))) (/ 9.984369578019572e-06 (+ (- z 1) 7))) (/ 1.5056327351493116e-07 (+ (- z 1) 8)))))