\Im(\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))
\Im(\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 r1527033 = -1.0;
double r1527034 = 1.0;
double r1527035 = /* ERROR: no complex support in C */;
double r1527036 = r1527035 * r1527035;
double r1527037 = r1527036 * r1527035;
double r1527038 = r1527037 * r1527035;
double r1527039 = r1527038 * r1527035;
double r1527040 = r1527039 * r1527035;
double r1527041 = 6.0;
double r1527042 = 0.0;
double r1527043 = /* ERROR: no complex support in C */;
double r1527044 = r1527043 * r1527035;
double r1527045 = r1527044 * r1527035;
double r1527046 = r1527045 * r1527035;
double r1527047 = r1527046 * r1527035;
double r1527048 = r1527047 * r1527035;
double r1527049 = r1527040 + r1527048;
double r1527050 = 15.0;
double r1527051 = /* ERROR: no complex support in C */;
double r1527052 = r1527051 * r1527035;
double r1527053 = r1527052 * r1527035;
double r1527054 = r1527053 * r1527035;
double r1527055 = r1527054 * r1527035;
double r1527056 = r1527049 + r1527055;
double r1527057 = 20.0;
double r1527058 = /* ERROR: no complex support in C */;
double r1527059 = r1527058 * r1527035;
double r1527060 = r1527059 * r1527035;
double r1527061 = r1527060 * r1527035;
double r1527062 = r1527056 + r1527061;
double r1527063 = r1527062 + r1527053;
double r1527064 = r1527063 + r1527044;
double r1527065 = /* ERROR: no complex support in C */;
double r1527066 = r1527064 + r1527065;
double r1527067 = /* ERROR: no complex support in C */;
return r1527067;
}
double f() {
double r1527068 = -5.0;
double r1527069 = -24.0;
double r1527070 = /* ERROR: no complex support in C */;
double r1527071 = 24.0;
double r1527072 = /* ERROR: no complex support in C */;
double r1527073 = 0.0;
double r1527074 = 8.0;
double r1527075 = /* ERROR: no complex support in C */;
double r1527076 = r1527072 + r1527075;
double r1527077 = 40.0;
double r1527078 = /* ERROR: no complex support in C */;
double r1527079 = -60.0;
double r1527080 = /* ERROR: no complex support in C */;
double r1527081 = r1527078 + r1527080;
double r1527082 = r1527076 + r1527081;
double r1527083 = r1527070 + r1527082;
double r1527084 = /* ERROR: no complex support in C */;
return r1527084;
}
Initial program 0
Simplified0
Final simplification0
herbie shell --seed 2019124
(FPCore ()
:name "3.9.1 imaginary part (p56)"
(im (+.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))))