PageRankMATLAB实现-创新互联

PageRank
参考http://www.doc88.com/p-11465283738.html

G = [0 1 1 0 1 1 0;
     1 0 1 1 0 0 0;
     1 0 0 1 1 0 0;
     1 0 0 0 1 0 0;
     1 0 0 1 0 1 1;
     0 0 0 1 1 0 0;
     1 0 0 0 0 0 0];

[n,n] = size(G);
p = 0.85
delta = (1-p)/n;
sn = sum(G,1); %按列求矩阵G的列和
D = diag(1./sn);
A = p*G*D + delta;

%幂迭代法
x = ones(n,1)/n; %迭代初始向量
z = zeros(n,1);
cnt = 0; %记录迭代步数
while max(abs(x-z)) > 0.0001
  z = x;
  x = A * x;
  cnt = cnt + 1;
end
[x1,index] = sort(x);
x1 = flipud(x1);
index = flipud(index);

out = [1:n;x1';index'];
fprintf('迭代步数 =  %d\n',cnt)
str1 = '排名';str2 ='PageRank得分'; str3 = '序号';
fprintf('%-6s %-15s %-5s\n',str1,str2,str3);
fprintf('%-6d %-15f %-5d\n',out);

结果

p =

    0.8500

迭代步数 =  11
排名     PageRank得分      序号   
1      0.276926        1    
2      0.185228        5    
3      0.147001        2    
4      0.130779        3    
5      0.107858        4    
6      0.083714        6    
7      0.068494        7

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。