TSparseMtx.RandomSparse Method

Summary

Creates quadratic non-complex non-singular sparse matrix.

Declaration

Procedure RandomSparse(X, Y: TVec; Symmetric: boolean = false; FillInPercent: TSample = 33; MaxNonZeroCount: integer = 10000000);

Description

Creates general/symmetric quadratic non-complex non-singular sparse matrix. It returns the right hand side in vector Y and the solution in vector X. If Symmetric is true the method will generate a matrix with symmetric pattern. The FillInPercent parameter defines the percentage of non-zero in the sparse matrix. The MaxNonZeroCount parameter defines an upper limit to prevent against excessive memory usage (consequence of invalid user parameters) and consecutive system lock up.

Note: You have to set Cols property to definethe size of the matrix before calling this routine.

Example 1

          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;

          using Dew.Math;
          using Dew.Math.Units;
          using Dew.Math.Tee;

          namespace Dew.Examples
          {
            private void Example(MtxGridSeries GridSeries)
            {
              //  ...
              SparseA.Size(7500,4000,4000,false);
              SparseA.RandomSparse(v1,v2);
              SparseA.PixelDownSample(A);
              TeeChart.DrawValues(A,GridSeries); // showing A
            }
          }