Enable Eigenvalues for MatrixObj (#5149)

Author: fkmoftakhar

lib/matrix.gd

@@ -662,7 +662,7 @@ DeclareSynonym( "GeneralizedEigenspaces", GeneralisedEigenspaces );
 ##  </ManSection>
 ##  <#/GAPDoc>
 ##
-DeclareOperation( "Eigenvalues", [ IsRing, IsMatrix ] );
+DeclareOperation( "Eigenvalues", [ IsRing, IsMatrixOrMatrixObj ] );
 
 #############################################################################
 ##

lib/matrix.gi

@@ -2294,7 +2294,7 @@ InstallMethod( GeneralisedEigenspaces,
 ##
 InstallMethod( Eigenvalues,
     "for a matrix",
-    [ IsField, IsMatrix ],
+    [ IsField, IsMatrixOrMatrixObj ],
     function( F, A )
         return List( Filtered( GeneralisedEigenvalues(F,A),
                                eval -> DegreeOfLaurentPolynomial(eval) = 1 ),

tst/testinstall/MatrixObj/Eigenvalues.tst

@@ -0,0 +1,8 @@
+gap> mat := [[1,2,1],[1,0,1],[0,0,1]];
+[ [ 1, 2, 1 ], [ 1, 0, 1 ], [ 0, 0, 1 ] ]
+gap> Eigenvalues(Rationals,mat);
+[ 2, 1, -1 ]
+gap> matObj1 := NewMatrix(IsPlistMatrixRep,GF(5),3,mat);
+<3x3-matrix over GF(5)>
+gap> Eigenvalues(GF(5),matObj1);
+[ Z(5)^2, Z(5)^0, Z(5) ]