function [difference, p_new, p_old]=RankCompare()

%Original Adjacency Matrix
AMatrix = [0 1 0 0 0 0 0 0 1 0 0 0 0 0 0
0 0 1 0 1 0 1 0 0 0 0 0 0 0 0
0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 
0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 
1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 1 0 0 0 0
0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 
0 0 0 0 1 1 0 0 0 1 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 
0 0 0 0 0 0 1 1 0 0 1 0 0 0 0
0 0 0 0 0 0 0 0 1 0 0 0 0 1 0
0 0 0 0 0 0 0 0 0 1 1 0 1 0 1
0 0 0 0 0 0 0 0 0 0 0 1 0 1 0];

[g1, p_old]=GMatrixMaker(AMatrix, 0.15);

%No 10-Link Adjacency Matrix
NoTenAM=AMatrix;
NoTenAM(10,:)=[];
NoTenAM(:,10) = [];
% NoTenAM(:,10) = zeros(15,1);
% NoTenAM(10,:)=zeros(1,15);


[g2, p_new]=GMatrixMaker(NoTenAM, 0.15);

pr  = [1:9];
pr2 = [10:14];

for i=pr
    difference(i)= p_new(i)-p_old(i);
end
for i=pr2
    difference(i)= p_new(i)-p_old(i+1)
end
difference=difference';

figure(1);
plot([1:9,11:15],difference,'o',[1:9,11:15],difference)
title('Change In Page Ranks')

end