mp2: done 1-6
This commit is contained in:
parent
c4e74d48c4
commit
5eea5d6feb
6 changed files with 133 additions and 26 deletions
|
|
@ -3,6 +3,11 @@ clc;
|
||||||
load('householder/housegraph.mat')
|
load('householder/housegraph.mat')
|
||||||
names = split(strtrim(convertCharsToStrings(name')));
|
names = split(strtrim(convertCharsToStrings(name')));
|
||||||
|
|
||||||
common1 = names((A(:,Golub) .* A(:, Moler)) == 1)
|
disp("Golub-Moler:");
|
||||||
common2 = names((A(:,Golub) .* A(:, Saunders)) == 1)
|
disp(names((A(:,Golub) .* A(:, Moler)) == 1));
|
||||||
common3 = names((A(:,TChan) .* A(:, Demmel)) == 1)
|
|
||||||
|
disp("Golub-Saunders:");
|
||||||
|
disp(names((A(:,Golub) .* A(:, Saunders)) == 1));
|
||||||
|
|
||||||
|
disp("TChan-Demmel:");
|
||||||
|
disp(names((A(:,TChan) .* A(:, Demmel)) == 1));
|
||||||
|
|
|
||||||
6
mp2/Project.2.Maggioni.Claudio/ex5.m
Normal file
6
mp2/Project.2.Maggioni.Claudio/ex5.m
Normal file
|
|
@ -0,0 +1,6 @@
|
||||||
|
clear;
|
||||||
|
clc;
|
||||||
|
load('householder/housegraph.mat')
|
||||||
|
names = split(strtrim(convertCharsToStrings(name')));
|
||||||
|
|
||||||
|
pagerank(names, A);
|
||||||
|
|
@ -8,43 +8,31 @@ function x = pagerank(U,G,p)
|
||||||
|
|
||||||
if nargin < 3, p = .85; end
|
if nargin < 3, p = .85; end
|
||||||
|
|
||||||
|
|
||||||
if(ischar(U))
|
|
||||||
U=cellstr(U);
|
|
||||||
end
|
|
||||||
|
|
||||||
if(isreal(U))
|
|
||||||
U=(num2cell(U));
|
|
||||||
end
|
|
||||||
|
|
||||||
|
|
||||||
% Eliminate any self-referential links
|
% Eliminate any self-referential links
|
||||||
|
%G = G - diag(diag(G));
|
||||||
|
|
||||||
G = G - diag(diag(G));
|
|
||||||
|
|
||||||
% c = out-degree, r = in-degree
|
% c = out-degree, r = in-degree
|
||||||
|
[~,n] = size(G);
|
||||||
n = size(G,1);
|
|
||||||
c = sum(G,1);
|
c = sum(G,1);
|
||||||
r = sum(G,2);
|
r = sum(G,2);
|
||||||
|
|
||||||
% Scale column sums to be 1 (or 0 where there are no out links).
|
% Scale column sums to be 1 (or 0 where there are no out links).
|
||||||
|
|
||||||
k = find(c~=0);
|
k = find(c~=0);
|
||||||
D = sparse(k,k,1./c(k),n,n);
|
D = sparse(k,k,1./c(k),n,n);
|
||||||
|
|
||||||
% Solve (I - p*G*D)*x = e
|
|
||||||
|
|
||||||
e = ones(n,1);
|
e = ones(n,1);
|
||||||
I = speye(n,n);
|
I = speye(n,n);
|
||||||
|
|
||||||
|
% ---------------------------------- DEFAULT ------------------------------
|
||||||
|
% Solve (I - p*G*D)*x = e
|
||||||
x = (I - p*G*D)\e;
|
x = (I - p*G*D)\e;
|
||||||
|
|
||||||
% Normalize so that sum(x) == 1.
|
% -------------------------------------------------------------------------
|
||||||
|
|
||||||
|
% Normalize so that sum(x) == 1.
|
||||||
x = x/sum(x);
|
x = x/sum(x);
|
||||||
|
|
||||||
% Bar graph of page rank.
|
% Bar graph of page rank.
|
||||||
|
|
||||||
shg
|
shg
|
||||||
bar(x)
|
bar(x)
|
||||||
title('Page Rank')
|
title('Page Rank')
|
||||||
|
|
@ -53,13 +41,14 @@ title('Page Rank')
|
||||||
|
|
||||||
if nargout < 1
|
if nargout < 1
|
||||||
[~,q] = sort(-x);
|
[~,q] = sort(-x);
|
||||||
disp(' page-rank in out url')
|
disp(' page-rank in out author');
|
||||||
k = 1;
|
k = 1;
|
||||||
while (k <= n) && (x(q(k)) >= .005)
|
maxN = length(U);
|
||||||
|
while (k <= maxN) && (x(q(k)) >= .005)
|
||||||
j = q(k);
|
j = q(k);
|
||||||
temp1 = r(j);
|
temp1 = r(j);
|
||||||
temp2 = c(j);
|
temp2 = c(j);
|
||||||
fprintf(' %3.0f %8.4f %4.0f %4.0f %s\n', j,x(j),full(temp1),full(temp2),U{j})
|
fprintf(' %3.0f %8.4f %4.0f %4.0f %s\n', j,x(j),full(temp1),full(temp2),U{j});
|
||||||
k = k+1;
|
k = k+1;
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -118,7 +118,7 @@ Assuming that the degree of the Householder graph is the number of co-authors of
|
||||||
each author and that an author is not co-author of himself, the degree
|
each author and that an author is not co-author of himself, the degree
|
||||||
centralities of all authors sorted in descending order are below.
|
centralities of all authors sorted in descending order are below.
|
||||||
|
|
||||||
This output has been obtained by running \texttt{ex2.m}.
|
This output has been obtained by running \texttt{ex3.m}.
|
||||||
|
|
||||||
\begin{verbatim}
|
\begin{verbatim}
|
||||||
Author Centrality: Coauthors...
|
Author Centrality: Coauthors...
|
||||||
|
|
@ -248,6 +248,8 @@ as:
|
||||||
|
|
||||||
\[C = \{i \in N_0 \;|\; (A_{:,i} \odot A_{:,j})_i = 1\}\]
|
\[C = \{i \in N_0 \;|\; (A_{:,i} \odot A_{:,j})_i = 1\}\]
|
||||||
|
|
||||||
|
The results below were computing by using the script \texttt{ex4.m}.
|
||||||
|
|
||||||
The common Co-authors between Golub and Moler are Wilkinson and Van Loan.
|
The common Co-authors between Golub and Moler are Wilkinson and Van Loan.
|
||||||
|
|
||||||
The common Co-authors between Golub and Saunders are Golub, Saunders and Gill.
|
The common Co-authors between Golub and Saunders are Golub, Saunders and Gill.
|
||||||
|
|
@ -257,6 +259,111 @@ Heath.
|
||||||
|
|
||||||
\section{PageRank of the Coauthor Graph [10 points]}
|
\section{PageRank of the Coauthor Graph [10 points]}
|
||||||
|
|
||||||
|
The PageRank values for all authors were computing by using the scripts
|
||||||
|
\texttt{ex5.m} and \texttt{pagerank.m}, a basically identical version of
|
||||||
|
\texttt{pagerank.m} from Mini Project 1. The output is shown below.
|
||||||
|
|
||||||
|
\begin{verbatim}
|
||||||
|
page-rank in out author
|
||||||
|
1 0.0511 32 32 Golub
|
||||||
|
104 0.0261 16 16 Demmel
|
||||||
|
86 0.0229 14 14 Plemmons
|
||||||
|
44 0.0212 13 13 Schreiber
|
||||||
|
3 0.0201 11 11 TChan
|
||||||
|
81 0.0198 13 13 Heath
|
||||||
|
90 0.0181 10 10 Gragg
|
||||||
|
74 0.0177 11 11 Hammarling
|
||||||
|
66 0.0171 11 11 VanDooren
|
||||||
|
42 0.0152 9 9 Moler
|
||||||
|
79 0.0151 8 8 Gutknecht
|
||||||
|
32 0.0142 9 9 VanLoan
|
||||||
|
59 0.0135 8 8 Eisenstat
|
||||||
|
98 0.0133 8 8 Paige
|
||||||
|
46 0.0130 7 7 NTrefethen
|
||||||
|
49 0.0129 6 6 Varga
|
||||||
|
96 0.0128 7 7 Meyer
|
||||||
|
77 0.0128 7 7 Stewart
|
||||||
|
73 0.0127 8 8 Luk
|
||||||
|
78 0.0127 7 7 Bunch
|
||||||
|
53 0.0127 6 6 Widlund
|
||||||
|
72 0.0125 7 7 Reichel
|
||||||
|
41 0.0125 8 8 George
|
||||||
|
82 0.0124 6 6 Ipsen
|
||||||
|
83 0.0122 6 6 Greenbaum
|
||||||
|
58 0.0113 7 7 Bjorck
|
||||||
|
97 0.0107 6 6 Nichols
|
||||||
|
51 0.0106 6 6 Kagstrom
|
||||||
|
80 0.0106 6 6 Laub
|
||||||
|
52 0.0104 6 6 Barlow
|
||||||
|
60 0.0103 6 6 Zha
|
||||||
|
69 0.0102 6 6 Duff
|
||||||
|
62 0.0100 6 6 Park
|
||||||
|
89 0.0099 5 5 BunseGerstner
|
||||||
|
63 0.0098 5 5 Arioli
|
||||||
|
43 0.0097 6 6 Gilbert
|
||||||
|
67 0.0096 6 6 Liu
|
||||||
|
87 0.0096 5 5 Hansen
|
||||||
|
47 0.0090 5 5 Nachtigal
|
||||||
|
54 0.0090 4 4 Bjorstad
|
||||||
|
2 0.0088 5 5 Wilkinson
|
||||||
|
23 0.0088 5 5 Harrod
|
||||||
|
99 0.0087 5 5 Gill
|
||||||
|
92 0.0086 5 5 Sameh
|
||||||
|
91 0.0086 5 5 Berry
|
||||||
|
15 0.0086 5 5 Boley
|
||||||
|
76 0.0085 4 4 Fischer
|
||||||
|
50 0.0085 3 3 Young
|
||||||
|
61 0.0084 5 5 VanHuffel
|
||||||
|
100 0.0084 3 3 Jessup
|
||||||
|
48 0.0083 4 4 Kahan
|
||||||
|
35 0.0083 5 5 Bojanczyk
|
||||||
|
65 0.0082 5 5 Ng
|
||||||
|
93 0.0082 4 4 Ammar
|
||||||
|
55 0.0079 4 4 OLeary
|
||||||
|
84 0.0079 3 3 Ruhe
|
||||||
|
19 0.0078 4 4 Kaufman
|
||||||
|
56 0.0076 4 4 NHigham
|
||||||
|
37 0.0075 3 3 Marek
|
||||||
|
75 0.0075 3 3 Szyld
|
||||||
|
103 0.0074 3 3 Starke
|
||||||
|
34 0.0072 4 4 Saunders
|
||||||
|
25 0.0072 4 4 Funderlic
|
||||||
|
39 0.0072 4 4 Bai
|
||||||
|
102 0.0072 3 3 Hochbruck
|
||||||
|
88 0.0071 4 4 Elden
|
||||||
|
71 0.0070 4 4 Tang
|
||||||
|
38 0.0069 3 3 Kuo
|
||||||
|
40 0.0069 3 3 Tong
|
||||||
|
4 0.0068 3 3 He
|
||||||
|
13 0.0067 2 2 Kincaid
|
||||||
|
14 0.0067 2 2 Crevelli
|
||||||
|
94 0.0065 3 3 Warner
|
||||||
|
17 0.0065 3 3 Byers
|
||||||
|
21 0.0064 3 3 Fierro
|
||||||
|
31 0.0064 2 2 Wold
|
||||||
|
45 0.0062 3 3 Pothen
|
||||||
|
36 0.0060 3 3 Dubrulle
|
||||||
|
57 0.0058 2 2 Boman
|
||||||
|
10 0.0058 3 3 Overton
|
||||||
|
9 0.0057 2 2 Modersitzki
|
||||||
|
68 0.0056 2 2 Smith
|
||||||
|
95 0.0056 2 2 Davis
|
||||||
|
33 0.0056 2 2 Chandrasekaran
|
||||||
|
27 0.0055 2 2 Cullum
|
||||||
|
28 0.0055 2 2 Strakos
|
||||||
|
64 0.0054 2 2 MuntheKaas
|
||||||
|
7 0.0053 2 2 Ashby
|
||||||
|
85 0.0053 2 2 ATrefethen
|
||||||
|
29 0.0052 2 2 Saied
|
||||||
|
30 0.0052 2 2 Ong
|
||||||
|
18 0.0052 2 2 Benzi
|
||||||
|
101 0.0052 2 2 Mathias
|
||||||
|
8 0.0052 2 2 LeBorne
|
||||||
|
12 0.0052 2 2 Borges
|
||||||
|
6 0.0051 2 2 Kenney
|
||||||
|
70 0.0050 2 2 Henrici
|
||||||
|
\end{verbatim}
|
||||||
|
|
||||||
\section{Zachary's karate club: social network of friendships between 34 members [50 points]}
|
\section{Zachary's karate club: social network of friendships between 34 members [50 points]}
|
||||||
|
|
||||||
\begin{thebibliography}{99}
|
\begin{thebibliography}{99}
|
||||||
|
|
|
||||||
Reference in a new issue