blob: 93d21cf8cb31770df4f730a1efb9d59e3a4adaf2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
//Eg-5.3
//pg-217
clear
clc
A=[5 3;3 5];
[v,d]=spec(A);
//Eigen equation and values
printf('the eigen equation is(l-%f)(l-%f)=0',d(1),d(2));
disp("eigen values")
disp(d)
//eigen vectors
//corresponding to d(1)
g=v(1:2,1);
h=v(1:2,2);
disp("eigen vectors")
disp(g)
disp(h)
//checking orthogonality
if g'*h==0 then
disp("the given eigen vectors are orthogonal")
end
//checking orthonormality
if round(g'*g)==1& round(h'*h)==1 then
disp("the given eigen vectors are orthonormal")
end
|
