\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 r2407567 = 1.0;
double r2407568 = -r2407567;
double r2407569 = 2.0;
double r2407570 = r2407568 / r2407569;
double r2407571 = 3.0;
double r2407572 = sqrt(r2407571);
double r2407573 = r2407572 / r2407569;
double r2407574 = /* ERROR: no complex support in C */;
double r2407575 = r2407574 * r2407574;
double r2407576 = r2407575 * r2407574;
double r2407577 = r2407576 * r2407574;
double r2407578 = -r2407569;
double r2407579 = 0.0;
double r2407580 = /* ERROR: no complex support in C */;
double r2407581 = r2407580 * r2407574;
double r2407582 = r2407581 * r2407574;
double r2407583 = r2407582 * r2407574;
double r2407584 = r2407577 + r2407583;
double r2407585 = 5.0;
double r2407586 = /* ERROR: no complex support in C */;
double r2407587 = r2407586 * r2407574;
double r2407588 = r2407587 * r2407574;
double r2407589 = r2407584 + r2407588;
double r2407590 = 4.0;
double r2407591 = /* ERROR: no complex support in C */;
double r2407592 = r2407591 * r2407574;
double r2407593 = r2407589 + r2407592;
double r2407594 = 7.0;
double r2407595 = /* ERROR: no complex support in C */;
double r2407596 = r2407593 + r2407595;
double r2407597 = /* ERROR: no complex support in C */;
return r2407597;
}
double f() {
double r2407598 = 1.0;
double r2407599 = -r2407598;
double r2407600 = 2.0;
double r2407601 = r2407599 / r2407600;
double r2407602 = 3.0;
double r2407603 = sqrt(r2407602);
double r2407604 = r2407603 / r2407600;
double r2407605 = /* ERROR: no complex support in C */;
double r2407606 = r2407605 * r2407605;
double r2407607 = r2407606 * r2407605;
double r2407608 = r2407605 * r2407607;
double r2407609 = -r2407600;
double r2407610 = 0.0;
double r2407611 = /* ERROR: no complex support in C */;
double r2407612 = r2407611 * r2407605;
double r2407613 = r2407605 * r2407612;
double r2407614 = r2407605 * r2407613;
double r2407615 = r2407608 + r2407614;
double r2407616 = 5.0;
double r2407617 = /* ERROR: no complex support in C */;
double r2407618 = r2407617 * r2407605;
double r2407619 = r2407618 * r2407605;
double r2407620 = r2407615 + r2407619;
double r2407621 = 4.0;
double r2407622 = /* ERROR: no complex support in C */;
double r2407623 = r2407605 * r2407622;
double r2407624 = r2407620 + r2407623;
double r2407625 = 7.0;
double r2407626 = /* ERROR: no complex support in C */;
double r2407627 = r2407624 + r2407626;
double r2407628 = /* ERROR: no complex support in C */;
return r2407628;
}
Initial program 0
Final simplification0
herbie shell --seed 2019168 +o rules:numerics
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (*.c (*.c (*.c (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))) (*.c (*.c (*.c (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)))) (*.c (*.c (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)))) (*.c (complex 4.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (complex 7.0 0.0))))