\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(\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)\right) + \left(\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(\left(-2\right) + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r2510516 = 1.0;
double r2510517 = -r2510516;
double r2510518 = 2.0;
double r2510519 = r2510517 / r2510518;
double r2510520 = 3.0;
double r2510521 = sqrt(r2510520);
double r2510522 = r2510521 / r2510518;
double r2510523 = /* ERROR: no complex support in C */;
double r2510524 = r2510523 * r2510523;
double r2510525 = r2510524 * r2510523;
double r2510526 = r2510525 * r2510523;
double r2510527 = -r2510518;
double r2510528 = 0.0;
double r2510529 = /* ERROR: no complex support in C */;
double r2510530 = r2510529 * r2510523;
double r2510531 = r2510530 * r2510523;
double r2510532 = r2510531 * r2510523;
double r2510533 = r2510526 + r2510532;
double r2510534 = 5.0;
double r2510535 = /* ERROR: no complex support in C */;
double r2510536 = r2510535 * r2510523;
double r2510537 = r2510536 * r2510523;
double r2510538 = r2510533 + r2510537;
double r2510539 = 4.0;
double r2510540 = /* ERROR: no complex support in C */;
double r2510541 = r2510540 * r2510523;
double r2510542 = r2510538 + r2510541;
double r2510543 = 7.0;
double r2510544 = /* ERROR: no complex support in C */;
double r2510545 = r2510542 + r2510544;
double r2510546 = /* ERROR: no complex support in C */;
return r2510546;
}
double f() {
double r2510547 = 1.0;
double r2510548 = -r2510547;
double r2510549 = 2.0;
double r2510550 = r2510548 / r2510549;
double r2510551 = 3.0;
double r2510552 = sqrt(r2510551);
double r2510553 = r2510552 / r2510549;
double r2510554 = /* ERROR: no complex support in C */;
double r2510555 = r2510554 * r2510554;
double r2510556 = r2510555 * r2510554;
double r2510557 = r2510554 * r2510556;
double r2510558 = -r2510549;
double r2510559 = 0.0;
double r2510560 = /* ERROR: no complex support in C */;
double r2510561 = r2510560 * r2510554;
double r2510562 = r2510554 * r2510561;
double r2510563 = r2510554 * r2510562;
double r2510564 = r2510557 + r2510563;
double r2510565 = 5.0;
double r2510566 = /* ERROR: no complex support in C */;
double r2510567 = r2510566 * r2510554;
double r2510568 = r2510567 * r2510554;
double r2510569 = r2510564 + r2510568;
double r2510570 = 4.0;
double r2510571 = /* ERROR: no complex support in C */;
double r2510572 = r2510554 * r2510571;
double r2510573 = r2510569 + r2510572;
double r2510574 = 7.0;
double r2510575 = /* ERROR: no complex support in C */;
double r2510576 = r2510573 + r2510575;
double r2510577 = /* ERROR: no complex support in C */;
return r2510577;
}
Initial program 0
Final simplification0
herbie shell --seed 2019172
(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))))