\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{4}{\frac{2}{\sqrt{3}}} i\right) + \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) \cdot \left(\left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) + \left(6 + \frac{\sqrt{3}}{2} \cdot -2 i\right)\right)\right))double f() {
double r1149622 = 1.0;
double r1149623 = -r1149622;
double r1149624 = 2.0;
double r1149625 = r1149623 / r1149624;
double r1149626 = 3.0;
double r1149627 = sqrt(r1149626);
double r1149628 = r1149627 / r1149624;
double r1149629 = /* ERROR: no complex support in C */;
double r1149630 = r1149629 * r1149629;
double r1149631 = r1149630 * r1149629;
double r1149632 = r1149631 * r1149629;
double r1149633 = -r1149624;
double r1149634 = 0.0;
double r1149635 = /* ERROR: no complex support in C */;
double r1149636 = r1149635 * r1149629;
double r1149637 = r1149636 * r1149629;
double r1149638 = r1149637 * r1149629;
double r1149639 = r1149632 + r1149638;
double r1149640 = 5.0;
double r1149641 = /* ERROR: no complex support in C */;
double r1149642 = r1149641 * r1149629;
double r1149643 = r1149642 * r1149629;
double r1149644 = r1149639 + r1149643;
double r1149645 = 4.0;
double r1149646 = /* ERROR: no complex support in C */;
double r1149647 = r1149646 * r1149629;
double r1149648 = r1149644 + r1149647;
double r1149649 = 7.0;
double r1149650 = /* ERROR: no complex support in C */;
double r1149651 = r1149648 + r1149650;
double r1149652 = /* ERROR: no complex support in C */;
return r1149652;
}
double f() {
double r1149653 = 5.0;
double r1149654 = 4.0;
double r1149655 = 2.0;
double r1149656 = 3.0;
double r1149657 = sqrt(r1149656);
double r1149658 = r1149655 / r1149657;
double r1149659 = r1149654 / r1149658;
double r1149660 = /* ERROR: no complex support in C */;
double r1149661 = 0.25;
double r1149662 = r1149657 / r1149655;
double r1149663 = r1149662 * r1149662;
double r1149664 = r1149661 - r1149663;
double r1149665 = -r1149662;
double r1149666 = /* ERROR: no complex support in C */;
double r1149667 = 6.0;
double r1149668 = -2.0;
double r1149669 = r1149662 * r1149668;
double r1149670 = /* ERROR: no complex support in C */;
double r1149671 = r1149666 + r1149670;
double r1149672 = r1149666 * r1149671;
double r1149673 = r1149660 + r1149672;
double r1149674 = /* ERROR: no complex support in C */;
return r1149674;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019124
(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))))