\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \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)\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\left(-2\right) + 0.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r25969 = 1.0;
double r25970 = -r25969;
double r25971 = 2.0;
double r25972 = r25970 / r25971;
double r25973 = 3.0;
double r25974 = sqrt(r25973);
double r25975 = r25974 / r25971;
double r25976 = /* ERROR: no complex support in C */;
double r25977 = r25976 * r25976;
double r25978 = r25977 * r25976;
double r25979 = r25978 * r25976;
double r25980 = -r25971;
double r25981 = 0.0;
double r25982 = /* ERROR: no complex support in C */;
double r25983 = r25982 * r25976;
double r25984 = r25983 * r25976;
double r25985 = r25984 * r25976;
double r25986 = r25979 + r25985;
double r25987 = 5.0;
double r25988 = /* ERROR: no complex support in C */;
double r25989 = r25988 * r25976;
double r25990 = r25989 * r25976;
double r25991 = r25986 + r25990;
double r25992 = 4.0;
double r25993 = /* ERROR: no complex support in C */;
double r25994 = r25993 * r25976;
double r25995 = r25991 + r25994;
double r25996 = 7.0;
double r25997 = /* ERROR: no complex support in C */;
double r25998 = r25995 + r25997;
double r25999 = /* ERROR: no complex support in C */;
return r25999;
}
double f() {
double r26000 = 1.0;
double r26001 = -r26000;
double r26002 = 2.0;
double r26003 = r26001 / r26002;
double r26004 = 3.0;
double r26005 = sqrt(r26004);
double r26006 = r26005 / r26002;
double r26007 = /* ERROR: no complex support in C */;
double r26008 = r26007 * r26007;
double r26009 = r26008 * r26007;
double r26010 = r26007 * r26009;
double r26011 = -r26002;
double r26012 = 0.0;
double r26013 = /* ERROR: no complex support in C */;
double r26014 = r26013 * r26007;
double r26015 = r26007 * r26014;
double r26016 = r26007 * r26015;
double r26017 = r26010 + r26016;
double r26018 = 5.0;
double r26019 = /* ERROR: no complex support in C */;
double r26020 = r26019 * r26007;
double r26021 = r26020 * r26007;
double r26022 = r26017 + r26021;
double r26023 = 4.0;
double r26024 = /* ERROR: no complex support in C */;
double r26025 = r26007 * r26024;
double r26026 = r26022 + r26025;
double r26027 = 7.0;
double r26028 = /* ERROR: no complex support in C */;
double r26029 = r26026 + r26028;
double r26030 = /* ERROR: no complex support in C */;
return r26030;
}
Initial program 0
Final simplification0
herbie shell --seed 2019174
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+ (+ (+ (+ (* (* (* (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (* (* (* (complex (- 2.0) 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (* (complex 5.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0))) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (* (complex 4.0 0.0) (complex (/ (- 1.0) 2.0) (/ (sqrt 3.0) 2.0)))) (complex 7.0 0.0))))