brouillon de pageRank.adb
git-svn-id: http://cregut.svn.enseeiht.fr/2020/1sn/pim/projets/GH-05@207224 e13453a9-b01f-0410-a051-f404c4f0c485
This commit is contained in:
parent
f4d3a11e80
commit
2b20817839
111
src/pageRank.adb
111
src/pageRank.adb
|
@ -1,7 +1,116 @@
|
||||||
|
with SDA_Exceptions; use SDA_Exceptions;
|
||||||
|
with Ada.Text_IO; use Ada.Text_IO;
|
||||||
|
with Ada.Command_Line; use Ada.Command_Line;
|
||||||
|
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
|
||||||
|
with googleNaive;
|
||||||
|
|
||||||
procedure pageRank is
|
procedure pageRank is
|
||||||
|
|
||||||
|
ERROR_args: Exception;
|
||||||
|
|
||||||
|
procedure getArgs(filename: in out Unbounded_String;
|
||||||
|
iteMAX: in out Natural;
|
||||||
|
alpha: in out Float;
|
||||||
|
naif: in out Boolean) is
|
||||||
|
i: Natural := 0;
|
||||||
|
begin
|
||||||
|
-- on vérifie d'abord que le nombre d'arguments est cohérent
|
||||||
|
if not(0 < Argument_Count <= 6) then -- verif si double inégalité possible
|
||||||
|
raise ERROR_args;
|
||||||
|
else
|
||||||
|
loop
|
||||||
|
-- put(Argument(i));
|
||||||
|
if Argument(i) = "-P" then
|
||||||
|
naif := True;
|
||||||
|
i := i + 1;
|
||||||
|
elsif Argument(i) = "-A" then
|
||||||
|
alpha := Float'Value(Argument(i+1));
|
||||||
|
i := i + 2;
|
||||||
|
elsif Argument(i) = "-I" then
|
||||||
|
iteMAX := Natural'Value(Argument(i+1)); -- verif si les conversions sont bonnes
|
||||||
|
i := i + 2;
|
||||||
|
elsif Argument(i)(Argument(i)'Last-4 .. Argument(i)'Last) = ".net" then -- verif les indexs
|
||||||
|
filename := To_Unbounded_String(Argument(i)(Argument(i)'First .. Argument(i)'Last-5));
|
||||||
|
i := i + 1;
|
||||||
|
else
|
||||||
|
raise ERROR_args;
|
||||||
|
end if;
|
||||||
|
exit when i > Argument_Count;
|
||||||
|
end loop;
|
||||||
|
end if;
|
||||||
|
exception
|
||||||
|
-- s'il y a un problème on arrête l'exectution et on affiche l'usage.
|
||||||
|
when others =>
|
||||||
|
put_line("Erreur lors de la saisi de la commande");
|
||||||
|
put_line("Usage: pagerank [-I max_iterations] [-A alpha] [-P] fichier_reseau.net");
|
||||||
|
end getArgs;
|
||||||
|
|
||||||
|
procedure createG_naive(G: in out T_Google) is
|
||||||
|
File : Ada.Text_IO.File_Type;
|
||||||
|
N: Natural;
|
||||||
|
H, S: T_Google;
|
||||||
|
row, col: Natural;
|
||||||
|
|
||||||
|
function rowSum(row: T_Row) return Natural is
|
||||||
|
s: Natural := 0;
|
||||||
|
begin
|
||||||
|
for r in row loop
|
||||||
|
s := s + r;
|
||||||
|
end loop;
|
||||||
|
return s;
|
||||||
|
end rowSum;
|
||||||
|
begin
|
||||||
|
open(File, In_File, filename & ".net");
|
||||||
|
get(File, N); -- on récupère le nombre de pages
|
||||||
|
|
||||||
|
-- on créé H
|
||||||
|
while not end_of_File(File) loop
|
||||||
|
get(File, row);
|
||||||
|
get(File, col);
|
||||||
|
insert(H, row, col, 1.0);
|
||||||
|
end loop;
|
||||||
|
|
||||||
|
-- on créé S
|
||||||
|
-- TODO: simplifier tout ça avec l'opérateur "/" sur T_row
|
||||||
|
for row in H loop
|
||||||
|
p = rowSum(row);
|
||||||
|
for j in row loop
|
||||||
|
if p = 0 then
|
||||||
|
row(j) := 1/N;
|
||||||
|
else
|
||||||
|
if row(j) /= 0 then
|
||||||
|
row(j) := 1/p;
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end loop;
|
||||||
|
end loop;
|
||||||
|
|
||||||
|
G := S*alpha + ones(N, N)*(1-alpha)/N;
|
||||||
|
|
||||||
|
end createG_naive;
|
||||||
|
|
||||||
|
filename: Unbounded_String;
|
||||||
|
iteMAX: Natural := 150;
|
||||||
|
naif: Boolean := False;
|
||||||
|
alpha: Float := 0.85;
|
||||||
|
|
||||||
|
epsilon: Float := 0.01;
|
||||||
|
pi: T_Google;
|
||||||
|
G: T_Google;
|
||||||
|
N: Positive;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
|
||||||
-- TODO
|
getArgs(filename, alpha, iteMAX, naif);
|
||||||
|
|
||||||
|
initialize(pi, 1, N);
|
||||||
|
initialize(G, N, N);
|
||||||
|
createG_naive(G);
|
||||||
|
|
||||||
|
for i in 1..N loop
|
||||||
|
pi := pi * G;
|
||||||
|
end loop;
|
||||||
|
|
||||||
|
-- write2file(filename, pi); à implémenter
|
||||||
|
|
||||||
end pageRank;
|
end pageRank;
|
Loading…
Reference in a new issue