7 #include "cln/complex.h"
17 bool equal (const cl_N& x, const cl_N& y)
20 // Falls beide reell, klar.
21 // Falls x reell, y komplex: (= x (realpart y)) und (zerop (imagpart y)).
22 // Falls x komplex, y reell: analog
23 // Falls beide komplex: Realteile und Imaginärteile jeweils gleich?
33 if (!zerop(imagpart(y)))
35 return equal(x,realpart(y));
42 if (!zerop(imagpart(x)))
44 return equal(realpart(x),y);
48 if (!equal(realpart(x),realpart(y)))
50 if (!equal(imagpart(x),imagpart(y)))