\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 r14698 = -1.0;
double r14699 = 1.0;
double r14700 = /* ERROR: no complex support in C */;
double r14701 = r14700 * r14700;
double r14702 = r14701 * r14700;
double r14703 = r14702 * r14700;
double r14704 = r14703 * r14700;
double r14705 = r14704 * r14700;
double r14706 = 6.0;
double r14707 = 0.0;
double r14708 = /* ERROR: no complex support in C */;
double r14709 = r14708 * r14700;
double r14710 = r14709 * r14700;
double r14711 = r14710 * r14700;
double r14712 = r14711 * r14700;
double r14713 = r14712 * r14700;
double r14714 = r14705 + r14713;
double r14715 = 15.0;
double r14716 = /* ERROR: no complex support in C */;
double r14717 = r14716 * r14700;
double r14718 = r14717 * r14700;
double r14719 = r14718 * r14700;
double r14720 = r14719 * r14700;
double r14721 = r14714 + r14720;
double r14722 = 20.0;
double r14723 = /* ERROR: no complex support in C */;
double r14724 = r14723 * r14700;
double r14725 = r14724 * r14700;
double r14726 = r14725 * r14700;
double r14727 = r14721 + r14726;
double r14728 = r14727 + r14718;
double r14729 = r14728 + r14709;
double r14730 = /* ERROR: no complex support in C */;
double r14731 = r14729 + r14730;
double r14732 = /* ERROR: no complex support in C */;
return r14732;
}
double f() {
double r14733 = 0.0;
return r14733;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019168 +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))))