evals(m) =
{
 local (v);
 local (ev);
 if ( type (m) == "t_MAT" ,
  if ( matsize(m)[1] == matsize(m)[2],
   v = mateigen (m);
   ev = vector (matsize (m)[1]);
   for (X=1, matsize (m)[1], ev[X] = m[1,] * v[,X] / v[1,X] );
   return (ev);
  , return ([]); );
 , return ([]); );
}