\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(\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))double f() {
double r25544 = 1.0;
double r25545 = -r25544;
double r25546 = 2.0;
double r25547 = r25545 / r25546;
double r25548 = 3.0;
double r25549 = sqrt(r25548);
double r25550 = r25549 / r25546;
double r25551 = /* ERROR: no complex support in C */;
double r25552 = r25551 * r25551;
double r25553 = r25552 * r25551;
double r25554 = r25553 * r25551;
double r25555 = -r25546;
double r25556 = 0.0;
double r25557 = /* ERROR: no complex support in C */;
double r25558 = r25557 * r25551;
double r25559 = r25558 * r25551;
double r25560 = r25559 * r25551;
double r25561 = r25554 + r25560;
double r25562 = 5.0;
double r25563 = /* ERROR: no complex support in C */;
double r25564 = r25563 * r25551;
double r25565 = r25564 * r25551;
double r25566 = r25561 + r25565;
double r25567 = 4.0;
double r25568 = /* ERROR: no complex support in C */;
double r25569 = r25568 * r25551;
double r25570 = r25566 + r25569;
double r25571 = 7.0;
double r25572 = /* ERROR: no complex support in C */;
double r25573 = r25570 + r25572;
double r25574 = /* ERROR: no complex support in C */;
return r25574;
}
double f() {
double r25575 = 1.0;
double r25576 = -r25575;
double r25577 = 2.0;
double r25578 = r25576 / r25577;
double r25579 = 3.0;
double r25580 = sqrt(r25579);
double r25581 = r25580 / r25577;
double r25582 = /* ERROR: no complex support in C */;
double r25583 = r25582 * r25582;
double r25584 = r25583 * r25582;
double r25585 = r25584 * r25582;
double r25586 = -r25577;
double r25587 = 0.0;
double r25588 = /* ERROR: no complex support in C */;
double r25589 = r25588 * r25582;
double r25590 = r25589 * r25582;
double r25591 = r25590 * r25582;
double r25592 = r25585 + r25591;
double r25593 = 5.0;
double r25594 = /* ERROR: no complex support in C */;
double r25595 = r25594 * r25582;
double r25596 = r25595 * r25582;
double r25597 = r25592 + r25596;
double r25598 = 4.0;
double r25599 = /* ERROR: no complex support in C */;
double r25600 = r25599 * r25582;
double r25601 = r25597 + r25600;
double r25602 = 7.0;
double r25603 = /* ERROR: no complex support in C */;
double r25604 = r25601 + r25603;
double r25605 = /* ERROR: no complex support in C */;
return r25605;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020089
(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))))