\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(1 + 0.0 i\right) + \left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(6 + 0.0 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(\left(\left(\left(-1 + 1 i\right) \cdot \left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right)\right) \cdot \left(\left(-1 + 1 i\right) + \left(6 + 0.0 i\right)\right)\right) + \left(\left(\left(\left(15 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right) + \left(20 + 0.0 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right)\right)\right))
double f() {
double r41189 = -1.0;
double r41190 = 1.0;
double r41191 = /* ERROR: no complex support in C */;
double r41192 = r41191 * r41191;
double r41193 = r41192 * r41191;
double r41194 = r41193 * r41191;
double r41195 = r41194 * r41191;
double r41196 = r41195 * r41191;
double r41197 = 6.0;
double r41198 = 0.0;
double r41199 = /* ERROR: no complex support in C */;
double r41200 = r41199 * r41191;
double r41201 = r41200 * r41191;
double r41202 = r41201 * r41191;
double r41203 = r41202 * r41191;
double r41204 = r41203 * r41191;
double r41205 = r41196 + r41204;
double r41206 = 15.0;
double r41207 = /* ERROR: no complex support in C */;
double r41208 = r41207 * r41191;
double r41209 = r41208 * r41191;
double r41210 = r41209 * r41191;
double r41211 = r41210 * r41191;
double r41212 = r41205 + r41211;
double r41213 = 20.0;
double r41214 = /* ERROR: no complex support in C */;
double r41215 = r41214 * r41191;
double r41216 = r41215 * r41191;
double r41217 = r41216 * r41191;
double r41218 = r41212 + r41217;
double r41219 = r41218 + r41209;
double r41220 = r41219 + r41200;
double r41221 = /* ERROR: no complex support in C */;
double r41222 = r41220 + r41221;
double r41223 = /* ERROR: no complex support in C */;
return r41223;
}
double f() {
double r41224 = 1.0;
double r41225 = 0.0;
double r41226 = /* ERROR: no complex support in C */;
double r41227 = 15.0;
double r41228 = /* ERROR: no complex support in C */;
double r41229 = -1.0;
double r41230 = /* ERROR: no complex support in C */;
double r41231 = r41228 * r41230;
double r41232 = 6.0;
double r41233 = /* ERROR: no complex support in C */;
double r41234 = r41231 + r41233;
double r41235 = r41234 * r41230;
double r41236 = r41226 + r41235;
double r41237 = r41230 * r41230;
double r41238 = r41230 * r41237;
double r41239 = r41230 + r41233;
double r41240 = r41238 * r41239;
double r41241 = 20.0;
double r41242 = /* ERROR: no complex support in C */;
double r41243 = r41231 + r41242;
double r41244 = r41243 * r41230;
double r41245 = r41240 + r41244;
double r41246 = r41237 * r41245;
double r41247 = r41236 + r41246;
double r41248 = /* ERROR: no complex support in C */;
return r41248;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019194 +o rules:numerics
(FPCore ()
:name "3.9.1 real part (p56)"
(re (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1.0 1.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (* (* (* (* (* (complex 6.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (* (* (* (complex 15.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (* (* (complex 20.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (* (complex 15.0 0.0) (complex -1.0 1.0)) (complex -1.0 1.0))) (* (complex 6.0 0.0) (complex -1.0 1.0))) (complex 1.0 0.0))))