\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Re(\left(\left(5 + \frac{\sqrt{3}}{2} \cdot 4 i\right) + \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right) \cdot \left(\left(6 + \frac{-2 \cdot \sqrt{3}}{2} i\right) + \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \frac{-\sqrt{3}}{2} i\right)\right)\right))double f() {
double r1114576 = 1.0;
double r1114577 = -r1114576;
double r1114578 = 2.0;
double r1114579 = r1114577 / r1114578;
double r1114580 = 3.0;
double r1114581 = sqrt(r1114580);
double r1114582 = r1114581 / r1114578;
double r1114583 = /* ERROR: no complex support in C */;
double r1114584 = r1114583 * r1114583;
double r1114585 = r1114584 * r1114583;
double r1114586 = r1114585 * r1114583;
double r1114587 = -r1114578;
double r1114588 = 0.0;
double r1114589 = /* ERROR: no complex support in C */;
double r1114590 = r1114589 * r1114583;
double r1114591 = r1114590 * r1114583;
double r1114592 = r1114591 * r1114583;
double r1114593 = r1114586 + r1114592;
double r1114594 = 5.0;
double r1114595 = /* ERROR: no complex support in C */;
double r1114596 = r1114595 * r1114583;
double r1114597 = r1114596 * r1114583;
double r1114598 = r1114593 + r1114597;
double r1114599 = 4.0;
double r1114600 = /* ERROR: no complex support in C */;
double r1114601 = r1114600 * r1114583;
double r1114602 = r1114598 + r1114601;
double r1114603 = 7.0;
double r1114604 = /* ERROR: no complex support in C */;
double r1114605 = r1114602 + r1114604;
double r1114606 = /* ERROR: no complex support in C */;
return r1114606;
}
double f() {
double r1114607 = 5.0;
double r1114608 = 3.0;
double r1114609 = sqrt(r1114608);
double r1114610 = 2.0;
double r1114611 = r1114609 / r1114610;
double r1114612 = 4.0;
double r1114613 = r1114611 * r1114612;
double r1114614 = /* ERROR: no complex support in C */;
double r1114615 = 0.25;
double r1114616 = r1114611 * r1114611;
double r1114617 = r1114615 - r1114616;
double r1114618 = -r1114609;
double r1114619 = r1114618 / r1114610;
double r1114620 = /* ERROR: no complex support in C */;
double r1114621 = 6.0;
double r1114622 = -2.0;
double r1114623 = r1114622 * r1114609;
double r1114624 = r1114623 / r1114610;
double r1114625 = /* ERROR: no complex support in C */;
double r1114626 = r1114625 + r1114620;
double r1114627 = r1114620 * r1114626;
double r1114628 = r1114614 + r1114627;
double r1114629 = /* ERROR: no complex support in C */;
return r1114629;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019112 +o rules:numerics
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))