<<VilGebra`

A={{3,1,1},{1,3,1},{1,1,3}};
Diagonalizacion[A]