re \cdot re - im \cdot im
\left(im + re\right) \cdot \left(re - im\right)
double f(double re, double im) {
double r34120 = re;
double r34121 = r34120 * r34120;
double r34122 = im;
double r34123 = r34122 * r34122;
double r34124 = r34121 - r34123;
return r34124;
}
double f(double re, double im) {
double r34125 = im;
double r34126 = re;
double r34127 = r34125 + r34126;
double r34128 = r34126 - r34125;
double r34129 = r34127 * r34128;
return r34129;
}



Bits error versus re



Bits error versus im
Results
Initial program 0.0
rmApplied difference-of-squares0.0
Final simplification0.0
herbie shell --seed 2019121
(FPCore (re im)
:name "math.square on complex, real part"
(- (* re re) (* im im)))