\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 r4220542 = 1.0;
double r4220543 = -r4220542;
double r4220544 = 2.0;
double r4220545 = r4220543 / r4220544;
double r4220546 = 3.0;
double r4220547 = sqrt(r4220546);
double r4220548 = r4220547 / r4220544;
double r4220549 = /* ERROR: no complex support in C */;
double r4220550 = r4220549 * r4220549;
double r4220551 = r4220550 * r4220549;
double r4220552 = r4220551 * r4220549;
double r4220553 = -r4220544;
double r4220554 = 0.0;
double r4220555 = /* ERROR: no complex support in C */;
double r4220556 = r4220555 * r4220549;
double r4220557 = r4220556 * r4220549;
double r4220558 = r4220557 * r4220549;
double r4220559 = r4220552 + r4220558;
double r4220560 = 5.0;
double r4220561 = /* ERROR: no complex support in C */;
double r4220562 = r4220561 * r4220549;
double r4220563 = r4220562 * r4220549;
double r4220564 = r4220559 + r4220563;
double r4220565 = 4.0;
double r4220566 = /* ERROR: no complex support in C */;
double r4220567 = r4220566 * r4220549;
double r4220568 = r4220564 + r4220567;
double r4220569 = 7.0;
double r4220570 = /* ERROR: no complex support in C */;
double r4220571 = r4220568 + r4220570;
double r4220572 = /* ERROR: no complex support in C */;
return r4220572;
}
double f() {
double r4220573 = -0.5;
double r4220574 = 3.0;
double r4220575 = sqrt(r4220574);
double r4220576 = 2.0;
double r4220577 = r4220575 / r4220576;
double r4220578 = /* ERROR: no complex support in C */;
double r4220579 = r4220578 * r4220578;
double r4220580 = r4220579 * r4220578;
double r4220581 = r4220578 * r4220580;
double r4220582 = -2.0;
double r4220583 = 0.0;
double r4220584 = /* ERROR: no complex support in C */;
double r4220585 = r4220584 * r4220578;
double r4220586 = r4220578 * r4220585;
double r4220587 = r4220578 * r4220586;
double r4220588 = r4220581 + r4220587;
double r4220589 = 5.0;
double r4220590 = /* ERROR: no complex support in C */;
double r4220591 = r4220590 * r4220578;
double r4220592 = r4220591 * r4220578;
double r4220593 = r4220588 + r4220592;
double r4220594 = 4.0;
double r4220595 = /* ERROR: no complex support in C */;
double r4220596 = r4220578 * r4220595;
double r4220597 = r4220593 + r4220596;
double r4220598 = 7.0;
double r4220599 = /* ERROR: no complex support in C */;
double r4220600 = r4220597 + r4220599;
double r4220601 = /* ERROR: no complex support in C */;
return r4220601;
}
Initial program 0
Final simplification0
herbie shell --seed 2019104
(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))))