\Re(\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.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.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.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0.0 i\right)\right))\Re(\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.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.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.0 i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r159 = 1.0;
double r160 = -r159;
double r161 = 2.0;
double r162 = r160 / r161;
double r163 = 3.0;
double r164 = sqrt(r163);
double r165 = r164 / r161;
double r166 = /* ERROR: no complex support in C */;
double r167 = r166 * r166;
double r168 = r167 * r166;
double r169 = r168 * r166;
double r170 = -r161;
double r171 = 0.0;
double r172 = /* ERROR: no complex support in C */;
double r173 = r172 * r166;
double r174 = r173 * r166;
double r175 = r174 * r166;
double r176 = r169 + r175;
double r177 = 5.0;
double r178 = /* ERROR: no complex support in C */;
double r179 = r178 * r166;
double r180 = r179 * r166;
double r181 = r176 + r180;
double r182 = 4.0;
double r183 = /* ERROR: no complex support in C */;
double r184 = r183 * r166;
double r185 = r181 + r184;
double r186 = 7.0;
double r187 = /* ERROR: no complex support in C */;
double r188 = r185 + r187;
double r189 = /* ERROR: no complex support in C */;
return r189;
}
double f() {
double r190 = 1.0;
double r191 = -r190;
double r192 = 2.0;
double r193 = r191 / r192;
double r194 = 3.0;
double r195 = sqrt(r194);
double r196 = r195 / r192;
double r197 = /* ERROR: no complex support in C */;
double r198 = r197 * r197;
double r199 = r198 * r197;
double r200 = r199 * r197;
double r201 = -r192;
double r202 = 0.0;
double r203 = /* ERROR: no complex support in C */;
double r204 = r203 * r197;
double r205 = r204 * r197;
double r206 = r205 * r197;
double r207 = r200 + r206;
double r208 = 5.0;
double r209 = /* ERROR: no complex support in C */;
double r210 = r209 * r197;
double r211 = r210 * r197;
double r212 = r207 + r211;
double r213 = 4.0;
double r214 = /* ERROR: no complex support in C */;
double r215 = r214 * r197;
double r216 = r212 + r215;
double r217 = 7.0;
double r218 = /* ERROR: no complex support in C */;
double r219 = r216 + r218;
double r220 = /* ERROR: no complex support in C */;
return r220;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2020025
(FPCore ()
:name "3.9.2 real part (p56)"
:precision binary64
(re (+ (+ (+ (+ (* (* (* (complex (/ (- 1) 2) (/ (sqrt 3) 2)) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (* (* (* (complex (- 2) 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (* (complex 5 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2))) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (* (complex 4 0.0) (complex (/ (- 1) 2) (/ (sqrt 3) 2)))) (complex 7 0.0))))