{\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\begin{array}{l}
\mathbf{if}\;\frac{1}{n} \le -6.135796665378819 \cdot 10^{-16}:\\
\;\;\;\;\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]{\sqrt[3]{\left(\left({\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\right) \cdot \left(\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)\right)\right) \cdot \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 1.0621298133171938 \cdot 10^{-12}:\\
\;\;\;\;\left(\frac{1}{x \cdot n} + \frac{\log x}{n} \cdot \frac{1}{x \cdot n}\right) - \frac{\frac{1}{2}}{n \cdot \left(x \cdot x\right)}\\
\mathbf{else}:\\
\;\;\;\;\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]{\sqrt[3]{\left(\left({\left(x + 1\right)}^{\left(\frac{1}{n}\right)} - {x}^{\left(\frac{1}{n}\right)}\right) \cdot \left(\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)\right)\right) \cdot \log \left(e^{{\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 r570156 = x;
double r570157 = 1.0;
double r570158 = r570156 + r570157;
double r570159 = n;
double r570160 = r570157 / r570159;
double r570161 = pow(r570158, r570160);
double r570162 = pow(r570156, r570160);
double r570163 = r570161 - r570162;
return r570163;
}
double f(double x, double n) {
double r570164 = 1.0;
double r570165 = n;
double r570166 = r570164 / r570165;
double r570167 = -6.135796665378819e-16;
bool r570168 = r570166 <= r570167;
double r570169 = x;
double r570170 = r570169 + r570164;
double r570171 = pow(r570170, r570166);
double r570172 = pow(r570169, r570166);
double r570173 = r570171 - r570172;
double r570174 = cbrt(r570173);
double r570175 = r570174 * r570174;
double r570176 = sqrt(r570171);
double r570177 = sqrt(r570172);
double r570178 = r570176 - r570177;
double r570179 = r570176 + r570177;
double r570180 = r570178 * r570179;
double r570181 = r570173 * r570180;
double r570182 = exp(r570173);
double r570183 = log(r570182);
double r570184 = r570181 * r570183;
double r570185 = cbrt(r570184);
double r570186 = cbrt(r570185);
double r570187 = r570175 * r570186;
double r570188 = 1.0621298133171938e-12;
bool r570189 = r570166 <= r570188;
double r570190 = r570169 * r570165;
double r570191 = r570164 / r570190;
double r570192 = log(r570169);
double r570193 = r570192 / r570165;
double r570194 = r570193 * r570191;
double r570195 = r570191 + r570194;
double r570196 = 0.5;
double r570197 = r570169 * r570169;
double r570198 = r570165 * r570197;
double r570199 = r570196 / r570198;
double r570200 = r570195 - r570199;
double r570201 = r570189 ? r570200 : r570187;
double r570202 = r570168 ? r570187 : r570201;
return r570202;
}



Bits error versus x



Bits error versus n
Results
if (/ 1 n) < -6.135796665378819e-16 or 1.0621298133171938e-12 < (/ 1 n) Initial program 9.2
rmApplied add-cube-cbrt9.2
rmApplied add-cbrt-cube9.2
rmApplied add-log-exp9.3
rmApplied add-sqr-sqrt9.3
Applied add-sqr-sqrt9.3
Applied difference-of-squares9.3
if -6.135796665378819e-16 < (/ 1 n) < 1.0621298133171938e-12Initial program 44.8
Taylor expanded around inf 32.0
Simplified32.0
Final simplification22.2
herbie shell --seed 2019156
(FPCore (x n)
:name "2nthrt (problem 3.4.6)"
(- (pow (+ x 1) (/ 1 n)) (pow x (/ 1 n))))