{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\begin{array}{l}
\mathbf{if}\;\frac{1}{n} \le -7.177444174248558 \cdot 10^{-20}:\\
\;\;\;\;\log \left(e^{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}}\right)\\
\mathbf{elif}\;\frac{1}{n} \le 3.904316443592393 \cdot 10^{-11}:\\
\;\;\;\;\frac{\frac{1}{n}}{x} + \left(\frac{\frac{\log x}{n}}{x \cdot n} - \frac{\frac{1}{2}}{x \cdot \left(x \cdot n\right)}\right)\\
\mathbf{else}:\\
\;\;\;\;\sqrt[3]{\left(\left({\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\right) \cdot \left(e^{\log \left(\sqrt{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)}} - \sqrt{{x}^{\left(\frac{1}{n}\right)}}\right)} \cdot \left(\sqrt{{x}^{\left(\frac{1}{n}\right)}} + \sqrt{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)}}\right)\right)\right) \cdot \left({\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\right)}\\
\end{array}double f(double x, double n) {
double r1810741 = x;
double r1810742 = 1.0;
double r1810743 = r1810741 + r1810742;
double r1810744 = n;
double r1810745 = r1810742 / r1810744;
double r1810746 = pow(r1810743, r1810745);
double r1810747 = pow(r1810741, r1810745);
double r1810748 = r1810746 - r1810747;
return r1810748;
}
double f(double x, double n) {
double r1810749 = 1.0;
double r1810750 = n;
double r1810751 = r1810749 / r1810750;
double r1810752 = -7.177444174248558e-20;
bool r1810753 = r1810751 <= r1810752;
double r1810754 = x;
double r1810755 = r1810754 + r1810749;
double r1810756 = pow(r1810755, r1810751);
double r1810757 = pow(r1810754, r1810751);
double r1810758 = r1810756 - r1810757;
double r1810759 = exp(r1810758);
double r1810760 = log(r1810759);
double r1810761 = 3.904316443592393e-11;
bool r1810762 = r1810751 <= r1810761;
double r1810763 = r1810751 / r1810754;
double r1810764 = log(r1810754);
double r1810765 = r1810764 / r1810750;
double r1810766 = r1810754 * r1810750;
double r1810767 = r1810765 / r1810766;
double r1810768 = 0.5;
double r1810769 = r1810754 * r1810766;
double r1810770 = r1810768 / r1810769;
double r1810771 = r1810767 - r1810770;
double r1810772 = r1810763 + r1810771;
double r1810773 = sqrt(r1810756);
double r1810774 = sqrt(r1810757);
double r1810775 = r1810773 - r1810774;
double r1810776 = log(r1810775);
double r1810777 = exp(r1810776);
double r1810778 = r1810774 + r1810773;
double r1810779 = r1810777 * r1810778;
double r1810780 = r1810758 * r1810779;
double r1810781 = r1810780 * r1810758;
double r1810782 = cbrt(r1810781);
double r1810783 = r1810762 ? r1810772 : r1810782;
double r1810784 = r1810753 ? r1810760 : r1810783;
return r1810784;
}



Bits error versus x



Bits error versus n
Results
if (/ 1 n) < -7.177444174248558e-20Initial program 2.5
rmApplied add-sqr-sqrt2.5
rmApplied add-log-exp2.7
Simplified2.7
if -7.177444174248558e-20 < (/ 1 n) < 3.904316443592393e-11Initial program 44.4
rmApplied add-sqr-sqrt44.4
Taylor expanded around inf 32.0
Simplified31.4
if 3.904316443592393e-11 < (/ 1 n) Initial program 25.7
rmApplied add-sqr-sqrt25.7
rmApplied add-cbrt-cube25.8
Simplified25.8
rmApplied add-sqr-sqrt25.8
Applied add-sqr-sqrt25.8
Applied difference-of-squares25.8
rmApplied add-exp-log25.8
Final simplification22.1
herbie shell --seed 2019149
(FPCore (x n)
:name "2nthrt (problem 3.4.6)"
(- (pow (+ x 1) (/ 1 n)) (pow x (/ 1 n))))