\Re(\left(\left(\left(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\left(\left(\left(\left(-2\right) + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(\left(5 + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(4 + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0.0 i\right)\right))\Re(\left(\left(\left(\left(\left(\left(5 + 0.0 i\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} - 2\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(4 + 0.0 i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r15608 = 1.0;
double r15609 = -r15608;
double r15610 = 2.0;
double r15611 = r15609 / r15610;
double r15612 = 3.0;
double r15613 = sqrt(r15612);
double r15614 = r15613 / r15610;
double r15615 = /* ERROR: no complex support in C */;
double r15616 = r15615 * r15615;
double r15617 = r15616 * r15615;
double r15618 = r15617 * r15615;
double r15619 = -r15610;
double r15620 = 0.0;
double r15621 = /* ERROR: no complex support in C */;
double r15622 = r15621 * r15615;
double r15623 = r15622 * r15615;
double r15624 = r15623 * r15615;
double r15625 = r15618 + r15624;
double r15626 = 5.0;
double r15627 = /* ERROR: no complex support in C */;
double r15628 = r15627 * r15615;
double r15629 = r15628 * r15615;
double r15630 = r15625 + r15629;
double r15631 = 4.0;
double r15632 = /* ERROR: no complex support in C */;
double r15633 = r15632 * r15615;
double r15634 = r15630 + r15633;
double r15635 = 7.0;
double r15636 = /* ERROR: no complex support in C */;
double r15637 = r15634 + r15636;
double r15638 = /* ERROR: no complex support in C */;
return r15638;
}
double f() {
double r15639 = 5.0;
double r15640 = 0.0;
double r15641 = /* ERROR: no complex support in C */;
double r15642 = 1.0;
double r15643 = -r15642;
double r15644 = 2.0;
double r15645 = r15643 / r15644;
double r15646 = 3.0;
double r15647 = sqrt(r15646);
double r15648 = r15647 / r15644;
double r15649 = /* ERROR: no complex support in C */;
double r15650 = r15645 - r15644;
double r15651 = r15648 + r15640;
double r15652 = /* ERROR: no complex support in C */;
double r15653 = r15649 * r15652;
double r15654 = r15641 + r15653;
double r15655 = r15654 * r15649;
double r15656 = 4.0;
double r15657 = /* ERROR: no complex support in C */;
double r15658 = r15655 + r15657;
double r15659 = r15658 * r15649;
double r15660 = 7.0;
double r15661 = /* ERROR: no complex support in C */;
double r15662 = r15659 + r15661;
double r15663 = /* ERROR: no complex support in C */;
return r15663;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2020043
(FPCore ()
:name "3.9.2 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (* (* (* (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (* (* (* (complex (- 2) 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (* (complex 5 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (complex 4 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0.0))))