\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 r2472389 = 1.0;
double r2472390 = -r2472389;
double r2472391 = 2.0;
double r2472392 = r2472390 / r2472391;
double r2472393 = 3.0;
double r2472394 = sqrt(r2472393);
double r2472395 = r2472394 / r2472391;
double r2472396 = /* ERROR: no complex support in C */;
double r2472397 = r2472396 * r2472396;
double r2472398 = r2472397 * r2472396;
double r2472399 = r2472398 * r2472396;
double r2472400 = -r2472391;
double r2472401 = 0.0;
double r2472402 = /* ERROR: no complex support in C */;
double r2472403 = r2472402 * r2472396;
double r2472404 = r2472403 * r2472396;
double r2472405 = r2472404 * r2472396;
double r2472406 = r2472399 + r2472405;
double r2472407 = 5.0;
double r2472408 = /* ERROR: no complex support in C */;
double r2472409 = r2472408 * r2472396;
double r2472410 = r2472409 * r2472396;
double r2472411 = r2472406 + r2472410;
double r2472412 = 4.0;
double r2472413 = /* ERROR: no complex support in C */;
double r2472414 = r2472413 * r2472396;
double r2472415 = r2472411 + r2472414;
double r2472416 = 7.0;
double r2472417 = /* ERROR: no complex support in C */;
double r2472418 = r2472415 + r2472417;
double r2472419 = /* ERROR: no complex support in C */;
return r2472419;
}
double f() {
double r2472420 = 1.0;
double r2472421 = -r2472420;
double r2472422 = 2.0;
double r2472423 = r2472421 / r2472422;
double r2472424 = 3.0;
double r2472425 = sqrt(r2472424);
double r2472426 = r2472425 / r2472422;
double r2472427 = /* ERROR: no complex support in C */;
double r2472428 = r2472427 * r2472427;
double r2472429 = r2472428 * r2472427;
double r2472430 = r2472427 * r2472429;
double r2472431 = -r2472422;
double r2472432 = 0.0;
double r2472433 = /* ERROR: no complex support in C */;
double r2472434 = r2472433 * r2472427;
double r2472435 = r2472427 * r2472434;
double r2472436 = r2472427 * r2472435;
double r2472437 = r2472430 + r2472436;
double r2472438 = 5.0;
double r2472439 = /* ERROR: no complex support in C */;
double r2472440 = r2472439 * r2472427;
double r2472441 = r2472440 * r2472427;
double r2472442 = r2472437 + r2472441;
double r2472443 = 4.0;
double r2472444 = /* ERROR: no complex support in C */;
double r2472445 = r2472427 * r2472444;
double r2472446 = r2472442 + r2472445;
double r2472447 = 7.0;
double r2472448 = /* ERROR: no complex support in C */;
double r2472449 = r2472446 + r2472448;
double r2472450 = /* ERROR: no complex support in C */;
return r2472450;
}
Initial program 0
Final simplification0
herbie shell --seed 2019170
(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))))