\Re(\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))
\Re(\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 r43274 = -1.0;
double r43275 = 1.0;
double r43276 = /* ERROR: no complex support in C */;
double r43277 = r43276 * r43276;
double r43278 = r43277 * r43276;
double r43279 = r43278 * r43276;
double r43280 = r43279 * r43276;
double r43281 = r43280 * r43276;
double r43282 = 6.0;
double r43283 = 0.0;
double r43284 = /* ERROR: no complex support in C */;
double r43285 = r43284 * r43276;
double r43286 = r43285 * r43276;
double r43287 = r43286 * r43276;
double r43288 = r43287 * r43276;
double r43289 = r43288 * r43276;
double r43290 = r43281 + r43289;
double r43291 = 15.0;
double r43292 = /* ERROR: no complex support in C */;
double r43293 = r43292 * r43276;
double r43294 = r43293 * r43276;
double r43295 = r43294 * r43276;
double r43296 = r43295 * r43276;
double r43297 = r43290 + r43296;
double r43298 = 20.0;
double r43299 = /* ERROR: no complex support in C */;
double r43300 = r43299 * r43276;
double r43301 = r43300 * r43276;
double r43302 = r43301 * r43276;
double r43303 = r43297 + r43302;
double r43304 = r43303 + r43294;
double r43305 = r43304 + r43285;
double r43306 = /* ERROR: no complex support in C */;
double r43307 = r43305 + r43306;
double r43308 = /* ERROR: no complex support in C */;
return r43308;
}
double f() {
double r43309 = -1.0;
double r43310 = 1.0;
double r43311 = /* ERROR: no complex support in C */;
double r43312 = r43311 * r43311;
double r43313 = r43312 * r43311;
double r43314 = r43313 * r43311;
double r43315 = r43314 * r43311;
double r43316 = r43315 * r43311;
double r43317 = 6.0;
double r43318 = 0.0;
double r43319 = /* ERROR: no complex support in C */;
double r43320 = r43319 * r43311;
double r43321 = r43320 * r43311;
double r43322 = r43321 * r43311;
double r43323 = r43322 * r43311;
double r43324 = r43323 * r43311;
double r43325 = r43316 + r43324;
double r43326 = 15.0;
double r43327 = /* ERROR: no complex support in C */;
double r43328 = r43327 * r43311;
double r43329 = r43328 * r43311;
double r43330 = r43329 * r43311;
double r43331 = r43330 * r43311;
double r43332 = r43325 + r43331;
double r43333 = 20.0;
double r43334 = /* ERROR: no complex support in C */;
double r43335 = r43334 * r43311;
double r43336 = r43335 * r43311;
double r43337 = r43336 * r43311;
double r43338 = r43332 + r43337;
double r43339 = r43338 + r43329;
double r43340 = r43339 + r43320;
double r43341 = /* ERROR: no complex support in C */;
double r43342 = r43340 + r43341;
double r43343 = /* ERROR: no complex support in C */;
return r43343;
}
Initial program 0
Final simplification0
herbie shell --seed 2019294
(FPCore ()
:name "3.9.1 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (+ (+ (* (* (* (* (* (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))))