\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 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 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 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0 i\right)\right))\Im(\left(\left(\frac{11}{2} + \left(\frac{\sqrt{3}}{-2} + \left(-\sqrt{3}\right)\right) i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{-2} i\right) + \left(5 + \sqrt{3} \cdot 2 i\right)\right))double f() {
double r855189 = 1.0;
double r855190 = -r855189;
double r855191 = 2.0;
double r855192 = r855190 / r855191;
double r855193 = 3.0;
double r855194 = sqrt(r855193);
double r855195 = r855194 / r855191;
double r855196 = /* ERROR: no complex support in C */;
double r855197 = r855196 * r855196;
double r855198 = r855197 * r855196;
double r855199 = r855198 * r855196;
double r855200 = -r855191;
double r855201 = 0.0;
double r855202 = /* ERROR: no complex support in C */;
double r855203 = r855202 * r855196;
double r855204 = r855203 * r855196;
double r855205 = r855204 * r855196;
double r855206 = r855199 + r855205;
double r855207 = 5.0;
double r855208 = /* ERROR: no complex support in C */;
double r855209 = r855208 * r855196;
double r855210 = r855209 * r855196;
double r855211 = r855206 + r855210;
double r855212 = 4.0;
double r855213 = /* ERROR: no complex support in C */;
double r855214 = r855213 * r855196;
double r855215 = r855211 + r855214;
double r855216 = 7.0;
double r855217 = /* ERROR: no complex support in C */;
double r855218 = r855215 + r855217;
double r855219 = /* ERROR: no complex support in C */;
return r855219;
}
double f() {
double r855220 = 5.5;
double r855221 = 3.0;
double r855222 = sqrt(r855221);
double r855223 = -2.0;
double r855224 = r855222 / r855223;
double r855225 = -r855222;
double r855226 = r855224 + r855225;
double r855227 = /* ERROR: no complex support in C */;
double r855228 = -0.5;
double r855229 = /* ERROR: no complex support in C */;
double r855230 = r855227 * r855229;
double r855231 = 5.0;
double r855232 = 2.0;
double r855233 = r855222 * r855232;
double r855234 = /* ERROR: no complex support in C */;
double r855235 = r855230 + r855234;
double r855236 = /* ERROR: no complex support in C */;
return r855236;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019143 +o rules:numerics
(FPCore ()
:name "3.9.2 imaginary part (p56)"
(im (+.c (+.c (+.c (+.c (*.c (*.c (*.c (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (*.c (*.c (*.c (complex (- 2) 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (*.c (complex 5 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (*.c (complex 4 0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0))))