\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 r1190075 = -1.0;
double r1190076 = 1.0;
double r1190077 = /* ERROR: no complex support in C */;
double r1190078 = r1190077 * r1190077;
double r1190079 = r1190078 * r1190077;
double r1190080 = r1190079 * r1190077;
double r1190081 = r1190080 * r1190077;
double r1190082 = r1190081 * r1190077;
double r1190083 = 6.0;
double r1190084 = 0.0;
double r1190085 = /* ERROR: no complex support in C */;
double r1190086 = r1190085 * r1190077;
double r1190087 = r1190086 * r1190077;
double r1190088 = r1190087 * r1190077;
double r1190089 = r1190088 * r1190077;
double r1190090 = r1190089 * r1190077;
double r1190091 = r1190082 + r1190090;
double r1190092 = 15.0;
double r1190093 = /* ERROR: no complex support in C */;
double r1190094 = r1190093 * r1190077;
double r1190095 = r1190094 * r1190077;
double r1190096 = r1190095 * r1190077;
double r1190097 = r1190096 * r1190077;
double r1190098 = r1190091 + r1190097;
double r1190099 = 20.0;
double r1190100 = /* ERROR: no complex support in C */;
double r1190101 = r1190100 * r1190077;
double r1190102 = r1190101 * r1190077;
double r1190103 = r1190102 * r1190077;
double r1190104 = r1190098 + r1190103;
double r1190105 = r1190104 + r1190095;
double r1190106 = r1190105 + r1190086;
double r1190107 = /* ERROR: no complex support in C */;
double r1190108 = r1190106 + r1190107;
double r1190109 = /* ERROR: no complex support in C */;
return r1190109;
}
double f() {
double r1190110 = 0.0;
return r1190110;
}
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))))