var a,b: clVector; prod: double; begin a.CopyFromAray(TDoubleArray.Create(1,2,3,4)); b.CopyFromAray(TDoubleArray.Create(5,6,7,8)); prod := a.DotProd(b); // = 1*5 + 2*6 + * 3*7 + 4*8 end;