#!/usr/bin/perl

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

$damp = 0.85;
$a = 0;
$b = 0;
$i = 40; 


print "Anlasilmasi kolay olsun diye, virgulden sonra 5 basamak ekrana basildi\n\n";

while ($i--) {
    printf("a: %.5f b: %.5f\n", $a, $b);
    $a = (1 - $damp) + $damp * ($b);
    $b = (1 - $damp) + $damp * ($a);
}
printf("Ortalama pagerank = %.4f\n", ($a + $b) / 2);
print("</pre><a href=http://www.gitme.net/pagerank.php>Geri</a>");