\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.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.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.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0.0 i\right)\right))\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.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.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.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r18214 = 1.0;
double r18215 = -r18214;
double r18216 = 2.0;
double r18217 = r18215 / r18216;
double r18218 = 3.0;
double r18219 = sqrt(r18218);
double r18220 = r18219 / r18216;
double r18221 = /* ERROR: no complex support in C */;
double r18222 = r18221 * r18221;
double r18223 = r18222 * r18221;
double r18224 = r18223 * r18221;
double r18225 = -r18216;
double r18226 = 0.0;
double r18227 = /* ERROR: no complex support in C */;
double r18228 = r18227 * r18221;
double r18229 = r18228 * r18221;
double r18230 = r18229 * r18221;
double r18231 = r18224 + r18230;
double r18232 = 5.0;
double r18233 = /* ERROR: no complex support in C */;
double r18234 = r18233 * r18221;
double r18235 = r18234 * r18221;
double r18236 = r18231 + r18235;
double r18237 = 4.0;
double r18238 = /* ERROR: no complex support in C */;
double r18239 = r18238 * r18221;
double r18240 = r18236 + r18239;
double r18241 = 7.0;
double r18242 = /* ERROR: no complex support in C */;
double r18243 = r18240 + r18242;
double r18244 = /* ERROR: no complex support in C */;
return r18244;
}
double f() {
double r18245 = 1.0;
double r18246 = -r18245;
double r18247 = 2.0;
double r18248 = r18246 / r18247;
double r18249 = 3.0;
double r18250 = sqrt(r18249);
double r18251 = r18250 / r18247;
double r18252 = /* ERROR: no complex support in C */;
double r18253 = r18252 * r18252;
double r18254 = r18253 * r18252;
double r18255 = r18254 * r18252;
double r18256 = -r18247;
double r18257 = 0.0;
double r18258 = /* ERROR: no complex support in C */;
double r18259 = r18258 * r18252;
double r18260 = r18259 * r18252;
double r18261 = r18260 * r18252;
double r18262 = r18255 + r18261;
double r18263 = 5.0;
double r18264 = /* ERROR: no complex support in C */;
double r18265 = r18264 * r18252;
double r18266 = r18265 * r18252;
double r18267 = r18262 + r18266;
double r18268 = 4.0;
double r18269 = /* ERROR: no complex support in C */;
double r18270 = r18269 * r18252;
double r18271 = r18267 + r18270;
double r18272 = 7.0;
double r18273 = /* ERROR: no complex support in C */;
double r18274 = r18271 + r18273;
double r18275 = /* ERROR: no complex support in C */;
return r18275;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020047
(FPCore ()
:name "3.9.2 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (* (* (* (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (* (* (* (complex (- 2) 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (* (complex 5 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (complex 4 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0.0))))