\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.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))\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.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 r2617659 = 1.0;
double r2617660 = -r2617659;
double r2617661 = 2.0;
double r2617662 = r2617660 / r2617661;
double r2617663 = 3.0;
double r2617664 = sqrt(r2617663);
double r2617665 = r2617664 / r2617661;
double r2617666 = /* ERROR: no complex support in C */;
double r2617667 = r2617666 * r2617666;
double r2617668 = r2617667 * r2617666;
double r2617669 = r2617668 * r2617666;
double r2617670 = -r2617661;
double r2617671 = 0.0;
double r2617672 = /* ERROR: no complex support in C */;
double r2617673 = r2617672 * r2617666;
double r2617674 = r2617673 * r2617666;
double r2617675 = r2617674 * r2617666;
double r2617676 = r2617669 + r2617675;
double r2617677 = 5.0;
double r2617678 = /* ERROR: no complex support in C */;
double r2617679 = r2617678 * r2617666;
double r2617680 = r2617679 * r2617666;
double r2617681 = r2617676 + r2617680;
double r2617682 = 4.0;
double r2617683 = /* ERROR: no complex support in C */;
double r2617684 = r2617683 * r2617666;
double r2617685 = r2617681 + r2617684;
double r2617686 = 7.0;
double r2617687 = /* ERROR: no complex support in C */;
double r2617688 = r2617685 + r2617687;
double r2617689 = /* ERROR: no complex support in C */;
return r2617689;
}
double f() {
double r2617690 = 1.0;
double r2617691 = -r2617690;
double r2617692 = 2.0;
double r2617693 = r2617691 / r2617692;
double r2617694 = 3.0;
double r2617695 = sqrt(r2617694);
double r2617696 = r2617695 / r2617692;
double r2617697 = /* ERROR: no complex support in C */;
double r2617698 = r2617697 * r2617697;
double r2617699 = r2617698 * r2617697;
double r2617700 = r2617699 * r2617697;
double r2617701 = -r2617692;
double r2617702 = 0.0;
double r2617703 = /* ERROR: no complex support in C */;
double r2617704 = r2617703 * r2617697;
double r2617705 = r2617704 * r2617697;
double r2617706 = r2617705 * r2617697;
double r2617707 = r2617700 + r2617706;
double r2617708 = 5.0;
double r2617709 = /* ERROR: no complex support in C */;
double r2617710 = r2617709 * r2617697;
double r2617711 = r2617710 * r2617697;
double r2617712 = r2617707 + r2617711;
double r2617713 = 4.0;
double r2617714 = /* ERROR: no complex support in C */;
double r2617715 = r2617714 * r2617697;
double r2617716 = r2617712 + r2617715;
double r2617717 = 7.0;
double r2617718 = /* ERROR: no complex support in C */;
double r2617719 = r2617716 + r2617718;
double r2617720 = /* ERROR: no complex support in C */;
return r2617720;
}
Initial program 0
Final simplification0
herbie shell --seed 2019173
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+ (+ (+ (+ (* (* (* (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (* (* (* (complex (- 2.0) 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (* (complex 5.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (complex 4.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (complex 7.0 0.0))))