\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(\left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(6 + -2 \cdot \frac{\sqrt{3}}{2} i\right)\right) \cdot \left(\left(\frac{\sqrt{3}}{2} \cdot \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) + \frac{1}{4}\right) + \left(\frac{\sqrt{3}}{-4} + \frac{\sqrt{3}}{-4}\right) i\right) + \left(5 + \frac{\sqrt{3} \cdot 4}{2} i\right)\right))double f() {
double r828189 = 1.0;
double r828190 = -r828189;
double r828191 = 2.0;
double r828192 = r828190 / r828191;
double r828193 = 3.0;
double r828194 = sqrt(r828193);
double r828195 = r828194 / r828191;
double r828196 = /* ERROR: no complex support in C */;
double r828197 = r828196 * r828196;
double r828198 = r828197 * r828196;
double r828199 = r828198 * r828196;
double r828200 = -r828191;
double r828201 = 0.0;
double r828202 = /* ERROR: no complex support in C */;
double r828203 = r828202 * r828196;
double r828204 = r828203 * r828196;
double r828205 = r828204 * r828196;
double r828206 = r828199 + r828205;
double r828207 = 5.0;
double r828208 = /* ERROR: no complex support in C */;
double r828209 = r828208 * r828196;
double r828210 = r828209 * r828196;
double r828211 = r828206 + r828210;
double r828212 = 4.0;
double r828213 = /* ERROR: no complex support in C */;
double r828214 = r828213 * r828196;
double r828215 = r828211 + r828214;
double r828216 = 7.0;
double r828217 = /* ERROR: no complex support in C */;
double r828218 = r828215 + r828217;
double r828219 = /* ERROR: no complex support in C */;
return r828219;
}
double f() {
double r828220 = 3.0;
double r828221 = sqrt(r828220);
double r828222 = 2.0;
double r828223 = r828221 / r828222;
double r828224 = -4.0;
double r828225 = r828221 / r828224;
double r828226 = r828225 + r828225;
double r828227 = r828223 * r828226;
double r828228 = 0.25;
double r828229 = r828227 + r828228;
double r828230 = /* ERROR: no complex support in C */;
double r828231 = 6.0;
double r828232 = -2.0;
double r828233 = r828232 * r828223;
double r828234 = /* ERROR: no complex support in C */;
double r828235 = r828230 + r828234;
double r828236 = r828235 * r828230;
double r828237 = 5.0;
double r828238 = 4.0;
double r828239 = r828221 * r828238;
double r828240 = r828239 / r828222;
double r828241 = /* ERROR: no complex support in C */;
double r828242 = r828236 + r828241;
double r828243 = /* ERROR: no complex support in C */;
return r828243;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019153 +o rules:numerics
(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))))