var a: clMatrix; ind: Integer; begin a.CopyFromArray(2,2,TSingleArray.Create(1,5.5,-1.6,6)); // a = [1, 5.5, -1.6, 6] a.Frac; // a = [0, 0.5, -0.6, 0] finally a.Free; end; end;