Profil supprimé | Re-...
J'ai légèrement progressé durant la nuit...
Voila ou j'en suis ; J'ai écrit trois procédures pour charger ma structure.
Load_Node, pour affecter les Neuron et initialiser le connector.
Code :
procedure Load_Node(-- paramètre pour le neurone Length : Positive; To : Node_Access) is begin if To = null then raise No_Network; end if; -- Affectation du neurone. To.Connector := new T_Connector(1..Length); end Load_Node;
|
Read_Nodes pour lire les noeud suisvant le premier et selectionner le pointeur cible.
Code :
procedure Read_Nodes(File : Stream_Io.File_Type; Root : Node_Access) is File_Name : String(1..64) := (others => Character'Val(32)); File_Access : Stream_Io.Stream_Access; -- variable de neurone Length : Positive; Last : Natural; begin File_Access := Stream_Io.Stream(File); if not Stream_Io.End_Of_File(File) then for I in 1..Root.Connector'Length loop Root.Connector(I) := new T_Node; -- Lecture des neurones suivant. Positive'Read(File_Access, Length); Load_Node(Num_Input, Num_Output, Trainfile, Train_Length, Converged, Max_Epochs, Network, Length, Root.Connector(I)); Text_Io.Put_Line("Creating Node" ); exit when Stream_Io.End_Of_File(File); end loop; end if; for I in 1..Root.Connector'Length loop if Root.Connector(I) /= null then Read_Nodes(File, Root.Connector(I)); else exit; end if; end loop; end Read_Nodes;
|
Load, qui lit le premier noeud. Et appelle Read_Nodes.
Code :
procedure Load is File : Stream_Io.File_Type; File_Access : Stream_Io.Stream_Access; -- Les variable du 1er neurone. Length : Positive; Last : Natural; begin Stream_Io.open(File, Stream_Io.in_File, Filename); File_Access := Stream_Io.Stream(File); Natural'Read(File_Access, Arche.Length); Arche.Root := new T_Node; -- Lecture du premier neurone. Positive'Read(File_Access, Length); Load_Node(Num_Input, Num_Output, Trainfile, Train_Length, Converged, Max_Epochs, Network, Length, Arche.Root); Text_Io.Put_Line("Creating Root" ); Read_Nodes(File, Arche.Root); Stream_Io.Close(File); end Load;
|
Mais ça cloche encore, et je ne sais encore pourquoi. Message édité par Profil supprimé le 30-12-2009 à 07:08:25
|