\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 r744896 = -1.0;
double r744897 = 1.0;
double r744898 = /* ERROR: no complex support in C */;
double r744899 = r744898 * r744898;
double r744900 = r744899 * r744898;
double r744901 = r744900 * r744898;
double r744902 = r744901 * r744898;
double r744903 = r744902 * r744898;
double r744904 = 6.0;
double r744905 = 0.0;
double r744906 = /* ERROR: no complex support in C */;
double r744907 = r744906 * r744898;
double r744908 = r744907 * r744898;
double r744909 = r744908 * r744898;
double r744910 = r744909 * r744898;
double r744911 = r744910 * r744898;
double r744912 = r744903 + r744911;
double r744913 = 15.0;
double r744914 = /* ERROR: no complex support in C */;
double r744915 = r744914 * r744898;
double r744916 = r744915 * r744898;
double r744917 = r744916 * r744898;
double r744918 = r744917 * r744898;
double r744919 = r744912 + r744918;
double r744920 = 20.0;
double r744921 = /* ERROR: no complex support in C */;
double r744922 = r744921 * r744898;
double r744923 = r744922 * r744898;
double r744924 = r744923 * r744898;
double r744925 = r744919 + r744924;
double r744926 = r744925 + r744916;
double r744927 = r744926 + r744907;
double r744928 = /* ERROR: no complex support in C */;
double r744929 = r744927 + r744928;
double r744930 = /* ERROR: no complex support in C */;
return r744930;
}
double f() {
double r744931 = -1.0;
return r744931;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019168 +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))))