\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 r14763 = -1.0;
double r14764 = 1.0;
double r14765 = /* ERROR: no complex support in C */;
double r14766 = r14765 * r14765;
double r14767 = r14766 * r14765;
double r14768 = r14767 * r14765;
double r14769 = r14768 * r14765;
double r14770 = r14769 * r14765;
double r14771 = 6.0;
double r14772 = 0.0;
double r14773 = /* ERROR: no complex support in C */;
double r14774 = r14773 * r14765;
double r14775 = r14774 * r14765;
double r14776 = r14775 * r14765;
double r14777 = r14776 * r14765;
double r14778 = r14777 * r14765;
double r14779 = r14770 + r14778;
double r14780 = 15.0;
double r14781 = /* ERROR: no complex support in C */;
double r14782 = r14781 * r14765;
double r14783 = r14782 * r14765;
double r14784 = r14783 * r14765;
double r14785 = r14784 * r14765;
double r14786 = r14779 + r14785;
double r14787 = 20.0;
double r14788 = /* ERROR: no complex support in C */;
double r14789 = r14788 * r14765;
double r14790 = r14789 * r14765;
double r14791 = r14790 * r14765;
double r14792 = r14786 + r14791;
double r14793 = r14792 + r14783;
double r14794 = r14793 + r14774;
double r14795 = /* ERROR: no complex support in C */;
double r14796 = r14794 + r14795;
double r14797 = /* ERROR: no complex support in C */;
return r14797;
}
double f() {
double r14798 = 0.0;
return r14798;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019163 +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))))