\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 r401093 = 1.0;
double r401094 = -r401093;
double r401095 = 2.0;
double r401096 = r401094 / r401095;
double r401097 = 3.0;
double r401098 = sqrt(r401097);
double r401099 = r401098 / r401095;
double r401100 = /* ERROR: no complex support in C */;
double r401101 = r401100 * r401100;
double r401102 = r401101 * r401100;
double r401103 = r401102 * r401100;
double r401104 = -r401095;
double r401105 = 0.0;
double r401106 = /* ERROR: no complex support in C */;
double r401107 = r401106 * r401100;
double r401108 = r401107 * r401100;
double r401109 = r401108 * r401100;
double r401110 = r401103 + r401109;
double r401111 = 5.0;
double r401112 = /* ERROR: no complex support in C */;
double r401113 = r401112 * r401100;
double r401114 = r401113 * r401100;
double r401115 = r401110 + r401114;
double r401116 = 4.0;
double r401117 = /* ERROR: no complex support in C */;
double r401118 = r401117 * r401100;
double r401119 = r401115 + r401118;
double r401120 = 7.0;
double r401121 = /* ERROR: no complex support in C */;
double r401122 = r401119 + r401121;
double r401123 = /* ERROR: no complex support in C */;
return r401123;
}
double f() {
double r401124 = 5.5;
double r401125 = 3.0;
double r401126 = sqrt(r401125);
double r401127 = -2.0;
double r401128 = r401126 / r401127;
double r401129 = -r401126;
double r401130 = r401128 + r401129;
double r401131 = /* ERROR: no complex support in C */;
double r401132 = -0.5;
double r401133 = /* ERROR: no complex support in C */;
double r401134 = r401131 * r401133;
double r401135 = 5.0;
double r401136 = 2.0;
double r401137 = r401126 * r401136;
double r401138 = /* ERROR: no complex support in C */;
double r401139 = r401134 + r401138;
double r401140 = /* ERROR: no complex support in C */;
return r401140;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019149 +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))))