var a,b,c: clVector; begin a.CopyFromArray(TSingleArray.Create(0,1,10,-1,-10)); // a = [0, 1, 10, -1, -10]; b.CopyFromArray(TSingleArray.Create(0,1,PI,-1,-PI)); // b = [0, 1, PI, -1, -PI]; c.Rem(a,b); // c = [0, 0, 0.5752, 0, -0.5752] end;