\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 r920113 = 1.0;
double r920114 = -r920113;
double r920115 = 2.0;
double r920116 = r920114 / r920115;
double r920117 = 3.0;
double r920118 = sqrt(r920117);
double r920119 = r920118 / r920115;
double r920120 = /* ERROR: no complex support in C */;
double r920121 = r920120 * r920120;
double r920122 = r920121 * r920120;
double r920123 = r920122 * r920120;
double r920124 = -r920115;
double r920125 = 0.0;
double r920126 = /* ERROR: no complex support in C */;
double r920127 = r920126 * r920120;
double r920128 = r920127 * r920120;
double r920129 = r920128 * r920120;
double r920130 = r920123 + r920129;
double r920131 = 5.0;
double r920132 = /* ERROR: no complex support in C */;
double r920133 = r920132 * r920120;
double r920134 = r920133 * r920120;
double r920135 = r920130 + r920134;
double r920136 = 4.0;
double r920137 = /* ERROR: no complex support in C */;
double r920138 = r920137 * r920120;
double r920139 = r920135 + r920138;
double r920140 = 7.0;
double r920141 = /* ERROR: no complex support in C */;
double r920142 = r920139 + r920141;
double r920143 = /* ERROR: no complex support in C */;
return r920143;
}
double f() {
double r920144 = -0.5;
double r920145 = 3.0;
double r920146 = sqrt(r920145);
double r920147 = 2.0;
double r920148 = r920146 / r920147;
double r920149 = /* ERROR: no complex support in C */;
double r920150 = r920149 * r920149;
double r920151 = r920150 * r920149;
double r920152 = r920149 * r920151;
double r920153 = -2.0;
double r920154 = 0.0;
double r920155 = /* ERROR: no complex support in C */;
double r920156 = r920155 * r920149;
double r920157 = r920149 * r920156;
double r920158 = r920149 * r920157;
double r920159 = r920152 + r920158;
double r920160 = 5.0;
double r920161 = /* ERROR: no complex support in C */;
double r920162 = r920161 * r920149;
double r920163 = r920162 * r920149;
double r920164 = r920159 + r920163;
double r920165 = 4.0;
double r920166 = /* ERROR: no complex support in C */;
double r920167 = r920149 * r920166;
double r920168 = r920164 + r920167;
double r920169 = 7.0;
double r920170 = /* ERROR: no complex support in C */;
double r920171 = r920168 + r920170;
double r920172 = /* ERROR: no complex support in C */;
return r920172;
}
Initial program 0
Final simplification0
herbie shell --seed 2019138
(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))))