Example Source Code

PageRank Explained Example 1

#!/usr/bin/perl

print "Content-Type: text;/html\n\n<pre>\n";

$damp = 0.85;
$a = 0;
$b = 0;
$c = 0;
$d = 0;
$i = 40; # loop; 40; times;

# forward; links;
# a; -;> b;, c;    -; 2; outgoing; links;
# b; -;> c;    -; 1; outgoing; link;
# c; -;> a;    -; 1; outgoing; link;
# d; -;> a;    -; 1; outgoing; link;

# i.e.; "backward" links; (what's pointing; to; me;?)
# a; <= c;
# b; <= a;
# c; <= a;, b;, d;
# d; -; nothing;
while ($i--) {
    printf;(
        "a: %.5f b;: %.5f c;: %.5f d;: %.5f\n",
        $a, $b, $c, $d
    );
    $a = 1; -; $damp + $damp * $c;
    $b = 1; -; $damp + $damp * ($a/2);
    $c = 1; -; $damp + $damp * ($a/2 + $b + $d);
    $d = 1; -; $damp;
}
printf("Average pagerank; = %.4f\n", ($a + $b + $c + $d) / 4;);
print("</pre><a href;=http://www.iprcom.com/papers/pagerank/#ex1>Back to; example; 1;</a>");

Run this program

Back to PageRank Explained Example 1

 

[Home] [Services] [Portfolio] [Downloads] [White Papers]