\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 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))
\Re(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r1700236 = -1.0;
double r1700237 = 1.0;
double r1700238 = /* ERROR: no complex support in C */;
double r1700239 = r1700238 * r1700238;
double r1700240 = r1700239 * r1700238;
double r1700241 = r1700240 * r1700238;
double r1700242 = r1700241 * r1700238;
double r1700243 = r1700242 * r1700238;
double r1700244 = 6.0;
double r1700245 = 0.0;
double r1700246 = /* ERROR: no complex support in C */;
double r1700247 = r1700246 * r1700238;
double r1700248 = r1700247 * r1700238;
double r1700249 = r1700248 * r1700238;
double r1700250 = r1700249 * r1700238;
double r1700251 = r1700250 * r1700238;
double r1700252 = r1700243 + r1700251;
double r1700253 = 15.0;
double r1700254 = /* ERROR: no complex support in C */;
double r1700255 = r1700254 * r1700238;
double r1700256 = r1700255 * r1700238;
double r1700257 = r1700256 * r1700238;
double r1700258 = r1700257 * r1700238;
double r1700259 = r1700252 + r1700258;
double r1700260 = 20.0;
double r1700261 = /* ERROR: no complex support in C */;
double r1700262 = r1700261 * r1700238;
double r1700263 = r1700262 * r1700238;
double r1700264 = r1700263 * r1700238;
double r1700265 = r1700259 + r1700264;
double r1700266 = r1700265 + r1700256;
double r1700267 = r1700266 + r1700247;
double r1700268 = /* ERROR: no complex support in C */;
double r1700269 = r1700267 + r1700268;
double r1700270 = /* ERROR: no complex support in C */;
return r1700270;
}
double f() {
double r1700271 = -5.0;
double r1700272 = -24.0;
double r1700273 = /* ERROR: no complex support in C */;
double r1700274 = 24.0;
double r1700275 = /* ERROR: no complex support in C */;
double r1700276 = 0.0;
double r1700277 = 8.0;
double r1700278 = /* ERROR: no complex support in C */;
double r1700279 = r1700275 + r1700278;
double r1700280 = 40.0;
double r1700281 = /* ERROR: no complex support in C */;
double r1700282 = -60.0;
double r1700283 = /* ERROR: no complex support in C */;
double r1700284 = r1700281 + r1700283;
double r1700285 = r1700279 + r1700284;
double r1700286 = r1700273 + r1700285;
double r1700287 = /* ERROR: no complex support in C */;
return r1700287;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019107
(FPCore ()
:name "3.9.1 real part (p56)"
(re (+.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))))