\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 r2308225 = -1.0;
double r2308226 = 1.0;
double r2308227 = /* ERROR: no complex support in C */;
double r2308228 = r2308227 * r2308227;
double r2308229 = r2308228 * r2308227;
double r2308230 = r2308229 * r2308227;
double r2308231 = r2308230 * r2308227;
double r2308232 = r2308231 * r2308227;
double r2308233 = 6.0;
double r2308234 = 0.0;
double r2308235 = /* ERROR: no complex support in C */;
double r2308236 = r2308235 * r2308227;
double r2308237 = r2308236 * r2308227;
double r2308238 = r2308237 * r2308227;
double r2308239 = r2308238 * r2308227;
double r2308240 = r2308239 * r2308227;
double r2308241 = r2308232 + r2308240;
double r2308242 = 15.0;
double r2308243 = /* ERROR: no complex support in C */;
double r2308244 = r2308243 * r2308227;
double r2308245 = r2308244 * r2308227;
double r2308246 = r2308245 * r2308227;
double r2308247 = r2308246 * r2308227;
double r2308248 = r2308241 + r2308247;
double r2308249 = 20.0;
double r2308250 = /* ERROR: no complex support in C */;
double r2308251 = r2308250 * r2308227;
double r2308252 = r2308251 * r2308227;
double r2308253 = r2308252 * r2308227;
double r2308254 = r2308248 + r2308253;
double r2308255 = r2308254 + r2308245;
double r2308256 = r2308255 + r2308236;
double r2308257 = /* ERROR: no complex support in C */;
double r2308258 = r2308256 + r2308257;
double r2308259 = /* ERROR: no complex support in C */;
return r2308259;
}
double f() {
double r2308260 = -5.0;
double r2308261 = -24.0;
double r2308262 = /* ERROR: no complex support in C */;
double r2308263 = 24.0;
double r2308264 = /* ERROR: no complex support in C */;
double r2308265 = 0.0;
double r2308266 = 8.0;
double r2308267 = /* ERROR: no complex support in C */;
double r2308268 = r2308264 + r2308267;
double r2308269 = 40.0;
double r2308270 = /* ERROR: no complex support in C */;
double r2308271 = -60.0;
double r2308272 = /* ERROR: no complex support in C */;
double r2308273 = r2308270 + r2308272;
double r2308274 = r2308268 + r2308273;
double r2308275 = r2308262 + r2308274;
double r2308276 = /* ERROR: no complex support in C */;
return r2308276;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019107 +o rules:numerics
(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))))