\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))
-1
double f() {
double r618084 = -1.0;
double r618085 = 1.0;
double r618086 = /* ERROR: no complex support in C */;
double r618087 = r618086 * r618086;
double r618088 = r618087 * r618086;
double r618089 = r618088 * r618086;
double r618090 = r618089 * r618086;
double r618091 = r618090 * r618086;
double r618092 = 6.0;
double r618093 = 0.0;
double r618094 = /* ERROR: no complex support in C */;
double r618095 = r618094 * r618086;
double r618096 = r618095 * r618086;
double r618097 = r618096 * r618086;
double r618098 = r618097 * r618086;
double r618099 = r618098 * r618086;
double r618100 = r618091 + r618099;
double r618101 = 15.0;
double r618102 = /* ERROR: no complex support in C */;
double r618103 = r618102 * r618086;
double r618104 = r618103 * r618086;
double r618105 = r618104 * r618086;
double r618106 = r618105 * r618086;
double r618107 = r618100 + r618106;
double r618108 = 20.0;
double r618109 = /* ERROR: no complex support in C */;
double r618110 = r618109 * r618086;
double r618111 = r618110 * r618086;
double r618112 = r618111 * r618086;
double r618113 = r618107 + r618112;
double r618114 = r618113 + r618104;
double r618115 = r618114 + r618095;
double r618116 = /* ERROR: no complex support in C */;
double r618117 = r618115 + r618116;
double r618118 = /* ERROR: no complex support in C */;
return r618118;
}
double f() {
double r618119 = -1.0;
return r618119;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019133 +o rules:numerics
(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))))