\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 r539509 = 1.0;
double r539510 = -r539509;
double r539511 = 2.0;
double r539512 = r539510 / r539511;
double r539513 = 3.0;
double r539514 = sqrt(r539513);
double r539515 = r539514 / r539511;
double r539516 = /* ERROR: no complex support in C */;
double r539517 = r539516 * r539516;
double r539518 = r539517 * r539516;
double r539519 = r539518 * r539516;
double r539520 = -r539511;
double r539521 = 0.0;
double r539522 = /* ERROR: no complex support in C */;
double r539523 = r539522 * r539516;
double r539524 = r539523 * r539516;
double r539525 = r539524 * r539516;
double r539526 = r539519 + r539525;
double r539527 = 5.0;
double r539528 = /* ERROR: no complex support in C */;
double r539529 = r539528 * r539516;
double r539530 = r539529 * r539516;
double r539531 = r539526 + r539530;
double r539532 = 4.0;
double r539533 = /* ERROR: no complex support in C */;
double r539534 = r539533 * r539516;
double r539535 = r539531 + r539534;
double r539536 = 7.0;
double r539537 = /* ERROR: no complex support in C */;
double r539538 = r539535 + r539537;
double r539539 = /* ERROR: no complex support in C */;
return r539539;
}
double f() {
double r539540 = -0.5;
double r539541 = 3.0;
double r539542 = sqrt(r539541);
double r539543 = 2.0;
double r539544 = r539542 / r539543;
double r539545 = /* ERROR: no complex support in C */;
double r539546 = r539545 * r539545;
double r539547 = r539546 * r539545;
double r539548 = r539545 * r539547;
double r539549 = -2.0;
double r539550 = 0.0;
double r539551 = /* ERROR: no complex support in C */;
double r539552 = r539551 * r539545;
double r539553 = r539545 * r539552;
double r539554 = r539545 * r539553;
double r539555 = r539548 + r539554;
double r539556 = 5.0;
double r539557 = /* ERROR: no complex support in C */;
double r539558 = r539557 * r539545;
double r539559 = r539558 * r539545;
double r539560 = r539555 + r539559;
double r539561 = 4.0;
double r539562 = /* ERROR: no complex support in C */;
double r539563 = r539545 * r539562;
double r539564 = r539560 + r539563;
double r539565 = 7.0;
double r539566 = /* ERROR: no complex support in C */;
double r539567 = r539564 + r539566;
double r539568 = /* ERROR: no complex support in C */;
return r539568;
}
Initial program 0
Final simplification0
herbie shell --seed 2019137
(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))))