Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1207622
  • 博文数量: 181
  • 博客积分: 6155
  • 博客等级: 准将
  • 技术积分: 1805
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-05 09:24
文章分类

全部博文(181)

文章存档

2015年(2)

2014年(3)

2013年(9)

2012年(29)

2011年(30)

2010年(36)

2009年(40)

2008年(32)

分类: WINDOWS

2010-05-10 10:18:51

%输出格式  
format short;  
%输入待求的矩阵A  
A=[1 2 4 5 1/2;1/2 1 3 4 1/3;1/4 1/3 1 1/2 1/6;1/5 1/4 2 1 1/7;2 3 6 7 1];  
 
[v,d]=eigs(A);  
%最大特征值  
tbmax=max(d(:));    
%得到行数和列数  
[m,n]=size(v);  
 
%将特征向量标准化  
sum = 0;  
for i=1:m  
    sum = sum + v(i,1);  
end  
tbvector = v(:,1);  
for i=1:m  
    tbvector(i,1)= v(i,1)/sum;  
end  
 
disp('========================================');  
disp('输入的矩阵为:');  
A  
disp('所有的特征向量和特征值为:');  
v  
d  
disp('最大的特征值为:');  
tbmax  
disp('最大的特征值对应的特征向量为(标准化后的):');  
tbvector
阅读(10218) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~