\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 r16054 = -1.0;
double r16055 = 1.0;
double r16056 = /* ERROR: no complex support in C */;
double r16057 = r16056 * r16056;
double r16058 = r16057 * r16056;
double r16059 = r16058 * r16056;
double r16060 = r16059 * r16056;
double r16061 = r16060 * r16056;
double r16062 = 6.0;
double r16063 = 0.0;
double r16064 = /* ERROR: no complex support in C */;
double r16065 = r16064 * r16056;
double r16066 = r16065 * r16056;
double r16067 = r16066 * r16056;
double r16068 = r16067 * r16056;
double r16069 = r16068 * r16056;
double r16070 = r16061 + r16069;
double r16071 = 15.0;
double r16072 = /* ERROR: no complex support in C */;
double r16073 = r16072 * r16056;
double r16074 = r16073 * r16056;
double r16075 = r16074 * r16056;
double r16076 = r16075 * r16056;
double r16077 = r16070 + r16076;
double r16078 = 20.0;
double r16079 = /* ERROR: no complex support in C */;
double r16080 = r16079 * r16056;
double r16081 = r16080 * r16056;
double r16082 = r16081 * r16056;
double r16083 = r16077 + r16082;
double r16084 = r16083 + r16074;
double r16085 = r16084 + r16065;
double r16086 = /* ERROR: no complex support in C */;
double r16087 = r16085 + r16086;
double r16088 = /* ERROR: no complex support in C */;
return r16088;
}
double f() {
double r16089 = 0.0;
return r16089;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019163
(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))))