23 lines
386 B
Mathematica
23 lines
386 B
Mathematica
|
%[U,G] = surfer('https://www.usi.ch',500);
|
||
|
|
% pagerank(U,G);
|
||
|
|
|
||
|
|
% A = (1/40) * [1 1 1 35 1 1;
|
||
|
|
% 18 1 1 1 1 1;
|
||
|
|
% 18 18 1 1 1 1;
|
||
|
|
% 1 18 35 1 1 1;
|
||
|
|
% 1 1 1 1 1 35;
|
||
|
|
% 1 1 1 1 35 1];
|
||
|
|
A = (1/40) * [
|
||
|
|
0 0 0 40 0 0;
|
||
|
|
20 0 0 0 0 0;
|
||
|
|
20 20 0 0 0 0;
|
||
|
|
0 20 40 0 0 0;
|
||
|
|
0 0 0 0 0 40;
|
||
|
|
0 0 0 0 40 0];
|
||
|
|
|
||
|
|
[v,d] = eig(A);
|
||
|
|
|
||
|
|
display(d);
|
||
|
|
display(v);
|
||
|
|
|