summaryrefslogtreecommitdiff
path: root/75/CH9/EX9.14/ex_14.sce
blob: 79f91ae2f6e42b95fe699948a03d9916f0b85025 (plain)
1
2
3
4
5
6
7
8
        //    PG (620)

T = [2 1 0 0 0 0;1 2 1 0 0 0;0 1 2 1 0 0;0 0 1 2 1 0;0 0 0 1 2 1;0 0 0 0 1 2]
lam = spec(T)'
lam1 = lam(1,1)
B = [2-lam1 1 0 0 0 0;1 2-lam1 1 0 0 0;0 1 2-lam1 1 0 0;0 0 1 2-lam1 1 0;0 0 0 1 2-lam1 1;0 0 0 0 1 2]
f0 = abs(det(B))
f1 = 2-lam1