La función eigenvectors() nos proporciona los autovectores:

(%i2) A : matrix([ 1, 0, 0, 1],[ 0, 1, 2, - 1],[ 0, 1, - 1, 0],[ 0, 2, 0, - 1]) $
eigenvectors( A) ;
(%o2) [ [ [ − 1 , 1 ] , [ 2 , 2 ] ] , [ [ [ 1 , 0 , − 1 , − 2 ] ] , [ [ 1 , 0 , 0 , 0 ] ] ] ]

Los dos autovectores son:

(%i3) v : makelist( %[ 2][ i][ 1], i, 1, 2) ;
(v) [ [ 1 , 0 , − 1 , − 2 ] , [ 1 , 0 , 0 , 0 ] ]

La suma de sus normas es:

(%i4) sum( sqrt( v[ i]. v[ i]), i, 1, 2), numer ;
(%o4) 3.449489742783178

Created with wxMaxima.