高分求助: matlab 求最大特征根

来源：百度知道 编辑：UC知道 时间：2024/06/04 23:28:35
求高人帮助求解下面四个举证的最大特征根,只要结果就可以了,非常感谢!最佳答案还有追加分!!

矩阵A:
1 1/3 1/5
3 1 1/3
5 3 1

矩阵B1
1 1 1/5
1 1 1/3
5 3 1

矩阵B2
1 1/7 1/5
7 1 5
5 1/5 1

矩阵B3
1 1/3 1/5 1/7
3 1 1/3 1/7
5 3 1 1
7 7 1 1

结果:
max_lumda_A =
3.0385

max_lumda_B1 =
3.0291

max_lumda_B2 =
3.1828

max_lumda_B3 =
4.1517

========================代码如下:==============
%%想要最大特征值所对应的特征向量,只要将相应的max_x_*输出即可
A=[
1 1/3 1/5
3 1 1/3
5 3 1];

[x,lumda]=eig(A);
r=abs(sum(lumda));
n=find(r==max(r));
max_lumda_A=lumda(n,n) %最大特征根
max_x_A=x(:,n); %最大特征根所对应的特征向量

B1=[
1 1 1/5
1 1 1/3
5 3 1];
[x,lumda]=eig(B1);
r=abs(sum(lumda));
n=find(r==max(r));
max_lumda_B1=lumda(n,n) %最大特征根
max_x_B1=x(:,n); %最大特征根所对应的特征向量

B2=[
1 1/7 1/5
7 1 5
5 1/5 1];
[x,lumda]=eig(B2);
r=abs(sum(lumda));
n=find(r==max(r));
max_lumda_B2=lumda(n,n) %最大特征根
max_x_B2=x(:,n); %最大特征根所对应的特征向量

B3=[
1 1/3 1/5 1/7
3 1 1/3 1/7
5 3 1 1
7 7 1 1];
[x,lumda]=eig(B3);
r=abs(su