\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
double f() {
double r39031 = -1.0;
double r39032 = 1.0;
double r39033 = /* ERROR: no complex support in C */;
double r39034 = r39033 * r39033;
double r39035 = r39034 * r39033;
double r39036 = r39035 * r39033;
double r39037 = r39036 * r39033;
double r39038 = r39037 * r39033;
double r39039 = 6.0;
double r39040 = 0.0;
double r39041 = /* ERROR: no complex support in C */;
double r39042 = r39041 * r39033;
double r39043 = r39042 * r39033;
double r39044 = r39043 * r39033;
double r39045 = r39044 * r39033;
double r39046 = r39045 * r39033;
double r39047 = r39038 + r39046;
double r39048 = 15.0;
double r39049 = /* ERROR: no complex support in C */;
double r39050 = r39049 * r39033;
double r39051 = r39050 * r39033;
double r39052 = r39051 * r39033;
double r39053 = r39052 * r39033;
double r39054 = r39047 + r39053;
double r39055 = 20.0;
double r39056 = /* ERROR: no complex support in C */;
double r39057 = r39056 * r39033;
double r39058 = r39057 * r39033;
double r39059 = r39058 * r39033;
double r39060 = r39054 + r39059;
double r39061 = r39060 + r39051;
double r39062 = r39061 + r39042;
double r39063 = /* ERROR: no complex support in C */;
double r39064 = r39062 + r39063;
double r39065 = /* ERROR: no complex support in C */;
return r39065;
}
double f() {
double r39066 = -1.0;
double r39067 = 1.0;
double r39068 = /* ERROR: no complex support in C */;
double r39069 = r39068 * r39068;
double r39070 = r39069 * r39068;
double r39071 = r39070 * r39068;
double r39072 = r39071 * r39068;
double r39073 = r39072 * r39068;
double r39074 = 6.0;
double r39075 = 0.0;
double r39076 = /* ERROR: no complex support in C */;
double r39077 = r39076 * r39068;
double r39078 = r39077 * r39068;
double r39079 = r39078 * r39068;
double r39080 = r39079 * r39068;
double r39081 = r39080 * r39068;
double r39082 = r39073 + r39081;
double r39083 = 15.0;
double r39084 = /* ERROR: no complex support in C */;
double r39085 = r39084 * r39068;
double r39086 = r39085 * r39068;
double r39087 = r39086 * r39068;
double r39088 = r39087 * r39068;
double r39089 = r39082 + r39088;
double r39090 = 20.0;
double r39091 = /* ERROR: no complex support in C */;
double r39092 = r39091 * r39068;
double r39093 = r39092 * r39068;
double r39094 = r39093 * r39068;
double r39095 = r39089 + r39094;
double r39096 = r39095 + r39086;
double r39097 = r39096 + r39077;
double r39098 = /* ERROR: no complex support in C */;
double r39099 = r39097 + r39098;
double r39100 = /* ERROR: no complex support in C */;
return r39100;
}
Initial program 0
Final simplification0
herbie shell --seed 2020024
(FPCore ()
:name "3.9.1 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))