\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 r200 = -1.0;
double r201 = 1.0;
double r202 = /* ERROR: no complex support in C */;
double r203 = r202 * r202;
double r204 = r203 * r202;
double r205 = r204 * r202;
double r206 = r205 * r202;
double r207 = r206 * r202;
double r208 = 6.0;
double r209 = 0.0;
double r210 = /* ERROR: no complex support in C */;
double r211 = r210 * r202;
double r212 = r211 * r202;
double r213 = r212 * r202;
double r214 = r213 * r202;
double r215 = r214 * r202;
double r216 = r207 + r215;
double r217 = 15.0;
double r218 = /* ERROR: no complex support in C */;
double r219 = r218 * r202;
double r220 = r219 * r202;
double r221 = r220 * r202;
double r222 = r221 * r202;
double r223 = r216 + r222;
double r224 = 20.0;
double r225 = /* ERROR: no complex support in C */;
double r226 = r225 * r202;
double r227 = r226 * r202;
double r228 = r227 * r202;
double r229 = r223 + r228;
double r230 = r229 + r220;
double r231 = r230 + r211;
double r232 = /* ERROR: no complex support in C */;
double r233 = r231 + r232;
double r234 = /* ERROR: no complex support in C */;
return r234;
}
double f() {
double r235 = -1.0;
double r236 = 1.0;
double r237 = /* ERROR: no complex support in C */;
double r238 = r237 * r237;
double r239 = r238 * r237;
double r240 = r239 * r237;
double r241 = r240 * r237;
double r242 = r241 * r237;
double r243 = 6.0;
double r244 = 0.0;
double r245 = /* ERROR: no complex support in C */;
double r246 = r245 * r237;
double r247 = r246 * r237;
double r248 = r247 * r237;
double r249 = r248 * r237;
double r250 = r249 * r237;
double r251 = r242 + r250;
double r252 = 15.0;
double r253 = /* ERROR: no complex support in C */;
double r254 = r253 * r237;
double r255 = r254 * r237;
double r256 = r255 * r237;
double r257 = r256 * r237;
double r258 = r251 + r257;
double r259 = 20.0;
double r260 = /* ERROR: no complex support in C */;
double r261 = r260 * r237;
double r262 = r261 * r237;
double r263 = r262 * r237;
double r264 = r258 + r263;
double r265 = r264 + r255;
double r266 = r265 + r246;
double r267 = /* ERROR: no complex support in C */;
double r268 = r266 + r267;
double r269 = /* ERROR: no complex support in C */;
return r269;
}
Initial program 0
Final simplification0
herbie shell --seed 2020025 +o rules:numerics
(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))))