\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 r2477458 = 1.0;
double r2477459 = -r2477458;
double r2477460 = 2.0;
double r2477461 = r2477459 / r2477460;
double r2477462 = 3.0;
double r2477463 = sqrt(r2477462);
double r2477464 = r2477463 / r2477460;
double r2477465 = /* ERROR: no complex support in C */;
double r2477466 = r2477465 * r2477465;
double r2477467 = r2477466 * r2477465;
double r2477468 = r2477467 * r2477465;
double r2477469 = -r2477460;
double r2477470 = 0.0;
double r2477471 = /* ERROR: no complex support in C */;
double r2477472 = r2477471 * r2477465;
double r2477473 = r2477472 * r2477465;
double r2477474 = r2477473 * r2477465;
double r2477475 = r2477468 + r2477474;
double r2477476 = 5.0;
double r2477477 = /* ERROR: no complex support in C */;
double r2477478 = r2477477 * r2477465;
double r2477479 = r2477478 * r2477465;
double r2477480 = r2477475 + r2477479;
double r2477481 = 4.0;
double r2477482 = /* ERROR: no complex support in C */;
double r2477483 = r2477482 * r2477465;
double r2477484 = r2477480 + r2477483;
double r2477485 = 7.0;
double r2477486 = /* ERROR: no complex support in C */;
double r2477487 = r2477484 + r2477486;
double r2477488 = /* ERROR: no complex support in C */;
return r2477488;
}
double f() {
double r2477489 = -0.5;
double r2477490 = 3.0;
double r2477491 = sqrt(r2477490);
double r2477492 = 2.0;
double r2477493 = r2477491 / r2477492;
double r2477494 = /* ERROR: no complex support in C */;
double r2477495 = r2477494 * r2477494;
double r2477496 = r2477495 * r2477494;
double r2477497 = r2477494 * r2477496;
double r2477498 = -2.0;
double r2477499 = 0.0;
double r2477500 = /* ERROR: no complex support in C */;
double r2477501 = r2477500 * r2477494;
double r2477502 = r2477494 * r2477501;
double r2477503 = r2477494 * r2477502;
double r2477504 = r2477497 + r2477503;
double r2477505 = 5.0;
double r2477506 = /* ERROR: no complex support in C */;
double r2477507 = r2477506 * r2477494;
double r2477508 = r2477507 * r2477494;
double r2477509 = r2477504 + r2477508;
double r2477510 = 4.0;
double r2477511 = /* ERROR: no complex support in C */;
double r2477512 = r2477494 * r2477511;
double r2477513 = r2477509 + r2477512;
double r2477514 = 7.0;
double r2477515 = /* ERROR: no complex support in C */;
double r2477516 = r2477513 + r2477515;
double r2477517 = /* ERROR: no complex support in C */;
return r2477517;
}
Initial program 0
Final simplification0
herbie shell --seed 2019125
(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))))