\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 r27107 = 1.0;
double r27108 = -r27107;
double r27109 = 2.0;
double r27110 = r27108 / r27109;
double r27111 = 3.0;
double r27112 = sqrt(r27111);
double r27113 = r27112 / r27109;
double r27114 = /* ERROR: no complex support in C */;
double r27115 = r27114 * r27114;
double r27116 = r27115 * r27114;
double r27117 = r27116 * r27114;
double r27118 = -r27109;
double r27119 = 0.0;
double r27120 = /* ERROR: no complex support in C */;
double r27121 = r27120 * r27114;
double r27122 = r27121 * r27114;
double r27123 = r27122 * r27114;
double r27124 = r27117 + r27123;
double r27125 = 5.0;
double r27126 = /* ERROR: no complex support in C */;
double r27127 = r27126 * r27114;
double r27128 = r27127 * r27114;
double r27129 = r27124 + r27128;
double r27130 = 4.0;
double r27131 = /* ERROR: no complex support in C */;
double r27132 = r27131 * r27114;
double r27133 = r27129 + r27132;
double r27134 = 7.0;
double r27135 = /* ERROR: no complex support in C */;
double r27136 = r27133 + r27135;
double r27137 = /* ERROR: no complex support in C */;
return r27137;
}
double f() {
double r27138 = 1.0;
double r27139 = -r27138;
double r27140 = 2.0;
double r27141 = r27139 / r27140;
double r27142 = 3.0;
double r27143 = sqrt(r27142);
double r27144 = r27143 / r27140;
double r27145 = /* ERROR: no complex support in C */;
double r27146 = r27145 * r27145;
double r27147 = r27146 * r27145;
double r27148 = r27147 * r27145;
double r27149 = -r27140;
double r27150 = 0.0;
double r27151 = /* ERROR: no complex support in C */;
double r27152 = r27151 * r27145;
double r27153 = r27152 * r27145;
double r27154 = r27153 * r27145;
double r27155 = r27148 + r27154;
double r27156 = 5.0;
double r27157 = /* ERROR: no complex support in C */;
double r27158 = r27157 * r27145;
double r27159 = r27158 * r27145;
double r27160 = r27155 + r27159;
double r27161 = 4.0;
double r27162 = /* ERROR: no complex support in C */;
double r27163 = r27162 * r27145;
double r27164 = r27160 + r27163;
double r27165 = 7.0;
double r27166 = /* ERROR: no complex support in C */;
double r27167 = r27164 + r27166;
double r27168 = /* ERROR: no complex support in C */;
return r27168;
}
Initial program 61.9
Final simplification61.9
herbie shell --seed 2019353 +o rules:numerics
(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))))