\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 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 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 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 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0 i\right)\right))
0
double f() {
double r14711 = -1.0;
double r14712 = 1.0;
double r14713 = /* ERROR: no complex support in C */;
double r14714 = r14713 * r14713;
double r14715 = r14714 * r14713;
double r14716 = r14715 * r14713;
double r14717 = r14716 * r14713;
double r14718 = r14717 * r14713;
double r14719 = 6.0;
double r14720 = 0.0;
double r14721 = /* ERROR: no complex support in C */;
double r14722 = r14721 * r14713;
double r14723 = r14722 * r14713;
double r14724 = r14723 * r14713;
double r14725 = r14724 * r14713;
double r14726 = r14725 * r14713;
double r14727 = r14718 + r14726;
double r14728 = 15.0;
double r14729 = /* ERROR: no complex support in C */;
double r14730 = r14729 * r14713;
double r14731 = r14730 * r14713;
double r14732 = r14731 * r14713;
double r14733 = r14732 * r14713;
double r14734 = r14727 + r14733;
double r14735 = 20.0;
double r14736 = /* ERROR: no complex support in C */;
double r14737 = r14736 * r14713;
double r14738 = r14737 * r14713;
double r14739 = r14738 * r14713;
double r14740 = r14734 + r14739;
double r14741 = r14740 + r14731;
double r14742 = r14741 + r14722;
double r14743 = /* ERROR: no complex support in C */;
double r14744 = r14742 + r14743;
double r14745 = /* ERROR: no complex support in C */;
return r14745;
}
double f() {
double r14746 = 0.0;
return r14746;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019162 +o rules:numerics
(FPCore ()
:name "3.9.1 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (+.c (+.c (*.c (*.c (*.c (*.c (*.c (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (*.c (*.c (*.c (*.c (*.c (complex 6 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (complex 20 0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1))) (*.c (complex 6 0) (complex -1 1))) (complex 1 0))))