\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{\sqrt{3}}{2} \cdot 4 i\right) + \left(\left(6 + \left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right)\right) + \left(\left(-\frac{\sqrt{3}}{2}\right) + -2 \cdot \frac{\sqrt{3}}{2}\right) i\right) \cdot \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right)\right))double f() {
double r1511220 = 1.0;
double r1511221 = -r1511220;
double r1511222 = 2.0;
double r1511223 = r1511221 / r1511222;
double r1511224 = 3.0;
double r1511225 = sqrt(r1511224);
double r1511226 = r1511225 / r1511222;
double r1511227 = /* ERROR: no complex support in C */;
double r1511228 = r1511227 * r1511227;
double r1511229 = r1511228 * r1511227;
double r1511230 = r1511229 * r1511227;
double r1511231 = -r1511222;
double r1511232 = 0.0;
double r1511233 = /* ERROR: no complex support in C */;
double r1511234 = r1511233 * r1511227;
double r1511235 = r1511234 * r1511227;
double r1511236 = r1511235 * r1511227;
double r1511237 = r1511230 + r1511236;
double r1511238 = 5.0;
double r1511239 = /* ERROR: no complex support in C */;
double r1511240 = r1511239 * r1511227;
double r1511241 = r1511240 * r1511227;
double r1511242 = r1511237 + r1511241;
double r1511243 = 4.0;
double r1511244 = /* ERROR: no complex support in C */;
double r1511245 = r1511244 * r1511227;
double r1511246 = r1511242 + r1511245;
double r1511247 = 7.0;
double r1511248 = /* ERROR: no complex support in C */;
double r1511249 = r1511246 + r1511248;
double r1511250 = /* ERROR: no complex support in C */;
return r1511250;
}
double f() {
double r1511251 = 5.0;
double r1511252 = 3.0;
double r1511253 = sqrt(r1511252);
double r1511254 = 2.0;
double r1511255 = r1511253 / r1511254;
double r1511256 = 4.0;
double r1511257 = r1511255 * r1511256;
double r1511258 = /* ERROR: no complex support in C */;
double r1511259 = 6.0;
double r1511260 = 0.25;
double r1511261 = r1511255 * r1511255;
double r1511262 = r1511260 - r1511261;
double r1511263 = r1511259 + r1511262;
double r1511264 = -r1511255;
double r1511265 = -2.0;
double r1511266 = r1511265 * r1511255;
double r1511267 = r1511264 + r1511266;
double r1511268 = /* ERROR: no complex support in C */;
double r1511269 = /* ERROR: no complex support in C */;
double r1511270 = r1511268 * r1511269;
double r1511271 = r1511258 + r1511270;
double r1511272 = /* ERROR: no complex support in C */;
return r1511272;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019165
(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))))