\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 r413155 = 1.0;
double r413156 = -r413155;
double r413157 = 2.0;
double r413158 = r413156 / r413157;
double r413159 = 3.0;
double r413160 = sqrt(r413159);
double r413161 = r413160 / r413157;
double r413162 = /* ERROR: no complex support in C */;
double r413163 = r413162 * r413162;
double r413164 = r413163 * r413162;
double r413165 = r413164 * r413162;
double r413166 = -r413157;
double r413167 = 0.0;
double r413168 = /* ERROR: no complex support in C */;
double r413169 = r413168 * r413162;
double r413170 = r413169 * r413162;
double r413171 = r413170 * r413162;
double r413172 = r413165 + r413171;
double r413173 = 5.0;
double r413174 = /* ERROR: no complex support in C */;
double r413175 = r413174 * r413162;
double r413176 = r413175 * r413162;
double r413177 = r413172 + r413176;
double r413178 = 4.0;
double r413179 = /* ERROR: no complex support in C */;
double r413180 = r413179 * r413162;
double r413181 = r413177 + r413180;
double r413182 = 7.0;
double r413183 = /* ERROR: no complex support in C */;
double r413184 = r413181 + r413183;
double r413185 = /* ERROR: no complex support in C */;
return r413185;
}
double f() {
double r413186 = -0.5;
double r413187 = 3.0;
double r413188 = sqrt(r413187);
double r413189 = 2.0;
double r413190 = r413188 / r413189;
double r413191 = /* ERROR: no complex support in C */;
double r413192 = r413191 * r413191;
double r413193 = r413192 * r413191;
double r413194 = r413191 * r413193;
double r413195 = -2.0;
double r413196 = 0.0;
double r413197 = /* ERROR: no complex support in C */;
double r413198 = r413197 * r413191;
double r413199 = r413191 * r413198;
double r413200 = r413191 * r413199;
double r413201 = r413194 + r413200;
double r413202 = 5.0;
double r413203 = /* ERROR: no complex support in C */;
double r413204 = r413203 * r413191;
double r413205 = r413204 * r413191;
double r413206 = r413201 + r413205;
double r413207 = 4.0;
double r413208 = /* ERROR: no complex support in C */;
double r413209 = r413191 * r413208;
double r413210 = r413206 + r413209;
double r413211 = 7.0;
double r413212 = /* ERROR: no complex support in C */;
double r413213 = r413210 + r413212;
double r413214 = /* ERROR: no complex support in C */;
return r413214;
}
Initial program 0
Final simplification0
herbie shell --seed 2019141
(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))))