\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))
\Re(\left(\left(-5 + -24 i\right) + \left(\left(\left(24 + -24 i\right) + \left(0 + 8 i\right)\right) + \left(\left(40 + 40 i\right) + \left(-60 + 0 i\right)\right)\right)\right))
double f() {
double r753935 = -1.0;
double r753936 = 1.0;
double r753937 = /* ERROR: no complex support in C */;
double r753938 = r753937 * r753937;
double r753939 = r753938 * r753937;
double r753940 = r753939 * r753937;
double r753941 = r753940 * r753937;
double r753942 = r753941 * r753937;
double r753943 = 6.0;
double r753944 = 0.0;
double r753945 = /* ERROR: no complex support in C */;
double r753946 = r753945 * r753937;
double r753947 = r753946 * r753937;
double r753948 = r753947 * r753937;
double r753949 = r753948 * r753937;
double r753950 = r753949 * r753937;
double r753951 = r753942 + r753950;
double r753952 = 15.0;
double r753953 = /* ERROR: no complex support in C */;
double r753954 = r753953 * r753937;
double r753955 = r753954 * r753937;
double r753956 = r753955 * r753937;
double r753957 = r753956 * r753937;
double r753958 = r753951 + r753957;
double r753959 = 20.0;
double r753960 = /* ERROR: no complex support in C */;
double r753961 = r753960 * r753937;
double r753962 = r753961 * r753937;
double r753963 = r753962 * r753937;
double r753964 = r753958 + r753963;
double r753965 = r753964 + r753955;
double r753966 = r753965 + r753946;
double r753967 = /* ERROR: no complex support in C */;
double r753968 = r753966 + r753967;
double r753969 = /* ERROR: no complex support in C */;
return r753969;
}
double f() {
double r753970 = -5.0;
double r753971 = -24.0;
double r753972 = /* ERROR: no complex support in C */;
double r753973 = 24.0;
double r753974 = /* ERROR: no complex support in C */;
double r753975 = 0.0;
double r753976 = 8.0;
double r753977 = /* ERROR: no complex support in C */;
double r753978 = r753974 + r753977;
double r753979 = 40.0;
double r753980 = /* ERROR: no complex support in C */;
double r753981 = -60.0;
double r753982 = /* ERROR: no complex support in C */;
double r753983 = r753980 + r753982;
double r753984 = r753978 + r753983;
double r753985 = r753972 + r753984;
double r753986 = /* ERROR: no complex support in C */;
return r753986;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019128
(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))))