Example 1

      var  D: TVec;
          A,B,C: TMtx;
      begin
        CreateIt(D);
        CreateIt(A,B,C);
        try
          D.SetIt(2  ,False,[0,2]); // vector, length 2, not complex
          A.SetIt(2,2,False,[1,2,
                            2,4]);  // 2x2, not complex matrix
          // A must be symmetric
          B.SetIt(2,2,False,[1,1,
                            1,2]);  // 2x2, not complex matrix
          // B must be symmetric and positive definite
          A.EigGen(B,D);	// Use A and B to find eigenvalues
        finally
          FreeIt(A,B,C);
          FreeIt(D);
        end;
      end;