NC/mp1/files_data/pagerank1.m

function x = pagerank1(U,G,p)
% PAGERANK  Google's PageRank
% pagerank(U,G,p) uses the URLs and adjacency matrix produced by SURFER,
% together with a damping factory p, (default is .85), to compute and plot
% a bar graph of page rank, and print the dominant URLs in page rank order.
% x = pagerank(U,G,p) returns the page ranks instead of printing.
% See also SURFER, SPY.

if nargin < 3, p = .85; end

% Eliminate any self-referential links
%G = G - diag(diag(G));

% c = out-degree, r = in-degree
[~,n] = size(G);
c = sum(G,1);
r = sum(G,2);

% Scale column sums to be 1 (or 0 where there are no out links).
k = find(c~=0);
D = sparse(k,k,1./c(k),n,n);

e = ones(n,1);

% ----------------------------- POWER METHOD ------------------------------
disp('Using power method implementation\n');

x = ones(n, 1) * 1/n;

G = p * G * D;
z = ((1 - p) * (c ~= 0) + (c == 0))/n;
it = 0;

new_x = x;
old_norm = -1;
no = +Inf;

while (old_norm == -1 || old_norm > no) && no > 1e-8
   x = new_x;
   old_norm = no;
   new_x = G * x + e * (z * x);
   new_x = new_x/sum(new_x);
   it = it + 1;
   no = norm(new_x - x, 2);
end

display(it); 

% -------------------------------------------------------------------------

% Normalize so that sum(x) == 1.
x = x/sum(x);

% Bar graph of page rank.
shg
bar(x)
title('Page Rank')

% Print URLs in page rank order.

if nargout < 1
   [~,q] = sort(-x);
   disp('     page-rank  in  out  url')
   k = 1;
   maxN = length(U);
   while  (k <= maxN) && (x(q(k)) >= .005)
       disp(k)
      j = q(k);
      temp1  = r(j);
      temp2  = c(j);
      disp(fprintf(' %3.0f %8.4f %4.0f %4.0f  %s', j,x(j),full(temp1),full(temp2),U{j}))
      k = k+1;
   end
end