\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 r1081695 = 1.0;
double r1081696 = -r1081695;
double r1081697 = 2.0;
double r1081698 = r1081696 / r1081697;
double r1081699 = 3.0;
double r1081700 = sqrt(r1081699);
double r1081701 = r1081700 / r1081697;
double r1081702 = /* ERROR: no complex support in C */;
double r1081703 = r1081702 * r1081702;
double r1081704 = r1081703 * r1081702;
double r1081705 = r1081704 * r1081702;
double r1081706 = -r1081697;
double r1081707 = 0.0;
double r1081708 = /* ERROR: no complex support in C */;
double r1081709 = r1081708 * r1081702;
double r1081710 = r1081709 * r1081702;
double r1081711 = r1081710 * r1081702;
double r1081712 = r1081705 + r1081711;
double r1081713 = 5.0;
double r1081714 = /* ERROR: no complex support in C */;
double r1081715 = r1081714 * r1081702;
double r1081716 = r1081715 * r1081702;
double r1081717 = r1081712 + r1081716;
double r1081718 = 4.0;
double r1081719 = /* ERROR: no complex support in C */;
double r1081720 = r1081719 * r1081702;
double r1081721 = r1081717 + r1081720;
double r1081722 = 7.0;
double r1081723 = /* ERROR: no complex support in C */;
double r1081724 = r1081721 + r1081723;
double r1081725 = /* ERROR: no complex support in C */;
return r1081725;
}
double f() {
double r1081726 = 5.0;
double r1081727 = 4.0;
double r1081728 = 2.0;
double r1081729 = 3.0;
double r1081730 = sqrt(r1081729);
double r1081731 = r1081728 / r1081730;
double r1081732 = r1081727 / r1081731;
double r1081733 = /* ERROR: no complex support in C */;
double r1081734 = 0.25;
double r1081735 = r1081730 / r1081728;
double r1081736 = r1081735 * r1081735;
double r1081737 = r1081734 - r1081736;
double r1081738 = -r1081735;
double r1081739 = /* ERROR: no complex support in C */;
double r1081740 = 6.0;
double r1081741 = -2.0;
double r1081742 = r1081735 * r1081741;
double r1081743 = /* ERROR: no complex support in C */;
double r1081744 = r1081739 + r1081743;
double r1081745 = r1081739 * r1081744;
double r1081746 = r1081733 + r1081745;
double r1081747 = /* ERROR: no complex support in C */;
return r1081747;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019121
(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))))