\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))
-1
double f() {
double r537165 = -1.0;
double r537166 = 1.0;
double r537167 = /* ERROR: no complex support in C */;
double r537168 = r537167 * r537167;
double r537169 = r537168 * r537167;
double r537170 = r537169 * r537167;
double r537171 = r537170 * r537167;
double r537172 = r537171 * r537167;
double r537173 = 6.0;
double r537174 = 0.0;
double r537175 = /* ERROR: no complex support in C */;
double r537176 = r537175 * r537167;
double r537177 = r537176 * r537167;
double r537178 = r537177 * r537167;
double r537179 = r537178 * r537167;
double r537180 = r537179 * r537167;
double r537181 = r537172 + r537180;
double r537182 = 15.0;
double r537183 = /* ERROR: no complex support in C */;
double r537184 = r537183 * r537167;
double r537185 = r537184 * r537167;
double r537186 = r537185 * r537167;
double r537187 = r537186 * r537167;
double r537188 = r537181 + r537187;
double r537189 = 20.0;
double r537190 = /* ERROR: no complex support in C */;
double r537191 = r537190 * r537167;
double r537192 = r537191 * r537167;
double r537193 = r537192 * r537167;
double r537194 = r537188 + r537193;
double r537195 = r537194 + r537185;
double r537196 = r537195 + r537176;
double r537197 = /* ERROR: no complex support in C */;
double r537198 = r537196 + r537197;
double r537199 = /* ERROR: no complex support in C */;
return r537199;
}
double f() {
double r537200 = -1.0;
return r537200;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019152 +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))))