\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(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(5 + 0.0 i\right) + \left(\left(\frac{-1}{2} + \frac{\sqrt{3}}{2} i\right) \cdot \left(\left(-\left(\frac{1}{2} + 2\right)\right) + \left(\frac{\sqrt{3}}{2} + 0.0\right) i\right)\right)\right)\right) + \left(4 + 0.0 i\right)\right)\right) + \left(7 + 0.0 i\right)\right))double f() {
double r22077 = 1.0;
double r22078 = -r22077;
double r22079 = 2.0;
double r22080 = r22078 / r22079;
double r22081 = 3.0;
double r22082 = sqrt(r22081);
double r22083 = r22082 / r22079;
double r22084 = /* ERROR: no complex support in C */;
double r22085 = r22084 * r22084;
double r22086 = r22085 * r22084;
double r22087 = r22086 * r22084;
double r22088 = -r22079;
double r22089 = 0.0;
double r22090 = /* ERROR: no complex support in C */;
double r22091 = r22090 * r22084;
double r22092 = r22091 * r22084;
double r22093 = r22092 * r22084;
double r22094 = r22087 + r22093;
double r22095 = 5.0;
double r22096 = /* ERROR: no complex support in C */;
double r22097 = r22096 * r22084;
double r22098 = r22097 * r22084;
double r22099 = r22094 + r22098;
double r22100 = 4.0;
double r22101 = /* ERROR: no complex support in C */;
double r22102 = r22101 * r22084;
double r22103 = r22099 + r22102;
double r22104 = 7.0;
double r22105 = /* ERROR: no complex support in C */;
double r22106 = r22103 + r22105;
double r22107 = /* ERROR: no complex support in C */;
return r22107;
}
double f() {
double r22108 = 1.0;
double r22109 = -r22108;
double r22110 = 2.0;
double r22111 = r22109 / r22110;
double r22112 = 3.0;
double r22113 = sqrt(r22112);
double r22114 = r22113 / r22110;
double r22115 = /* ERROR: no complex support in C */;
double r22116 = 5.0;
double r22117 = 0.0;
double r22118 = /* ERROR: no complex support in C */;
double r22119 = r22108 / r22110;
double r22120 = r22119 + r22110;
double r22121 = -r22120;
double r22122 = r22114 + r22117;
double r22123 = /* ERROR: no complex support in C */;
double r22124 = r22115 * r22123;
double r22125 = r22118 + r22124;
double r22126 = r22115 * r22125;
double r22127 = 4.0;
double r22128 = /* ERROR: no complex support in C */;
double r22129 = r22126 + r22128;
double r22130 = r22115 * r22129;
double r22131 = 7.0;
double r22132 = /* ERROR: no complex support in C */;
double r22133 = r22130 + r22132;
double r22134 = /* ERROR: no complex support in C */;
return r22134;
}
Initial program 61.9
Simplified0
Final simplification0
herbie shell --seed 2019305
(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))))