\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 r1462008 = 1.0;
double r1462009 = -r1462008;
double r1462010 = 2.0;
double r1462011 = r1462009 / r1462010;
double r1462012 = 3.0;
double r1462013 = sqrt(r1462012);
double r1462014 = r1462013 / r1462010;
double r1462015 = /* ERROR: no complex support in C */;
double r1462016 = r1462015 * r1462015;
double r1462017 = r1462016 * r1462015;
double r1462018 = r1462017 * r1462015;
double r1462019 = -r1462010;
double r1462020 = 0.0;
double r1462021 = /* ERROR: no complex support in C */;
double r1462022 = r1462021 * r1462015;
double r1462023 = r1462022 * r1462015;
double r1462024 = r1462023 * r1462015;
double r1462025 = r1462018 + r1462024;
double r1462026 = 5.0;
double r1462027 = /* ERROR: no complex support in C */;
double r1462028 = r1462027 * r1462015;
double r1462029 = r1462028 * r1462015;
double r1462030 = r1462025 + r1462029;
double r1462031 = 4.0;
double r1462032 = /* ERROR: no complex support in C */;
double r1462033 = r1462032 * r1462015;
double r1462034 = r1462030 + r1462033;
double r1462035 = 7.0;
double r1462036 = /* ERROR: no complex support in C */;
double r1462037 = r1462034 + r1462036;
double r1462038 = /* ERROR: no complex support in C */;
return r1462038;
}
double f() {
double r1462039 = 1.0;
double r1462040 = -r1462039;
double r1462041 = 2.0;
double r1462042 = r1462040 / r1462041;
double r1462043 = 3.0;
double r1462044 = sqrt(r1462043);
double r1462045 = r1462044 / r1462041;
double r1462046 = /* ERROR: no complex support in C */;
double r1462047 = r1462046 * r1462046;
double r1462048 = r1462047 * r1462046;
double r1462049 = r1462046 * r1462048;
double r1462050 = -r1462041;
double r1462051 = 0.0;
double r1462052 = /* ERROR: no complex support in C */;
double r1462053 = r1462052 * r1462046;
double r1462054 = r1462046 * r1462053;
double r1462055 = r1462046 * r1462054;
double r1462056 = r1462049 + r1462055;
double r1462057 = 5.0;
double r1462058 = /* ERROR: no complex support in C */;
double r1462059 = r1462058 * r1462046;
double r1462060 = r1462059 * r1462046;
double r1462061 = r1462056 + r1462060;
double r1462062 = 4.0;
double r1462063 = /* ERROR: no complex support in C */;
double r1462064 = r1462046 * r1462063;
double r1462065 = r1462061 + r1462064;
double r1462066 = 7.0;
double r1462067 = /* ERROR: no complex support in C */;
double r1462068 = r1462065 + r1462067;
double r1462069 = /* ERROR: no complex support in C */;
return r1462069;
}
Initial program 0
Final simplification0
herbie shell --seed 2019172 +o rules:numerics
(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))))