\Re(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(\left(-1 + 1 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) + \left(\left(\left(\left(\left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(\left(15 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(\left(20 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(\left(15 + 0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0 i\right)\right))
\Re(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r1449129 = -1.0;
double r1449130 = 1.0;
double r1449131 = /* ERROR: no complex support in C */;
double r1449132 = r1449131 * r1449131;
double r1449133 = r1449132 * r1449131;
double r1449134 = r1449133 * r1449131;
double r1449135 = r1449134 * r1449131;
double r1449136 = r1449135 * r1449131;
double r1449137 = 6.0;
double r1449138 = 0.0;
double r1449139 = /* ERROR: no complex support in C */;
double r1449140 = r1449139 * r1449131;
double r1449141 = r1449140 * r1449131;
double r1449142 = r1449141 * r1449131;
double r1449143 = r1449142 * r1449131;
double r1449144 = r1449143 * r1449131;
double r1449145 = r1449136 + r1449144;
double r1449146 = 15.0;
double r1449147 = /* ERROR: no complex support in C */;
double r1449148 = r1449147 * r1449131;
double r1449149 = r1449148 * r1449131;
double r1449150 = r1449149 * r1449131;
double r1449151 = r1449150 * r1449131;
double r1449152 = r1449145 + r1449151;
double r1449153 = 20.0;
double r1449154 = /* ERROR: no complex support in C */;
double r1449155 = r1449154 * r1449131;
double r1449156 = r1449155 * r1449131;
double r1449157 = r1449156 * r1449131;
double r1449158 = r1449152 + r1449157;
double r1449159 = r1449158 + r1449149;
double r1449160 = r1449159 + r1449140;
double r1449161 = /* ERROR: no complex support in C */;
double r1449162 = r1449160 + r1449161;
double r1449163 = /* ERROR: no complex support in C */;
return r1449163;
}
double f() {
double r1449164 = -5.0;
double r1449165 = -24.0;
double r1449166 = /* ERROR: no complex support in C */;
double r1449167 = 24.0;
double r1449168 = /* ERROR: no complex support in C */;
double r1449169 = 0.0;
double r1449170 = 8.0;
double r1449171 = /* ERROR: no complex support in C */;
double r1449172 = r1449168 + r1449171;
double r1449173 = 40.0;
double r1449174 = /* ERROR: no complex support in C */;
double r1449175 = -60.0;
double r1449176 = /* ERROR: no complex support in C */;
double r1449177 = r1449174 + r1449176;
double r1449178 = r1449172 + r1449177;
double r1449179 = r1449166 + r1449178;
double r1449180 = /* ERROR: no complex support in C */;
return r1449180;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019119
(FPCore ()
:name "3.9.1 real part (p56)"
(re (+.c (+.c (+.c (+.c (+.c (+.c (*.c (*.c (*.c (*.c (*.c (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (*.c (*.c (*.c (*.c (*.c (complex 6 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (*.c (complex 20 0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (*.c (*.c (complex 15 0) (complex -1 1)) (complex -1 1))) (*.c (complex 6 0) (complex -1 1))) (complex 1 0))))