\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 r42621 = -1.0;
double r42622 = 1.0;
double r42623 = /* ERROR: no complex support in C */;
double r42624 = r42623 * r42623;
double r42625 = r42624 * r42623;
double r42626 = r42625 * r42623;
double r42627 = r42626 * r42623;
double r42628 = r42627 * r42623;
double r42629 = 6.0;
double r42630 = 0.0;
double r42631 = /* ERROR: no complex support in C */;
double r42632 = r42631 * r42623;
double r42633 = r42632 * r42623;
double r42634 = r42633 * r42623;
double r42635 = r42634 * r42623;
double r42636 = r42635 * r42623;
double r42637 = r42628 + r42636;
double r42638 = 15.0;
double r42639 = /* ERROR: no complex support in C */;
double r42640 = r42639 * r42623;
double r42641 = r42640 * r42623;
double r42642 = r42641 * r42623;
double r42643 = r42642 * r42623;
double r42644 = r42637 + r42643;
double r42645 = 20.0;
double r42646 = /* ERROR: no complex support in C */;
double r42647 = r42646 * r42623;
double r42648 = r42647 * r42623;
double r42649 = r42648 * r42623;
double r42650 = r42644 + r42649;
double r42651 = r42650 + r42641;
double r42652 = r42651 + r42632;
double r42653 = /* ERROR: no complex support in C */;
double r42654 = r42652 + r42653;
double r42655 = /* ERROR: no complex support in C */;
return r42655;
}
double f() {
double r42656 = -1.0;
double r42657 = 1.0;
double r42658 = /* ERROR: no complex support in C */;
double r42659 = r42658 * r42658;
double r42660 = r42659 * r42658;
double r42661 = r42660 * r42658;
double r42662 = r42661 * r42658;
double r42663 = r42662 * r42658;
double r42664 = 6.0;
double r42665 = 0.0;
double r42666 = /* ERROR: no complex support in C */;
double r42667 = r42666 * r42658;
double r42668 = r42667 * r42658;
double r42669 = r42668 * r42658;
double r42670 = r42669 * r42658;
double r42671 = r42670 * r42658;
double r42672 = r42663 + r42671;
double r42673 = 15.0;
double r42674 = /* ERROR: no complex support in C */;
double r42675 = r42674 * r42658;
double r42676 = r42675 * r42658;
double r42677 = r42676 * r42658;
double r42678 = r42677 * r42658;
double r42679 = r42672 + r42678;
double r42680 = 20.0;
double r42681 = /* ERROR: no complex support in C */;
double r42682 = r42681 * r42658;
double r42683 = r42682 * r42658;
double r42684 = r42683 * r42658;
double r42685 = r42679 + r42684;
double r42686 = r42685 + r42676;
double r42687 = r42686 + r42667;
double r42688 = /* ERROR: no complex support in C */;
double r42689 = r42687 + r42688;
double r42690 = /* ERROR: no complex support in C */;
return r42690;
}
Initial program 0
Final simplification0
herbie shell --seed 2020062
(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))))