Uses MtxExpr, sparse, MtxVecTee; procedure Example; var SparseA: TMtxSparse; GridSeries: TMtxGridSeries; v1,v2: Vector; A: Matrix; begin // ... SparseA.Size(7500,4000,4000,false); SparseA.RandomSparse(v1,v2); SparseA.PixelDownSample(A); DrawValues(A,GridSeries); // showing A end;