\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(-1 + 1 i\right) \cdot \left(\left(\left(-1 + 1 i\right) \cdot \left(\left(\left(20 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(15 + 0.0 i\right)\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right)\right)\right)\right)\right) + \left(\left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(1 + 0.0 i\right)\right)\right))
double f() {
double r14163 = -1.0;
double r14164 = 1.0;
double r14165 = /* ERROR: no complex support in C */;
double r14166 = r14165 * r14165;
double r14167 = r14166 * r14165;
double r14168 = r14167 * r14165;
double r14169 = r14168 * r14165;
double r14170 = r14169 * r14165;
double r14171 = 6.0;
double r14172 = 0.0;
double r14173 = /* ERROR: no complex support in C */;
double r14174 = r14173 * r14165;
double r14175 = r14174 * r14165;
double r14176 = r14175 * r14165;
double r14177 = r14176 * r14165;
double r14178 = r14177 * r14165;
double r14179 = r14170 + r14178;
double r14180 = 15.0;
double r14181 = /* ERROR: no complex support in C */;
double r14182 = r14181 * r14165;
double r14183 = r14182 * r14165;
double r14184 = r14183 * r14165;
double r14185 = r14184 * r14165;
double r14186 = r14179 + r14185;
double r14187 = 20.0;
double r14188 = /* ERROR: no complex support in C */;
double r14189 = r14188 * r14165;
double r14190 = r14189 * r14165;
double r14191 = r14190 * r14165;
double r14192 = r14186 + r14191;
double r14193 = r14192 + r14183;
double r14194 = r14193 + r14174;
double r14195 = /* ERROR: no complex support in C */;
double r14196 = r14194 + r14195;
double r14197 = /* ERROR: no complex support in C */;
return r14197;
}
double f() {
double r14198 = -1.0;
double r14199 = 1.0;
double r14200 = /* ERROR: no complex support in C */;
double r14201 = 20.0;
double r14202 = 0.0;
double r14203 = /* ERROR: no complex support in C */;
double r14204 = r14203 * r14200;
double r14205 = 15.0;
double r14206 = /* ERROR: no complex support in C */;
double r14207 = r14204 + r14206;
double r14208 = r14200 * r14207;
double r14209 = r14200 * r14200;
double r14210 = r14206 * r14200;
double r14211 = 6.0;
double r14212 = /* ERROR: no complex support in C */;
double r14213 = r14200 + r14212;
double r14214 = r14209 * r14213;
double r14215 = r14210 + r14214;
double r14216 = r14209 * r14215;
double r14217 = r14208 + r14216;
double r14218 = r14200 * r14217;
double r14219 = r14212 * r14200;
double r14220 = /* ERROR: no complex support in C */;
double r14221 = r14219 + r14220;
double r14222 = r14218 + r14221;
double r14223 = /* ERROR: no complex support in C */;
return r14223;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2020047
(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))))