{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\begin{array}{l}
\mathbf{if}\;\frac{1}{n} \le -1.573264323221321940469903236644308698369 \cdot 10^{-23}:\\
\;\;\;\;\left({\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} + \sqrt{{x}^{\left(\frac{1}{n}\right)}}\right) \cdot \left(2 \cdot \log \left(\sqrt[3]{e^{{\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} - \sqrt{{x}^{\left(\frac{1}{n}\right)}}}}\right) + \log \left(\sqrt[3]{e^{{\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} - \sqrt{{x}^{\left(\frac{1}{n}\right)}}}}\right)\right)\\
\mathbf{elif}\;\frac{1}{n} \le 2.331213512681894439398036102681617494142 \cdot 10^{-13}:\\
\;\;\;\;\frac{1}{x} \cdot \left(\frac{1}{n} - \frac{-\log x}{{n}^{2}}\right) - \frac{0.5}{{x}^{2} \cdot n}\\
\mathbf{else}:\\
\;\;\;\;\left({\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} + \sqrt{{x}^{\left(\frac{1}{n}\right)}}\right) \cdot \log \left(e^{\frac{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}}{{\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} + \sqrt{{x}^{\left(\frac{1}{n}\right)}}}}\right)\\
\end{array}double f(double x, double n) {
double r59719 = x;
double r59720 = 1.0;
double r59721 = r59719 + r59720;
double r59722 = n;
double r59723 = r59720 / r59722;
double r59724 = pow(r59721, r59723);
double r59725 = pow(r59719, r59723);
double r59726 = r59724 - r59725;
return r59726;
}
double f(double x, double n) {
double r59727 = 1.0;
double r59728 = n;
double r59729 = r59727 / r59728;
double r59730 = -1.573264323221322e-23;
bool r59731 = r59729 <= r59730;
double r59732 = x;
double r59733 = r59732 + r59727;
double r59734 = 2.0;
double r59735 = r59729 / r59734;
double r59736 = pow(r59733, r59735);
double r59737 = pow(r59732, r59729);
double r59738 = sqrt(r59737);
double r59739 = r59736 + r59738;
double r59740 = r59736 - r59738;
double r59741 = exp(r59740);
double r59742 = cbrt(r59741);
double r59743 = log(r59742);
double r59744 = r59734 * r59743;
double r59745 = r59744 + r59743;
double r59746 = r59739 * r59745;
double r59747 = 2.3312135126818944e-13;
bool r59748 = r59729 <= r59747;
double r59749 = r59727 / r59732;
double r59750 = 1.0;
double r59751 = r59750 / r59728;
double r59752 = log(r59732);
double r59753 = -r59752;
double r59754 = pow(r59728, r59734);
double r59755 = r59753 / r59754;
double r59756 = r59751 - r59755;
double r59757 = r59749 * r59756;
double r59758 = 0.5;
double r59759 = pow(r59732, r59734);
double r59760 = r59759 * r59728;
double r59761 = r59758 / r59760;
double r59762 = r59757 - r59761;
double r59763 = pow(r59733, r59729);
double r59764 = r59763 - r59737;
double r59765 = r59764 / r59739;
double r59766 = exp(r59765);
double r59767 = log(r59766);
double r59768 = r59739 * r59767;
double r59769 = r59748 ? r59762 : r59768;
double r59770 = r59731 ? r59746 : r59769;
return r59770;
}



Bits error versus x



Bits error versus n
Results
if (/ 1.0 n) < -1.573264323221322e-23Initial program 3.5
rmApplied add-sqr-sqrt3.6
Applied sqr-pow3.5
Applied difference-of-squares3.5
rmApplied add-log-exp3.8
Applied add-log-exp3.7
Applied diff-log3.7
Simplified3.7
rmApplied add-cube-cbrt3.7
Applied log-prod3.7
Simplified3.7
if -1.573264323221322e-23 < (/ 1.0 n) < 2.3312135126818944e-13Initial program 44.8
Taylor expanded around inf 32.6
Simplified31.9
if 2.3312135126818944e-13 < (/ 1.0 n) Initial program 25.2
rmApplied add-sqr-sqrt25.3
Applied sqr-pow25.2
Applied difference-of-squares25.2
rmApplied add-log-exp25.3
Applied add-log-exp25.3
Applied diff-log25.3
Simplified25.3
rmApplied flip--28.0
Simplified28.0
Final simplification23.1
herbie shell --seed 2019326
(FPCore (x n)
:name "2nthrt (problem 3.4.6)"
:precision binary64
(- (pow (+ x 1) (/ 1 n)) (pow x (/ 1 n))))