#!/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.ianrogers.net/google-page-rank/#ex0>Back</a>");
