\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(\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) + \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(-2 + 0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right)\right) + \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) + \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(4 + 0 i\right)\right) + \left(7 + 0 i\right)\right))double f() {
double r1182175 = 1.0;
double r1182176 = -r1182175;
double r1182177 = 2.0;
double r1182178 = r1182176 / r1182177;
double r1182179 = 3.0;
double r1182180 = sqrt(r1182179);
double r1182181 = r1182180 / r1182177;
double r1182182 = /* ERROR: no complex support in C */;
double r1182183 = r1182182 * r1182182;
double r1182184 = r1182183 * r1182182;
double r1182185 = r1182184 * r1182182;
double r1182186 = -r1182177;
double r1182187 = 0.0;
double r1182188 = /* ERROR: no complex support in C */;
double r1182189 = r1182188 * r1182182;
double r1182190 = r1182189 * r1182182;
double r1182191 = r1182190 * r1182182;
double r1182192 = r1182185 + r1182191;
double r1182193 = 5.0;
double r1182194 = /* ERROR: no complex support in C */;
double r1182195 = r1182194 * r1182182;
double r1182196 = r1182195 * r1182182;
double r1182197 = r1182192 + r1182196;
double r1182198 = 4.0;
double r1182199 = /* ERROR: no complex support in C */;
double r1182200 = r1182199 * r1182182;
double r1182201 = r1182197 + r1182200;
double r1182202 = 7.0;
double r1182203 = /* ERROR: no complex support in C */;
double r1182204 = r1182201 + r1182203;
double r1182205 = /* ERROR: no complex support in C */;
return r1182205;
}
double f() {
double r1182206 = -0.5;
double r1182207 = 3.0;
double r1182208 = sqrt(r1182207);
double r1182209 = 2.0;
double r1182210 = r1182208 / r1182209;
double r1182211 = /* ERROR: no complex support in C */;
double r1182212 = r1182211 * r1182211;
double r1182213 = r1182212 * r1182211;
double r1182214 = r1182211 * r1182213;
double r1182215 = -2.0;
double r1182216 = 0.0;
double r1182217 = /* ERROR: no complex support in C */;
double r1182218 = r1182217 * r1182211;
double r1182219 = r1182211 * r1182218;
double r1182220 = r1182211 * r1182219;
double r1182221 = r1182214 + r1182220;
double r1182222 = 5.0;
double r1182223 = /* ERROR: no complex support in C */;
double r1182224 = r1182223 * r1182211;
double r1182225 = r1182224 * r1182211;
double r1182226 = r1182221 + r1182225;
double r1182227 = 4.0;
double r1182228 = /* ERROR: no complex support in C */;
double r1182229 = r1182211 * r1182228;
double r1182230 = r1182226 + r1182229;
double r1182231 = 7.0;
double r1182232 = /* ERROR: no complex support in C */;
double r1182233 = r1182230 + r1182232;
double r1182234 = /* ERROR: no complex support in C */;
return r1182234;
}
Initial program 0
Final simplification0
herbie shell --seed 2019129
(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))))