\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 r502908 = -1.0;
double r502909 = 1.0;
double r502910 = /* ERROR: no complex support in C */;
double r502911 = r502910 * r502910;
double r502912 = r502911 * r502910;
double r502913 = r502912 * r502910;
double r502914 = r502913 * r502910;
double r502915 = r502914 * r502910;
double r502916 = 6.0;
double r502917 = 0.0;
double r502918 = /* ERROR: no complex support in C */;
double r502919 = r502918 * r502910;
double r502920 = r502919 * r502910;
double r502921 = r502920 * r502910;
double r502922 = r502921 * r502910;
double r502923 = r502922 * r502910;
double r502924 = r502915 + r502923;
double r502925 = 15.0;
double r502926 = /* ERROR: no complex support in C */;
double r502927 = r502926 * r502910;
double r502928 = r502927 * r502910;
double r502929 = r502928 * r502910;
double r502930 = r502929 * r502910;
double r502931 = r502924 + r502930;
double r502932 = 20.0;
double r502933 = /* ERROR: no complex support in C */;
double r502934 = r502933 * r502910;
double r502935 = r502934 * r502910;
double r502936 = r502935 * r502910;
double r502937 = r502931 + r502936;
double r502938 = r502937 + r502928;
double r502939 = r502938 + r502919;
double r502940 = /* ERROR: no complex support in C */;
double r502941 = r502939 + r502940;
double r502942 = /* ERROR: no complex support in C */;
return r502942;
}
double f() {
double r502943 = -1.0;
return r502943;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019137
(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))))