\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 r10434 = 1.0;
double r10435 = -r10434;
double r10436 = 2.0;
double r10437 = r10435 / r10436;
double r10438 = 3.0;
double r10439 = sqrt(r10438);
double r10440 = r10439 / r10436;
double r10441 = /* ERROR: no complex support in C */;
double r10442 = r10441 * r10441;
double r10443 = r10442 * r10441;
double r10444 = r10443 * r10441;
double r10445 = -r10436;
double r10446 = 0.0;
double r10447 = /* ERROR: no complex support in C */;
double r10448 = r10447 * r10441;
double r10449 = r10448 * r10441;
double r10450 = r10449 * r10441;
double r10451 = r10444 + r10450;
double r10452 = 5.0;
double r10453 = /* ERROR: no complex support in C */;
double r10454 = r10453 * r10441;
double r10455 = r10454 * r10441;
double r10456 = r10451 + r10455;
double r10457 = 4.0;
double r10458 = /* ERROR: no complex support in C */;
double r10459 = r10458 * r10441;
double r10460 = r10456 + r10459;
double r10461 = 7.0;
double r10462 = /* ERROR: no complex support in C */;
double r10463 = r10460 + r10462;
double r10464 = /* ERROR: no complex support in C */;
return r10464;
}
double f() {
double r10465 = 1.0;
double r10466 = -r10465;
double r10467 = 2.0;
double r10468 = r10466 / r10467;
double r10469 = 3.0;
double r10470 = sqrt(r10469);
double r10471 = r10470 / r10467;
double r10472 = /* ERROR: no complex support in C */;
double r10473 = r10472 * r10472;
double r10474 = r10473 * r10472;
double r10475 = r10472 * r10474;
double r10476 = -r10467;
double r10477 = 0.0;
double r10478 = /* ERROR: no complex support in C */;
double r10479 = r10478 * r10472;
double r10480 = r10472 * r10479;
double r10481 = r10472 * r10480;
double r10482 = r10475 + r10481;
double r10483 = 5.0;
double r10484 = /* ERROR: no complex support in C */;
double r10485 = r10484 * r10472;
double r10486 = r10485 * r10472;
double r10487 = r10482 + r10486;
double r10488 = 4.0;
double r10489 = /* ERROR: no complex support in C */;
double r10490 = r10472 * r10489;
double r10491 = r10487 + r10490;
double r10492 = 7.0;
double r10493 = /* ERROR: no complex support in C */;
double r10494 = r10491 + r10493;
double r10495 = /* ERROR: no complex support in C */;
return r10495;
}
Initial program 0
Final simplification0
herbie shell --seed 2019195 +o rules:numerics
(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))))