var a,b: clVector; prod: TCplx; begin a.CopyFromArray(TDoubleArray.Create(1,2,3,4)); b.CopyFromArray(TDoubleArray.Create(5,6,7,8)); prod := a.DotProdc(b); //= (1+2i)*(5+6i)+(3+4i)*(7+8i) end;