\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 r63848 = -1.0;
double r63849 = 1.0;
double r63850 = /* ERROR: no complex support in C */;
double r63851 = r63850 * r63850;
double r63852 = r63851 * r63850;
double r63853 = r63852 * r63850;
double r63854 = r63853 * r63850;
double r63855 = r63854 * r63850;
double r63856 = 6.0;
double r63857 = 0.0;
double r63858 = /* ERROR: no complex support in C */;
double r63859 = r63858 * r63850;
double r63860 = r63859 * r63850;
double r63861 = r63860 * r63850;
double r63862 = r63861 * r63850;
double r63863 = r63862 * r63850;
double r63864 = r63855 + r63863;
double r63865 = 15.0;
double r63866 = /* ERROR: no complex support in C */;
double r63867 = r63866 * r63850;
double r63868 = r63867 * r63850;
double r63869 = r63868 * r63850;
double r63870 = r63869 * r63850;
double r63871 = r63864 + r63870;
double r63872 = 20.0;
double r63873 = /* ERROR: no complex support in C */;
double r63874 = r63873 * r63850;
double r63875 = r63874 * r63850;
double r63876 = r63875 * r63850;
double r63877 = r63871 + r63876;
double r63878 = r63877 + r63868;
double r63879 = r63878 + r63859;
double r63880 = /* ERROR: no complex support in C */;
double r63881 = r63879 + r63880;
double r63882 = /* ERROR: no complex support in C */;
return r63882;
}
double f() {
double r63883 = -1.0;
return r63883;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019151 +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))))