\Im(\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))\Im(\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 r33231 = 1.0;
double r33232 = -r33231;
double r33233 = 2.0;
double r33234 = r33232 / r33233;
double r33235 = 3.0;
double r33236 = sqrt(r33235);
double r33237 = r33236 / r33233;
double r33238 = /* ERROR: no complex support in C */;
double r33239 = r33238 * r33238;
double r33240 = r33239 * r33238;
double r33241 = r33240 * r33238;
double r33242 = -r33233;
double r33243 = 0.0;
double r33244 = /* ERROR: no complex support in C */;
double r33245 = r33244 * r33238;
double r33246 = r33245 * r33238;
double r33247 = r33246 * r33238;
double r33248 = r33241 + r33247;
double r33249 = 5.0;
double r33250 = /* ERROR: no complex support in C */;
double r33251 = r33250 * r33238;
double r33252 = r33251 * r33238;
double r33253 = r33248 + r33252;
double r33254 = 4.0;
double r33255 = /* ERROR: no complex support in C */;
double r33256 = r33255 * r33238;
double r33257 = r33253 + r33256;
double r33258 = 7.0;
double r33259 = /* ERROR: no complex support in C */;
double r33260 = r33257 + r33259;
double r33261 = /* ERROR: no complex support in C */;
return r33261;
}
double f() {
double r33262 = 1.0;
double r33263 = -r33262;
double r33264 = 2.0;
double r33265 = r33263 / r33264;
double r33266 = 3.0;
double r33267 = sqrt(r33266);
double r33268 = r33267 / r33264;
double r33269 = /* ERROR: no complex support in C */;
double r33270 = r33269 * r33269;
double r33271 = r33270 * r33269;
double r33272 = r33271 * r33269;
double r33273 = -r33264;
double r33274 = 0.0;
double r33275 = /* ERROR: no complex support in C */;
double r33276 = r33275 * r33269;
double r33277 = r33276 * r33269;
double r33278 = r33277 * r33269;
double r33279 = r33272 + r33278;
double r33280 = 5.0;
double r33281 = /* ERROR: no complex support in C */;
double r33282 = r33281 * r33269;
double r33283 = r33282 * r33269;
double r33284 = r33279 + r33283;
double r33285 = 4.0;
double r33286 = /* ERROR: no complex support in C */;
double r33287 = r33286 * r33269;
double r33288 = r33284 + r33287;
double r33289 = 7.0;
double r33290 = /* ERROR: no complex support in C */;
double r33291 = r33288 + r33290;
double r33292 = /* ERROR: no complex support in C */;
return r33292;
}
Initial program 0
Final simplification0
herbie shell --seed 2020039
(FPCore ()
:name "3.9.2 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (* (* (* (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))))