\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 r11463 = 1.0;
double r11464 = -r11463;
double r11465 = 2.0;
double r11466 = r11464 / r11465;
double r11467 = 3.0;
double r11468 = sqrt(r11467);
double r11469 = r11468 / r11465;
double r11470 = /* ERROR: no complex support in C */;
double r11471 = r11470 * r11470;
double r11472 = r11471 * r11470;
double r11473 = r11472 * r11470;
double r11474 = -r11465;
double r11475 = 0.0;
double r11476 = /* ERROR: no complex support in C */;
double r11477 = r11476 * r11470;
double r11478 = r11477 * r11470;
double r11479 = r11478 * r11470;
double r11480 = r11473 + r11479;
double r11481 = 5.0;
double r11482 = /* ERROR: no complex support in C */;
double r11483 = r11482 * r11470;
double r11484 = r11483 * r11470;
double r11485 = r11480 + r11484;
double r11486 = 4.0;
double r11487 = /* ERROR: no complex support in C */;
double r11488 = r11487 * r11470;
double r11489 = r11485 + r11488;
double r11490 = 7.0;
double r11491 = /* ERROR: no complex support in C */;
double r11492 = r11489 + r11491;
double r11493 = /* ERROR: no complex support in C */;
return r11493;
}
double f() {
double r11494 = 1.0;
double r11495 = -r11494;
double r11496 = 2.0;
double r11497 = r11495 / r11496;
double r11498 = 3.0;
double r11499 = sqrt(r11498);
double r11500 = r11499 / r11496;
double r11501 = /* ERROR: no complex support in C */;
double r11502 = r11501 * r11501;
double r11503 = r11502 * r11501;
double r11504 = r11503 * r11501;
double r11505 = -r11496;
double r11506 = 0.0;
double r11507 = /* ERROR: no complex support in C */;
double r11508 = r11507 * r11501;
double r11509 = r11508 * r11501;
double r11510 = r11509 * r11501;
double r11511 = r11504 + r11510;
double r11512 = 5.0;
double r11513 = /* ERROR: no complex support in C */;
double r11514 = r11513 * r11501;
double r11515 = r11514 * r11501;
double r11516 = r11511 + r11515;
double r11517 = 4.0;
double r11518 = /* ERROR: no complex support in C */;
double r11519 = r11518 * r11501;
double r11520 = r11516 + r11519;
double r11521 = 7.0;
double r11522 = /* ERROR: no complex support in C */;
double r11523 = r11520 + r11522;
double r11524 = /* ERROR: no complex support in C */;
return r11524;
}
Initial program 0
Final simplification0
herbie shell --seed 2020046
(FPCore ()
:name "3.9.2 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (* (* (* (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (* (* (* (complex (- 2) 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (* (complex 5 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (complex 4 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0.0))))