{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\begin{array}{l}
\mathbf{if}\;n \le -767759998.8935319:\\
\;\;\;\;\left(\frac{1}{x \cdot n} - \frac{-\log x}{\left(x \cdot n\right) \cdot n}\right) + \frac{\frac{-1}{2}}{x \cdot \left(x \cdot n\right)}\\
\mathbf{elif}\;n \le -3.7161554746626 \cdot 10^{-311}:\\
\;\;\;\;\log \left(e^{{\left(1 + x\right)}^{\left(\frac{1}{n}\right)} - e^{\log \left({x}^{\left(\frac{1}{n}\right)}\right)}}\right)\\
\mathbf{elif}\;n \le 8.27878145238031 \cdot 10^{-214}:\\
\;\;\;\;\log \left(e^{{\left(1 + x\right)}^{\left(\frac{1}{n}\right)} - 1}\right)\\
\mathbf{elif}\;n \le 38062423.250333436:\\
\;\;\;\;\left(\sqrt[3]{\log \left(e^{{\left(1 + x\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}}\right)} \cdot \sqrt[3]{\log \left(e^{{\left(1 + x\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}}\right)}\right) \cdot \sqrt[3]{\log \left(e^{{\left(1 + x\right)}^{\left(\frac{1}{n}\right)} - \sqrt{{x}^{\left(\frac{1}{n}\right)}} \cdot \sqrt{{x}^{\left(\frac{1}{n}\right)}}}\right)}\\
\mathbf{else}:\\
\;\;\;\;\left(\frac{1}{x \cdot n} - \frac{-\log x}{\left(x \cdot n\right) \cdot n}\right) + \frac{\frac{-1}{2}}{x \cdot \left(x \cdot n\right)}\\
\end{array}double f(double x, double n) {
double r8526309 = x;
double r8526310 = 1.0;
double r8526311 = r8526309 + r8526310;
double r8526312 = n;
double r8526313 = r8526310 / r8526312;
double r8526314 = pow(r8526311, r8526313);
double r8526315 = pow(r8526309, r8526313);
double r8526316 = r8526314 - r8526315;
return r8526316;
}
double f(double x, double n) {
double r8526317 = n;
double r8526318 = -767759998.8935319;
bool r8526319 = r8526317 <= r8526318;
double r8526320 = 1.0;
double r8526321 = x;
double r8526322 = r8526321 * r8526317;
double r8526323 = r8526320 / r8526322;
double r8526324 = log(r8526321);
double r8526325 = -r8526324;
double r8526326 = r8526322 * r8526317;
double r8526327 = r8526325 / r8526326;
double r8526328 = r8526323 - r8526327;
double r8526329 = -0.5;
double r8526330 = r8526321 * r8526322;
double r8526331 = r8526329 / r8526330;
double r8526332 = r8526328 + r8526331;
double r8526333 = -3.7161554746626e-311;
bool r8526334 = r8526317 <= r8526333;
double r8526335 = r8526320 + r8526321;
double r8526336 = r8526320 / r8526317;
double r8526337 = pow(r8526335, r8526336);
double r8526338 = pow(r8526321, r8526336);
double r8526339 = log(r8526338);
double r8526340 = exp(r8526339);
double r8526341 = r8526337 - r8526340;
double r8526342 = exp(r8526341);
double r8526343 = log(r8526342);
double r8526344 = 8.27878145238031e-214;
bool r8526345 = r8526317 <= r8526344;
double r8526346 = r8526337 - r8526320;
double r8526347 = exp(r8526346);
double r8526348 = log(r8526347);
double r8526349 = 38062423.250333436;
bool r8526350 = r8526317 <= r8526349;
double r8526351 = r8526337 - r8526338;
double r8526352 = exp(r8526351);
double r8526353 = log(r8526352);
double r8526354 = cbrt(r8526353);
double r8526355 = r8526354 * r8526354;
double r8526356 = sqrt(r8526338);
double r8526357 = r8526356 * r8526356;
double r8526358 = r8526337 - r8526357;
double r8526359 = exp(r8526358);
double r8526360 = log(r8526359);
double r8526361 = cbrt(r8526360);
double r8526362 = r8526355 * r8526361;
double r8526363 = r8526350 ? r8526362 : r8526332;
double r8526364 = r8526345 ? r8526348 : r8526363;
double r8526365 = r8526334 ? r8526343 : r8526364;
double r8526366 = r8526319 ? r8526332 : r8526365;
return r8526366;
}



Bits error versus x



Bits error versus n
Results
if n < -767759998.8935319 or 38062423.250333436 < n Initial program 44.7
rmApplied add-log-exp44.7
Taylor expanded around inf 32.7
Simplified32.7
if -767759998.8935319 < n < -3.7161554746626e-311Initial program 1.0
rmApplied add-log-exp1.3
rmApplied add-exp-log1.3
if -3.7161554746626e-311 < n < 8.27878145238031e-214Initial program 46.2
rmApplied add-log-exp46.2
rmApplied add-exp-log46.2
Taylor expanded around 0 17.8
if 8.27878145238031e-214 < n < 38062423.250333436Initial program 17.0
rmApplied add-log-exp17.0
rmApplied add-cube-cbrt17.0
rmApplied add-sqr-sqrt17.0
Final simplification21.6
herbie shell --seed 2019121
(FPCore (x n)
:name "2nthrt (problem 3.4.6)"
(- (pow (+ x 1) (/ 1 n)) (pow x (/ 1 n))))