\Im(\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))\Im(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \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) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(-2 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right)\right) + \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) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0 i\right)\right) + \left(7 + 0 i\right)\right))double f() {
double r1531634 = 1.0;
double r1531635 = -r1531634;
double r1531636 = 2.0;
double r1531637 = r1531635 / r1531636;
double r1531638 = 3.0;
double r1531639 = sqrt(r1531638);
double r1531640 = r1531639 / r1531636;
double r1531641 = /* ERROR: no complex support in C */;
double r1531642 = r1531641 * r1531641;
double r1531643 = r1531642 * r1531641;
double r1531644 = r1531643 * r1531641;
double r1531645 = -r1531636;
double r1531646 = 0.0;
double r1531647 = /* ERROR: no complex support in C */;
double r1531648 = r1531647 * r1531641;
double r1531649 = r1531648 * r1531641;
double r1531650 = r1531649 * r1531641;
double r1531651 = r1531644 + r1531650;
double r1531652 = 5.0;
double r1531653 = /* ERROR: no complex support in C */;
double r1531654 = r1531653 * r1531641;
double r1531655 = r1531654 * r1531641;
double r1531656 = r1531651 + r1531655;
double r1531657 = 4.0;
double r1531658 = /* ERROR: no complex support in C */;
double r1531659 = r1531658 * r1531641;
double r1531660 = r1531656 + r1531659;
double r1531661 = 7.0;
double r1531662 = /* ERROR: no complex support in C */;
double r1531663 = r1531660 + r1531662;
double r1531664 = /* ERROR: no complex support in C */;
return r1531664;
}
double f() {
double r1531665 = -0.5;
double r1531666 = 3.0;
double r1531667 = sqrt(r1531666);
double r1531668 = 2.0;
double r1531669 = r1531667 / r1531668;
double r1531670 = /* ERROR: no complex support in C */;
double r1531671 = r1531670 * r1531670;
double r1531672 = r1531671 * r1531670;
double r1531673 = r1531670 * r1531672;
double r1531674 = -2.0;
double r1531675 = 0.0;
double r1531676 = /* ERROR: no complex support in C */;
double r1531677 = r1531676 * r1531670;
double r1531678 = r1531670 * r1531677;
double r1531679 = r1531670 * r1531678;
double r1531680 = r1531673 + r1531679;
double r1531681 = 5.0;
double r1531682 = /* ERROR: no complex support in C */;
double r1531683 = r1531682 * r1531670;
double r1531684 = r1531683 * r1531670;
double r1531685 = r1531680 + r1531684;
double r1531686 = 4.0;
double r1531687 = /* ERROR: no complex support in C */;
double r1531688 = r1531670 * r1531687;
double r1531689 = r1531685 + r1531688;
double r1531690 = 7.0;
double r1531691 = /* ERROR: no complex support in C */;
double r1531692 = r1531689 + r1531691;
double r1531693 = /* ERROR: no complex support in C */;
return r1531693;
}
Initial program 0
Final simplification0
herbie shell --seed 2019112
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+.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))))