var a,b:
Vector;
c: TDoubleArray;
begin
c := TDoubleArray.Create(1,1,1,1,1);
TVec(a).
CopyFromArray(c);
TVec(a).
Copy(b);
if a = b
then ERaise('a and b are equal!');
if a = 1
then ERaise('a equals 1!');
//compare to real value
if a =
Cplx(1,0)
then ERaise('a equals 1!');
//compare to complex value
end;