\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 r373732 = -1.0;
double r373733 = 1.0;
double r373734 = /* ERROR: no complex support in C */;
double r373735 = r373734 * r373734;
double r373736 = r373735 * r373734;
double r373737 = r373736 * r373734;
double r373738 = r373737 * r373734;
double r373739 = r373738 * r373734;
double r373740 = 6.0;
double r373741 = 0.0;
double r373742 = /* ERROR: no complex support in C */;
double r373743 = r373742 * r373734;
double r373744 = r373743 * r373734;
double r373745 = r373744 * r373734;
double r373746 = r373745 * r373734;
double r373747 = r373746 * r373734;
double r373748 = r373739 + r373747;
double r373749 = 15.0;
double r373750 = /* ERROR: no complex support in C */;
double r373751 = r373750 * r373734;
double r373752 = r373751 * r373734;
double r373753 = r373752 * r373734;
double r373754 = r373753 * r373734;
double r373755 = r373748 + r373754;
double r373756 = 20.0;
double r373757 = /* ERROR: no complex support in C */;
double r373758 = r373757 * r373734;
double r373759 = r373758 * r373734;
double r373760 = r373759 * r373734;
double r373761 = r373755 + r373760;
double r373762 = r373761 + r373752;
double r373763 = r373762 + r373743;
double r373764 = /* ERROR: no complex support in C */;
double r373765 = r373763 + r373764;
double r373766 = /* ERROR: no complex support in C */;
return r373766;
}
double f() {
double r373767 = -1.0;
return r373767;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019156 +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))))