\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(\frac{11}{2} + \left(\frac{\sqrt{3}}{-2} + \left(-\sqrt{3}\right)\right) i\right) \cdot \left(\frac{-1}{2} + \frac{\sqrt{3}}{-2} i\right) + \left(5 + \sqrt{3} \cdot 2 i\right)\right))double f() {
double r401106 = 1.0;
double r401107 = -r401106;
double r401108 = 2.0;
double r401109 = r401107 / r401108;
double r401110 = 3.0;
double r401111 = sqrt(r401110);
double r401112 = r401111 / r401108;
double r401113 = /* ERROR: no complex support in C */;
double r401114 = r401113 * r401113;
double r401115 = r401114 * r401113;
double r401116 = r401115 * r401113;
double r401117 = -r401108;
double r401118 = 0.0;
double r401119 = /* ERROR: no complex support in C */;
double r401120 = r401119 * r401113;
double r401121 = r401120 * r401113;
double r401122 = r401121 * r401113;
double r401123 = r401116 + r401122;
double r401124 = 5.0;
double r401125 = /* ERROR: no complex support in C */;
double r401126 = r401125 * r401113;
double r401127 = r401126 * r401113;
double r401128 = r401123 + r401127;
double r401129 = 4.0;
double r401130 = /* ERROR: no complex support in C */;
double r401131 = r401130 * r401113;
double r401132 = r401128 + r401131;
double r401133 = 7.0;
double r401134 = /* ERROR: no complex support in C */;
double r401135 = r401132 + r401134;
double r401136 = /* ERROR: no complex support in C */;
return r401136;
}
double f() {
double r401137 = 5.5;
double r401138 = 3.0;
double r401139 = sqrt(r401138);
double r401140 = -2.0;
double r401141 = r401139 / r401140;
double r401142 = -r401139;
double r401143 = r401141 + r401142;
double r401144 = /* ERROR: no complex support in C */;
double r401145 = -0.5;
double r401146 = /* ERROR: no complex support in C */;
double r401147 = r401144 * r401146;
double r401148 = 5.0;
double r401149 = 2.0;
double r401150 = r401139 * r401149;
double r401151 = /* ERROR: no complex support in C */;
double r401152 = r401147 + r401151;
double r401153 = /* ERROR: no complex support in C */;
return r401153;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019151 +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))))