\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 r38283 = 1.0;
double r38284 = -r38283;
double r38285 = 2.0;
double r38286 = r38284 / r38285;
double r38287 = 3.0;
double r38288 = sqrt(r38287);
double r38289 = r38288 / r38285;
double r38290 = /* ERROR: no complex support in C */;
double r38291 = r38290 * r38290;
double r38292 = r38291 * r38290;
double r38293 = r38292 * r38290;
double r38294 = -r38285;
double r38295 = 0.0;
double r38296 = /* ERROR: no complex support in C */;
double r38297 = r38296 * r38290;
double r38298 = r38297 * r38290;
double r38299 = r38298 * r38290;
double r38300 = r38293 + r38299;
double r38301 = 5.0;
double r38302 = /* ERROR: no complex support in C */;
double r38303 = r38302 * r38290;
double r38304 = r38303 * r38290;
double r38305 = r38300 + r38304;
double r38306 = 4.0;
double r38307 = /* ERROR: no complex support in C */;
double r38308 = r38307 * r38290;
double r38309 = r38305 + r38308;
double r38310 = 7.0;
double r38311 = /* ERROR: no complex support in C */;
double r38312 = r38309 + r38311;
double r38313 = /* ERROR: no complex support in C */;
return r38313;
}
double f() {
double r38314 = 1.0;
double r38315 = -r38314;
double r38316 = 2.0;
double r38317 = r38315 / r38316;
double r38318 = 3.0;
double r38319 = sqrt(r38318);
double r38320 = r38319 / r38316;
double r38321 = /* ERROR: no complex support in C */;
double r38322 = r38321 * r38321;
double r38323 = r38322 * r38321;
double r38324 = r38323 * r38321;
double r38325 = -r38316;
double r38326 = 0.0;
double r38327 = /* ERROR: no complex support in C */;
double r38328 = r38327 * r38321;
double r38329 = r38328 * r38321;
double r38330 = r38329 * r38321;
double r38331 = r38324 + r38330;
double r38332 = 5.0;
double r38333 = /* ERROR: no complex support in C */;
double r38334 = r38333 * r38321;
double r38335 = r38334 * r38321;
double r38336 = r38331 + r38335;
double r38337 = 4.0;
double r38338 = /* ERROR: no complex support in C */;
double r38339 = r38338 * r38321;
double r38340 = r38336 + r38339;
double r38341 = 7.0;
double r38342 = /* ERROR: no complex support in C */;
double r38343 = r38340 + r38342;
double r38344 = /* ERROR: no complex support in C */;
return r38344;
}
Initial program 0
Final simplification0
herbie shell --seed 2020062
(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))))