\Im(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(\left(\left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\Im(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(\left(\left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
double f() {
double r16601 = -1.0;
double r16602 = 1.0;
double r16603 = /* ERROR: no complex support in C */;
double r16604 = r16603 * r16603;
double r16605 = r16604 * r16603;
double r16606 = r16605 * r16603;
double r16607 = r16606 * r16603;
double r16608 = r16607 * r16603;
double r16609 = 6.0;
double r16610 = 0.0;
double r16611 = /* ERROR: no complex support in C */;
double r16612 = r16611 * r16603;
double r16613 = r16612 * r16603;
double r16614 = r16613 * r16603;
double r16615 = r16614 * r16603;
double r16616 = r16615 * r16603;
double r16617 = r16608 + r16616;
double r16618 = 15.0;
double r16619 = /* ERROR: no complex support in C */;
double r16620 = r16619 * r16603;
double r16621 = r16620 * r16603;
double r16622 = r16621 * r16603;
double r16623 = r16622 * r16603;
double r16624 = r16617 + r16623;
double r16625 = 20.0;
double r16626 = /* ERROR: no complex support in C */;
double r16627 = r16626 * r16603;
double r16628 = r16627 * r16603;
double r16629 = r16628 * r16603;
double r16630 = r16624 + r16629;
double r16631 = r16630 + r16621;
double r16632 = r16631 + r16612;
double r16633 = /* ERROR: no complex support in C */;
double r16634 = r16632 + r16633;
double r16635 = /* ERROR: no complex support in C */;
return r16635;
}
double f() {
double r16636 = -1.0;
double r16637 = 1.0;
double r16638 = /* ERROR: no complex support in C */;
double r16639 = r16638 * r16638;
double r16640 = r16639 * r16638;
double r16641 = r16640 * r16638;
double r16642 = r16641 * r16638;
double r16643 = r16642 * r16638;
double r16644 = 6.0;
double r16645 = 0.0;
double r16646 = /* ERROR: no complex support in C */;
double r16647 = r16646 * r16638;
double r16648 = r16647 * r16638;
double r16649 = r16648 * r16638;
double r16650 = r16649 * r16638;
double r16651 = r16650 * r16638;
double r16652 = r16643 + r16651;
double r16653 = 15.0;
double r16654 = /* ERROR: no complex support in C */;
double r16655 = r16654 * r16638;
double r16656 = r16655 * r16638;
double r16657 = r16656 * r16638;
double r16658 = r16657 * r16638;
double r16659 = r16652 + r16658;
double r16660 = 20.0;
double r16661 = /* ERROR: no complex support in C */;
double r16662 = r16661 * r16638;
double r16663 = r16662 * r16638;
double r16664 = r16663 * r16638;
double r16665 = r16659 + r16664;
double r16666 = r16665 + r16656;
double r16667 = r16666 + r16647;
double r16668 = /* ERROR: no complex support in C */;
double r16669 = r16667 + r16668;
double r16670 = /* ERROR: no complex support in C */;
return r16670;
}
Initial program 0
Final simplification0
herbie shell --seed 2020045
(FPCore ()
:name "3.9.1 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))