\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 r15382 = 1.0;
double r15383 = -r15382;
double r15384 = 2.0;
double r15385 = r15383 / r15384;
double r15386 = 3.0;
double r15387 = sqrt(r15386);
double r15388 = r15387 / r15384;
double r15389 = /* ERROR: no complex support in C */;
double r15390 = r15389 * r15389;
double r15391 = r15390 * r15389;
double r15392 = r15391 * r15389;
double r15393 = -r15384;
double r15394 = 0.0;
double r15395 = /* ERROR: no complex support in C */;
double r15396 = r15395 * r15389;
double r15397 = r15396 * r15389;
double r15398 = r15397 * r15389;
double r15399 = r15392 + r15398;
double r15400 = 5.0;
double r15401 = /* ERROR: no complex support in C */;
double r15402 = r15401 * r15389;
double r15403 = r15402 * r15389;
double r15404 = r15399 + r15403;
double r15405 = 4.0;
double r15406 = /* ERROR: no complex support in C */;
double r15407 = r15406 * r15389;
double r15408 = r15404 + r15407;
double r15409 = 7.0;
double r15410 = /* ERROR: no complex support in C */;
double r15411 = r15408 + r15410;
double r15412 = /* ERROR: no complex support in C */;
return r15412;
}
double f() {
double r15413 = 1.0;
double r15414 = -r15413;
double r15415 = 2.0;
double r15416 = r15414 / r15415;
double r15417 = 3.0;
double r15418 = sqrt(r15417);
double r15419 = r15418 / r15415;
double r15420 = /* ERROR: no complex support in C */;
double r15421 = r15420 * r15420;
double r15422 = r15421 * r15420;
double r15423 = r15422 * r15420;
double r15424 = -r15415;
double r15425 = 0.0;
double r15426 = /* ERROR: no complex support in C */;
double r15427 = r15426 * r15420;
double r15428 = r15427 * r15420;
double r15429 = r15428 * r15420;
double r15430 = r15423 + r15429;
double r15431 = 5.0;
double r15432 = /* ERROR: no complex support in C */;
double r15433 = r15432 * r15420;
double r15434 = r15433 * r15420;
double r15435 = r15430 + r15434;
double r15436 = 4.0;
double r15437 = /* ERROR: no complex support in C */;
double r15438 = r15437 * r15420;
double r15439 = r15435 + r15438;
double r15440 = 7.0;
double r15441 = /* ERROR: no complex support in C */;
double r15442 = r15439 + r15441;
double r15443 = /* ERROR: no complex support in C */;
return r15443;
}
Initial program 0
Final simplification0
herbie shell --seed 2019350
(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))))