Uses MtxExpr, Sparse, MtxVecTee; var SparseA: TSparseMtx; 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;

Vector v1,v2; Matrix A; TSparseMtx *SparseA; // ... SparseA->Size(7500,4000,4000,false); SparseA->RandomSparse(v1,v2); SparseA->PixelDownSample(A); DrawValues(A,GridSeries); // showing A