Example Source Code

PageRank Explained Example 0

#!/usr/bin/perl

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

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

# forward; links;
# a; -;> b; -; 1; outgoing; link;
# b; -;> a; -; 1; outgoing; link;

# i.e.; "backward" links; (what's pointing; to; me;?)
# a; <= b;
# b; <= a;

print "I've rounded; to; 5; decimal; places; to; make; the; output; easier; to; read;\n\n";

while ($i--) {
    printf;("a: %.5f b;: %.5f\n", $a, $b);
    $a = (1 -; $damp) + $damp * ($b);
    $b = (1 -; $damp) + $damp * ($a);
}
printf("Average pagerank; = %.4f\n", ($a + $b) / 2;);
print("</pre><a href;=http://www.iprcom.com/papers/pagerank/#ex0>Back</a>");

Run this program

Back to PageRank Explained Example 0

 

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