31 lines
811 B
Ada
31 lines
811 B
Ada
|
with Ada.Text_IO; use Ada.Text_IO;
|
||
|
with Vector;
|
||
|
|
||
|
generic
|
||
|
|
||
|
type T_Element is digits <>;
|
||
|
N: Positive;
|
||
|
with package Vector_T_Element is new Vector(T_Element => T_Element, N => N);
|
||
|
|
||
|
package Google_Creux is
|
||
|
|
||
|
-- on permet l'affichage direct des T_Element
|
||
|
package Text_T_Element is
|
||
|
new Ada.Text_IO.Float_IO(Num => T_Element);
|
||
|
use Text_T_Element;
|
||
|
|
||
|
-- on utilise le module Vector
|
||
|
use Vector_T_Element;
|
||
|
|
||
|
type T_Google is array (0..N-1, 0..N-1) of T_Element;
|
||
|
|
||
|
function "*"(left: T_Vecteur; right: T_Google) return T_Vecteur;
|
||
|
|
||
|
procedure create_H(mat: in out T_Google; file: in Ada.Text_IO.File_Type);
|
||
|
procedure create_S(mat: in out T_Google);
|
||
|
procedure create_G(mat: in out T_Google; alpha: in T_Element);
|
||
|
|
||
|
procedure put(mat: in T_Google);
|
||
|
|
||
|
end Google_Creux;
|