Code : Tout sélectionner
A:=[[0,1,0,1,1,1,0,0,0,0,0,0,1,0,0,1],[1,0,1,0,0,1,1,0,0,0,0,0,1,1,0,0],[0,1,0,1,0,0,1,1,0,0,0,0,0,1,1,0],[1,0,1,0,1,0,0,1,0,0,0,0,0,0,1,1],[1,0,0,1,0,1,0,1,1,1,0,0,0,0,0,0],[1,1,0,0,1,0,1,0,0,1,1,0,0,0,0,0],[0,1,1,0,0,1,0,1,0,0,1,1,0,0,0,0],[0,0,1,1,1,0,1,0,1,0,0,1,0,0,0,0],[0,0,0,0,1,0,0,1,0,1,0,1,1,1,0,0],[0,0,0,0,1,1,0,0,1,0,1,0,0,1,1,0],[0,0,0,0,0,1,1,0,0,1,0,1,0,0,1,1],[0,0,0,0,0,0,1,1,1,0,1,0,1,0,0,1],[1,1,0,0,0,0,0,0,1,0,0,1,0,1,0,1],[0,1,1,0,0,0,0,0,1,1,0,0,1,0,1,0],[0,0,1,1,0,0,0,0,0,1,1,0,0,1,0,1],[1,0,0,1,0,0,0,0,0,0,1,1,1,0,1,0]];
charpoly(A,x)
Code : Tout sélectionner
det(x*idn(16)-A)