\sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)} + \sqrt[3]{\frac{1}{2 \cdot a} \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}\frac{\sqrt[3]{1 \cdot \left(\left(-g\right) + \sqrt{g \cdot g - h \cdot h}\right)}}{\sqrt[3]{2 \cdot a}} + \frac{\sqrt[3]{1 \cdot \left(\left(-g\right) - \sqrt{g \cdot g - h \cdot h}\right)}}{\sqrt[3]{2 \cdot a}}double f(double g, double h, double a) {
double r148358 = 1.0;
double r148359 = 2.0;
double r148360 = a;
double r148361 = r148359 * r148360;
double r148362 = r148358 / r148361;
double r148363 = g;
double r148364 = -r148363;
double r148365 = r148363 * r148363;
double r148366 = h;
double r148367 = r148366 * r148366;
double r148368 = r148365 - r148367;
double r148369 = sqrt(r148368);
double r148370 = r148364 + r148369;
double r148371 = r148362 * r148370;
double r148372 = cbrt(r148371);
double r148373 = r148364 - r148369;
double r148374 = r148362 * r148373;
double r148375 = cbrt(r148374);
double r148376 = r148372 + r148375;
return r148376;
}
double f(double g, double h, double a) {
double r148377 = 1.0;
double r148378 = g;
double r148379 = -r148378;
double r148380 = r148378 * r148378;
double r148381 = h;
double r148382 = r148381 * r148381;
double r148383 = r148380 - r148382;
double r148384 = sqrt(r148383);
double r148385 = r148379 + r148384;
double r148386 = r148377 * r148385;
double r148387 = cbrt(r148386);
double r148388 = 2.0;
double r148389 = a;
double r148390 = r148388 * r148389;
double r148391 = cbrt(r148390);
double r148392 = r148387 / r148391;
double r148393 = r148379 - r148384;
double r148394 = r148377 * r148393;
double r148395 = cbrt(r148394);
double r148396 = r148395 / r148391;
double r148397 = r148392 + r148396;
return r148397;
}



Bits error versus g



Bits error versus h



Bits error versus a
Results
Initial program 36.4
rmApplied associate-*l/36.4
Applied cbrt-div34.2
rmApplied associate-*l/34.2
Applied cbrt-div32.3
Final simplification32.3
herbie shell --seed 2019323 +o rules:numerics
(FPCore (g h a)
:name "2-ancestry mixing, positive discriminant"
:precision binary64
(+ (cbrt (* (/ 1 (* 2 a)) (+ (- g) (sqrt (- (* g g) (* h h)))))) (cbrt (* (/ 1 (* 2 a)) (- (- g) (sqrt (- (* g g) (* h h))))))))