\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 r1453148 = -1.0;
double r1453149 = 1.0;
double r1453150 = /* ERROR: no complex support in C */;
double r1453151 = r1453150 * r1453150;
double r1453152 = r1453151 * r1453150;
double r1453153 = r1453152 * r1453150;
double r1453154 = r1453153 * r1453150;
double r1453155 = r1453154 * r1453150;
double r1453156 = 6.0;
double r1453157 = 0.0;
double r1453158 = /* ERROR: no complex support in C */;
double r1453159 = r1453158 * r1453150;
double r1453160 = r1453159 * r1453150;
double r1453161 = r1453160 * r1453150;
double r1453162 = r1453161 * r1453150;
double r1453163 = r1453162 * r1453150;
double r1453164 = r1453155 + r1453163;
double r1453165 = 15.0;
double r1453166 = /* ERROR: no complex support in C */;
double r1453167 = r1453166 * r1453150;
double r1453168 = r1453167 * r1453150;
double r1453169 = r1453168 * r1453150;
double r1453170 = r1453169 * r1453150;
double r1453171 = r1453164 + r1453170;
double r1453172 = 20.0;
double r1453173 = /* ERROR: no complex support in C */;
double r1453174 = r1453173 * r1453150;
double r1453175 = r1453174 * r1453150;
double r1453176 = r1453175 * r1453150;
double r1453177 = r1453171 + r1453176;
double r1453178 = r1453177 + r1453168;
double r1453179 = r1453178 + r1453159;
double r1453180 = /* ERROR: no complex support in C */;
double r1453181 = r1453179 + r1453180;
double r1453182 = /* ERROR: no complex support in C */;
return r1453182;
}
double f() {
double r1453183 = -5.0;
double r1453184 = -24.0;
double r1453185 = /* ERROR: no complex support in C */;
double r1453186 = 24.0;
double r1453187 = /* ERROR: no complex support in C */;
double r1453188 = 0.0;
double r1453189 = 8.0;
double r1453190 = /* ERROR: no complex support in C */;
double r1453191 = r1453187 + r1453190;
double r1453192 = 40.0;
double r1453193 = /* ERROR: no complex support in C */;
double r1453194 = -60.0;
double r1453195 = /* ERROR: no complex support in C */;
double r1453196 = r1453193 + r1453195;
double r1453197 = r1453191 + r1453196;
double r1453198 = r1453185 + r1453197;
double r1453199 = /* ERROR: no complex support in C */;
return r1453199;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019120 +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))))