\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 r27207 = 1.0;
double r27208 = -r27207;
double r27209 = 2.0;
double r27210 = r27208 / r27209;
double r27211 = 3.0;
double r27212 = sqrt(r27211);
double r27213 = r27212 / r27209;
double r27214 = /* ERROR: no complex support in C */;
double r27215 = r27214 * r27214;
double r27216 = r27215 * r27214;
double r27217 = r27216 * r27214;
double r27218 = -r27209;
double r27219 = 0.0;
double r27220 = /* ERROR: no complex support in C */;
double r27221 = r27220 * r27214;
double r27222 = r27221 * r27214;
double r27223 = r27222 * r27214;
double r27224 = r27217 + r27223;
double r27225 = 5.0;
double r27226 = /* ERROR: no complex support in C */;
double r27227 = r27226 * r27214;
double r27228 = r27227 * r27214;
double r27229 = r27224 + r27228;
double r27230 = 4.0;
double r27231 = /* ERROR: no complex support in C */;
double r27232 = r27231 * r27214;
double r27233 = r27229 + r27232;
double r27234 = 7.0;
double r27235 = /* ERROR: no complex support in C */;
double r27236 = r27233 + r27235;
double r27237 = /* ERROR: no complex support in C */;
return r27237;
}
double f() {
double r27238 = 1.0;
double r27239 = -r27238;
double r27240 = 2.0;
double r27241 = r27239 / r27240;
double r27242 = 3.0;
double r27243 = sqrt(r27242);
double r27244 = r27243 / r27240;
double r27245 = /* ERROR: no complex support in C */;
double r27246 = r27245 * r27245;
double r27247 = r27246 * r27245;
double r27248 = r27247 * r27245;
double r27249 = -r27240;
double r27250 = 0.0;
double r27251 = /* ERROR: no complex support in C */;
double r27252 = r27251 * r27245;
double r27253 = r27252 * r27245;
double r27254 = r27253 * r27245;
double r27255 = r27248 + r27254;
double r27256 = 5.0;
double r27257 = /* ERROR: no complex support in C */;
double r27258 = r27257 * r27245;
double r27259 = r27258 * r27245;
double r27260 = r27255 + r27259;
double r27261 = 4.0;
double r27262 = /* ERROR: no complex support in C */;
double r27263 = r27262 * r27245;
double r27264 = r27260 + r27263;
double r27265 = 7.0;
double r27266 = /* ERROR: no complex support in C */;
double r27267 = r27264 + r27266;
double r27268 = /* ERROR: no complex support in C */;
return r27268;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020083
(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))))