\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(\left(-\sqrt{3}\right) - \frac{\sqrt{3}}{2}\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 r338091 = 1.0;
double r338092 = -r338091;
double r338093 = 2.0;
double r338094 = r338092 / r338093;
double r338095 = 3.0;
double r338096 = sqrt(r338095);
double r338097 = r338096 / r338093;
double r338098 = /* ERROR: no complex support in C */;
double r338099 = r338098 * r338098;
double r338100 = r338099 * r338098;
double r338101 = r338100 * r338098;
double r338102 = -r338093;
double r338103 = 0.0;
double r338104 = /* ERROR: no complex support in C */;
double r338105 = r338104 * r338098;
double r338106 = r338105 * r338098;
double r338107 = r338106 * r338098;
double r338108 = r338101 + r338107;
double r338109 = 5.0;
double r338110 = /* ERROR: no complex support in C */;
double r338111 = r338110 * r338098;
double r338112 = r338111 * r338098;
double r338113 = r338108 + r338112;
double r338114 = 4.0;
double r338115 = /* ERROR: no complex support in C */;
double r338116 = r338115 * r338098;
double r338117 = r338113 + r338116;
double r338118 = 7.0;
double r338119 = /* ERROR: no complex support in C */;
double r338120 = r338117 + r338119;
double r338121 = /* ERROR: no complex support in C */;
return r338121;
}
double f() {
double r338122 = 5.5;
double r338123 = 3.0;
double r338124 = sqrt(r338123);
double r338125 = -r338124;
double r338126 = 2.0;
double r338127 = r338124 / r338126;
double r338128 = r338125 - r338127;
double r338129 = /* ERROR: no complex support in C */;
double r338130 = -0.5;
double r338131 = -2.0;
double r338132 = r338124 / r338131;
double r338133 = /* ERROR: no complex support in C */;
double r338134 = r338129 * r338133;
double r338135 = 5.0;
double r338136 = r338124 * r338126;
double r338137 = /* ERROR: no complex support in C */;
double r338138 = r338134 + r338137;
double r338139 = /* ERROR: no complex support in C */;
return r338139;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019149
(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))))