\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
\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.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.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.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.0 i\right) \cdot \left(-1 + 1 i\right)\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(\left(6 + 0.0 i\right) \cdot \left(-1 + 1 i\right)\right)\right) + \left(1 + 0.0 i\right)\right))
double f() {
double r31095 = -1.0;
double r31096 = 1.0;
double r31097 = /* ERROR: no complex support in C */;
double r31098 = r31097 * r31097;
double r31099 = r31098 * r31097;
double r31100 = r31099 * r31097;
double r31101 = r31100 * r31097;
double r31102 = r31101 * r31097;
double r31103 = 6.0;
double r31104 = 0.0;
double r31105 = /* ERROR: no complex support in C */;
double r31106 = r31105 * r31097;
double r31107 = r31106 * r31097;
double r31108 = r31107 * r31097;
double r31109 = r31108 * r31097;
double r31110 = r31109 * r31097;
double r31111 = r31102 + r31110;
double r31112 = 15.0;
double r31113 = /* ERROR: no complex support in C */;
double r31114 = r31113 * r31097;
double r31115 = r31114 * r31097;
double r31116 = r31115 * r31097;
double r31117 = r31116 * r31097;
double r31118 = r31111 + r31117;
double r31119 = 20.0;
double r31120 = /* ERROR: no complex support in C */;
double r31121 = r31120 * r31097;
double r31122 = r31121 * r31097;
double r31123 = r31122 * r31097;
double r31124 = r31118 + r31123;
double r31125 = r31124 + r31115;
double r31126 = r31125 + r31106;
double r31127 = /* ERROR: no complex support in C */;
double r31128 = r31126 + r31127;
double r31129 = /* ERROR: no complex support in C */;
return r31129;
}
double f() {
double r31130 = -1.0;
double r31131 = 1.0;
double r31132 = /* ERROR: no complex support in C */;
double r31133 = r31132 * r31132;
double r31134 = r31133 * r31132;
double r31135 = r31134 * r31132;
double r31136 = r31135 * r31132;
double r31137 = r31136 * r31132;
double r31138 = 6.0;
double r31139 = 0.0;
double r31140 = /* ERROR: no complex support in C */;
double r31141 = r31140 * r31132;
double r31142 = r31141 * r31132;
double r31143 = r31142 * r31132;
double r31144 = r31143 * r31132;
double r31145 = r31144 * r31132;
double r31146 = r31137 + r31145;
double r31147 = 15.0;
double r31148 = /* ERROR: no complex support in C */;
double r31149 = r31148 * r31132;
double r31150 = r31149 * r31132;
double r31151 = r31150 * r31132;
double r31152 = r31151 * r31132;
double r31153 = r31146 + r31152;
double r31154 = 20.0;
double r31155 = /* ERROR: no complex support in C */;
double r31156 = r31155 * r31132;
double r31157 = r31156 * r31132;
double r31158 = r31157 * r31132;
double r31159 = r31153 + r31158;
double r31160 = r31159 + r31150;
double r31161 = r31160 + r31141;
double r31162 = /* ERROR: no complex support in C */;
double r31163 = r31161 + r31162;
double r31164 = /* ERROR: no complex support in C */;
return r31164;
}
Initial program 0
Final simplification0
herbie shell --seed 2019209
(FPCore ()
:name "3.9.1 imaginary part (p56)"
:precision binary64
(im (+ (+ (+ (+ (+ (+ (* (* (* (* (* (complex -1 1) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (* (* (* (* (* (complex 6 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (* (complex 20 0.0) (complex -1 1)) (complex -1 1)) (complex -1 1))) (* (* (complex 15 0.0) (complex -1 1)) (complex -1 1))) (* (complex 6 0.0) (complex -1 1))) (complex 1 0.0))))