\Re(\left(\left(\left(\left(\left(\left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) + \left(\left(\left(\left(\left(-2\right) + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(\left(5 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(\left(4 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Re(\left(\left(5 + \frac{4}{\frac{2}{\sqrt{3}}} i\right) + \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) \cdot \left(\left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) + \left(6 + \frac{\sqrt{3}}{2} \cdot -2 i\right)\right)\right))double f() {
double r1147246 = 1.0;
double r1147247 = -r1147246;
double r1147248 = 2.0;
double r1147249 = r1147247 / r1147248;
double r1147250 = 3.0;
double r1147251 = sqrt(r1147250);
double r1147252 = r1147251 / r1147248;
double r1147253 = /* ERROR: no complex support in C */;
double r1147254 = r1147253 * r1147253;
double r1147255 = r1147254 * r1147253;
double r1147256 = r1147255 * r1147253;
double r1147257 = -r1147248;
double r1147258 = 0.0;
double r1147259 = /* ERROR: no complex support in C */;
double r1147260 = r1147259 * r1147253;
double r1147261 = r1147260 * r1147253;
double r1147262 = r1147261 * r1147253;
double r1147263 = r1147256 + r1147262;
double r1147264 = 5.0;
double r1147265 = /* ERROR: no complex support in C */;
double r1147266 = r1147265 * r1147253;
double r1147267 = r1147266 * r1147253;
double r1147268 = r1147263 + r1147267;
double r1147269 = 4.0;
double r1147270 = /* ERROR: no complex support in C */;
double r1147271 = r1147270 * r1147253;
double r1147272 = r1147268 + r1147271;
double r1147273 = 7.0;
double r1147274 = /* ERROR: no complex support in C */;
double r1147275 = r1147272 + r1147274;
double r1147276 = /* ERROR: no complex support in C */;
return r1147276;
}
double f() {
double r1147277 = 5.0;
double r1147278 = 4.0;
double r1147279 = 2.0;
double r1147280 = 3.0;
double r1147281 = sqrt(r1147280);
double r1147282 = r1147279 / r1147281;
double r1147283 = r1147278 / r1147282;
double r1147284 = /* ERROR: no complex support in C */;
double r1147285 = 0.25;
double r1147286 = r1147281 / r1147279;
double r1147287 = r1147286 * r1147286;
double r1147288 = r1147285 - r1147287;
double r1147289 = -r1147286;
double r1147290 = /* ERROR: no complex support in C */;
double r1147291 = 6.0;
double r1147292 = -2.0;
double r1147293 = r1147286 * r1147292;
double r1147294 = /* ERROR: no complex support in C */;
double r1147295 = r1147290 + r1147294;
double r1147296 = r1147290 * r1147295;
double r1147297 = r1147284 + r1147296;
double r1147298 = /* ERROR: no complex support in C */;
return r1147298;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019112
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))