\left(\frac{\sqrt{2}}{4} \cdot \sqrt{1 - 3 \cdot \left(v \cdot v\right)}\right) \cdot \left(1 - v \cdot v\right)\left(\frac{\sqrt[3]{\sqrt{2}} \cdot \sqrt[3]{\sqrt{2}}}{\sqrt{4}} \cdot \left(\frac{\sqrt[3]{\sqrt{2}}}{\sqrt{4}} \cdot \sqrt{1 - 3 \cdot \left(v \cdot v\right)}\right)\right) \cdot \left(1 - v \cdot v\right)double f(double v) {
double r118687 = 2.0;
double r118688 = sqrt(r118687);
double r118689 = 4.0;
double r118690 = r118688 / r118689;
double r118691 = 1.0;
double r118692 = 3.0;
double r118693 = v;
double r118694 = r118693 * r118693;
double r118695 = r118692 * r118694;
double r118696 = r118691 - r118695;
double r118697 = sqrt(r118696);
double r118698 = r118690 * r118697;
double r118699 = r118691 - r118694;
double r118700 = r118698 * r118699;
return r118700;
}
double f(double v) {
double r118701 = 2.0;
double r118702 = sqrt(r118701);
double r118703 = cbrt(r118702);
double r118704 = r118703 * r118703;
double r118705 = 4.0;
double r118706 = sqrt(r118705);
double r118707 = r118704 / r118706;
double r118708 = r118703 / r118706;
double r118709 = 1.0;
double r118710 = 3.0;
double r118711 = v;
double r118712 = r118711 * r118711;
double r118713 = r118710 * r118712;
double r118714 = r118709 - r118713;
double r118715 = sqrt(r118714);
double r118716 = r118708 * r118715;
double r118717 = r118707 * r118716;
double r118718 = r118709 - r118712;
double r118719 = r118717 * r118718;
return r118719;
}



Bits error versus v
Results
Initial program 0.0
rmApplied add-sqr-sqrt0.0
Applied add-cube-cbrt0.0
Applied times-frac0.0
Applied associate-*l*0.0
Final simplification0.0
herbie shell --seed 2020045
(FPCore (v)
:name "Falkner and Boettcher, Appendix B, 2"
:precision binary64
(* (* (/ (sqrt 2) 4) (sqrt (- 1 (* 3 (* v v))))) (- 1 (* v v))))