?

\[re \cdot re - im \cdot im \]

↓

\[\left(re - im\right) \cdot \left(re + im\right) \]

(FPCore re_sqr (re im) :precision binary64 (- (* re re) (* im im)))

↓

(FPCore re_sqr (re im) :precision binary64 (* (- re im) (+ re im)))

double re_sqr(double re, double im) {
	return (re * re) - (im * im);
}

↓

double re_sqr(double re, double im) {
	return (re - im) * (re + im);
}

real(8) function re_sqr(re, im)
    real(8), intent (in) :: re
    real(8), intent (in) :: im
    re_sqr = (re * re) - (im * im)
end function

↓

real(8) function re_sqr(re, im)
    real(8), intent (in) :: re
    real(8), intent (in) :: im
    re_sqr = (re - im) * (re + im)
end function

public static double re_sqr(double re, double im) {
	return (re * re) - (im * im);
}

↓

public static double re_sqr(double re, double im) {
	return (re - im) * (re + im);
}

def re_sqr(re, im):
	return (re * re) - (im * im)

↓

def re_sqr(re, im):
	return (re - im) * (re + im)

function re_sqr(re, im)
	return Float64(Float64(re * re) - Float64(im * im))
end

↓

function re_sqr(re, im)
	return Float64(Float64(re - im) * Float64(re + im))
end

function tmp = re_sqr(re, im)
	tmp = (re * re) - (im * im);
end

↓

function tmp = re_sqr(re, im)
	tmp = (re - im) * (re + im);
end

re$95$sqr[re_, im_] := N[(N[(re * re), $MachinePrecision] - N[(im * im), $MachinePrecision]), $MachinePrecision]

↓

re$95$sqr[re_, im_] := N[(N[(re - im), $MachinePrecision] * N[(re + im), $MachinePrecision]), $MachinePrecision]

re \cdot re - im \cdot im

↓

\left(re - im\right) \cdot \left(re + im\right)

Error?

In
Out