\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 r20693 = -1.0;
double r20694 = 1.0;
double r20695 = /* ERROR: no complex support in C */;
double r20696 = r20695 * r20695;
double r20697 = r20696 * r20695;
double r20698 = r20697 * r20695;
double r20699 = r20698 * r20695;
double r20700 = r20699 * r20695;
double r20701 = 6.0;
double r20702 = 0.0;
double r20703 = /* ERROR: no complex support in C */;
double r20704 = r20703 * r20695;
double r20705 = r20704 * r20695;
double r20706 = r20705 * r20695;
double r20707 = r20706 * r20695;
double r20708 = r20707 * r20695;
double r20709 = r20700 + r20708;
double r20710 = 15.0;
double r20711 = /* ERROR: no complex support in C */;
double r20712 = r20711 * r20695;
double r20713 = r20712 * r20695;
double r20714 = r20713 * r20695;
double r20715 = r20714 * r20695;
double r20716 = r20709 + r20715;
double r20717 = 20.0;
double r20718 = /* ERROR: no complex support in C */;
double r20719 = r20718 * r20695;
double r20720 = r20719 * r20695;
double r20721 = r20720 * r20695;
double r20722 = r20716 + r20721;
double r20723 = r20722 + r20713;
double r20724 = r20723 + r20704;
double r20725 = /* ERROR: no complex support in C */;
double r20726 = r20724 + r20725;
double r20727 = /* ERROR: no complex support in C */;
return r20727;
}
double f() {
double r20728 = -1.0;
double r20729 = 1.0;
double r20730 = /* ERROR: no complex support in C */;
double r20731 = r20730 * r20730;
double r20732 = r20731 * r20730;
double r20733 = r20732 * r20730;
double r20734 = r20733 * r20730;
double r20735 = r20734 * r20730;
double r20736 = 6.0;
double r20737 = 0.0;
double r20738 = /* ERROR: no complex support in C */;
double r20739 = r20738 * r20730;
double r20740 = r20739 * r20730;
double r20741 = r20740 * r20730;
double r20742 = r20741 * r20730;
double r20743 = r20742 * r20730;
double r20744 = r20735 + r20743;
double r20745 = 15.0;
double r20746 = /* ERROR: no complex support in C */;
double r20747 = r20746 * r20730;
double r20748 = r20747 * r20730;
double r20749 = r20748 * r20730;
double r20750 = r20749 * r20730;
double r20751 = r20744 + r20750;
double r20752 = 20.0;
double r20753 = /* ERROR: no complex support in C */;
double r20754 = r20753 * r20730;
double r20755 = r20754 * r20730;
double r20756 = r20755 * r20730;
double r20757 = r20751 + r20756;
double r20758 = r20757 + r20748;
double r20759 = r20758 + r20739;
double r20760 = /* ERROR: no complex support in C */;
double r20761 = r20759 + r20760;
double r20762 = /* ERROR: no complex support in C */;
return r20762;
}
Initial program 0
Final simplification0
herbie shell --seed 197574269
(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))))