\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 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))\Re(\left(\left(5 + \frac{4}{\frac{2}{\sqrt{3}}} i\right) + \left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) \cdot \left(\left(\left(\frac{1}{4} - \frac{\sqrt{3}}{2} \cdot \frac{\sqrt{3}}{2}\right) + \left(-\frac{\sqrt{3}}{2}\right) i\right) + \left(6 + \frac{\sqrt{3}}{2} \cdot -2 i\right)\right)\right))double f() {
double r1808162 = 1.0;
double r1808163 = -r1808162;
double r1808164 = 2.0;
double r1808165 = r1808163 / r1808164;
double r1808166 = 3.0;
double r1808167 = sqrt(r1808166);
double r1808168 = r1808167 / r1808164;
double r1808169 = /* ERROR: no complex support in C */;
double r1808170 = r1808169 * r1808169;
double r1808171 = r1808170 * r1808169;
double r1808172 = r1808171 * r1808169;
double r1808173 = -r1808164;
double r1808174 = 0.0;
double r1808175 = /* ERROR: no complex support in C */;
double r1808176 = r1808175 * r1808169;
double r1808177 = r1808176 * r1808169;
double r1808178 = r1808177 * r1808169;
double r1808179 = r1808172 + r1808178;
double r1808180 = 5.0;
double r1808181 = /* ERROR: no complex support in C */;
double r1808182 = r1808181 * r1808169;
double r1808183 = r1808182 * r1808169;
double r1808184 = r1808179 + r1808183;
double r1808185 = 4.0;
double r1808186 = /* ERROR: no complex support in C */;
double r1808187 = r1808186 * r1808169;
double r1808188 = r1808184 + r1808187;
double r1808189 = 7.0;
double r1808190 = /* ERROR: no complex support in C */;
double r1808191 = r1808188 + r1808190;
double r1808192 = /* ERROR: no complex support in C */;
return r1808192;
}
double f() {
double r1808193 = 5.0;
double r1808194 = 4.0;
double r1808195 = 2.0;
double r1808196 = 3.0;
double r1808197 = sqrt(r1808196);
double r1808198 = r1808195 / r1808197;
double r1808199 = r1808194 / r1808198;
double r1808200 = /* ERROR: no complex support in C */;
double r1808201 = 0.25;
double r1808202 = r1808197 / r1808195;
double r1808203 = r1808202 * r1808202;
double r1808204 = r1808201 - r1808203;
double r1808205 = -r1808202;
double r1808206 = /* ERROR: no complex support in C */;
double r1808207 = 6.0;
double r1808208 = -2.0;
double r1808209 = r1808202 * r1808208;
double r1808210 = /* ERROR: no complex support in C */;
double r1808211 = r1808206 + r1808210;
double r1808212 = r1808206 * r1808211;
double r1808213 = r1808200 + r1808212;
double r1808214 = /* ERROR: no complex support in C */;
return r1808214;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019119
(FPCore ()
:name "3.9.2 real part (p56)"
(re (+.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))))