{\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.357290457027556136726520463753331569023 \cdot 10^{-4}:\\
\;\;\;\;\left(\sqrt[3]{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}} \cdot \sqrt[3]{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}}\right) \cdot \sqrt[3]{\left(\sqrt{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)}} + \sqrt{{x}^{\left(\frac{1}{n}\right)}}\right) \cdot \left(\sqrt{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)}} - \sqrt{{x}^{\left(\frac{1}{n}\right)}}\right)}\\
\mathbf{elif}\;\frac{1}{n} \le 1.657941597781271763842325661642007617047 \cdot 10^{-4}:\\
\;\;\;\;\frac{\frac{1}{n}}{x} - \left(\frac{\frac{0.5}{n}}{{x}^{2}} - \frac{1 \cdot \log x}{x \cdot {n}^{2}}\right)\\
\mathbf{else}:\\
\;\;\;\;\left(\sqrt[3]{\left(\sqrt[3]{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}} \cdot \sqrt[3]{\left({\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} + {x}^{\left(\frac{\frac{1}{n}}{2}\right)}\right) \cdot \left({\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} - {x}^{\left(\frac{\frac{1}{n}}{2}\right)}\right)}\right) \cdot \sqrt[3]{\left({\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} + \sqrt{{x}^{\left(\frac{1}{n}\right)}}\right) \cdot \left({\left(x + 1\right)}^{\left(\frac{\frac{1}{n}}{2}\right)} - \sqrt{{x}^{\left(\frac{1}{n}\right)}}\right)}} \cdot \sqrt[3]{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}}\right) \cdot \sqrt[3]{{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}}\\
\end{array}double f(double x, double n) {
double r76257 = x;
double r76258 = 1.0;
double r76259 = r76257 + r76258;
double r76260 = n;
double r76261 = r76258 / r76260;
double r76262 = pow(r76259, r76261);
double r76263 = pow(r76257, r76261);
double r76264 = r76262 - r76263;
return r76264;
}
double f(double x, double n) {
double r76265 = 1.0;
double r76266 = n;
double r76267 = r76265 / r76266;
double r76268 = -0.00013572904570275561;
bool r76269 = r76267 <= r76268;
double r76270 = x;
double r76271 = r76270 + r76265;
double r76272 = pow(r76271, r76267);
double r76273 = pow(r76270, r76267);
double r76274 = r76272 - r76273;
double r76275 = cbrt(r76274);
double r76276 = r76275 * r76275;
double r76277 = sqrt(r76272);
double r76278 = sqrt(r76273);
double r76279 = r76277 + r76278;
double r76280 = r76277 - r76278;
double r76281 = r76279 * r76280;
double r76282 = cbrt(r76281);
double r76283 = r76276 * r76282;
double r76284 = 0.00016579415977812718;
bool r76285 = r76267 <= r76284;
double r76286 = r76267 / r76270;
double r76287 = 0.5;
double r76288 = r76287 / r76266;
double r76289 = 2.0;
double r76290 = pow(r76270, r76289);
double r76291 = r76288 / r76290;
double r76292 = log(r76270);
double r76293 = r76265 * r76292;
double r76294 = pow(r76266, r76289);
double r76295 = r76270 * r76294;
double r76296 = r76293 / r76295;
double r76297 = r76291 - r76296;
double r76298 = r76286 - r76297;
double r76299 = r76267 / r76289;
double r76300 = pow(r76271, r76299);
double r76301 = pow(r76270, r76299);
double r76302 = r76300 + r76301;
double r76303 = r76300 - r76301;
double r76304 = r76302 * r76303;
double r76305 = cbrt(r76304);
double r76306 = r76275 * r76305;
double r76307 = r76300 + r76278;
double r76308 = r76300 - r76278;
double r76309 = r76307 * r76308;
double r76310 = cbrt(r76309);
double r76311 = r76306 * r76310;
double r76312 = cbrt(r76311);
double r76313 = r76312 * r76275;
double r76314 = r76313 * r76275;
double r76315 = r76285 ? r76298 : r76314;
double r76316 = r76269 ? r76283 : r76315;
return r76316;
}



Bits error versus x



Bits error versus n
Results
if (/ 1.0 n) < -0.00013572904570275561Initial program 0.2
rmApplied add-cube-cbrt0.2
rmApplied add-sqr-sqrt0.2
Applied add-sqr-sqrt0.2
Applied difference-of-squares0.2
if -0.00013572904570275561 < (/ 1.0 n) < 0.00016579415977812718Initial program 45.1
Taylor expanded around inf 33.0
Simplified32.4
if 0.00016579415977812718 < (/ 1.0 n) Initial program 24.7
rmApplied add-cube-cbrt24.7
rmApplied add-cube-cbrt24.7
rmApplied sqr-pow24.7
Applied sqr-pow24.7
Applied difference-of-squares24.7
rmApplied add-sqr-sqrt24.7
Applied sqr-pow24.7
Applied difference-of-squares24.7
Final simplification22.3
herbie shell --seed 2019354
(FPCore (x n)
:name "2nthrt (problem 3.4.6)"
:precision binary64
(- (pow (+ x 1) (/ 1 n)) (pow x (/ 1 n))))