var Data: TMtx; Res TMtx; begin Data := TMtx.Create; Res := TMtx.Create; try Data.SetIt(3,3,false,[1,2,3, 4,5,6, 7,100,12]); Res.ZScore(Data); // result = (-1 -0,604 -0,873, // 0 -0,55 -0,218 // 1 1,154 1,091) finally Data.Free; Res.Free; end; end;