/[marvin]/marvin/src/libnn/xml/xmlTdnnVisitor.ml
ViewVC logotype

Diff of /marvin/src/libnn/xml/xmlTdnnVisitor.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by srv89, Fri Aug 29 08:32:32 2003 UTC revision 1.3 by srv89, Mon Sep 1 13:08:35 2003 UTC
# Line 43  Line 43 
43    @since 08/26/2003    @since 08/26/2003
44  *)  *)
45    
46    open Nn
47  open TdNN  open TdNN
48  open XmlVisitor  open XmlVisitor
49    
# Line 51  open XmlVisitor Line 52  open XmlVisitor
52  *)        *)      
53  class xmlTdnnVisitor =  class xmlTdnnVisitor =
54  object  object
55    inherit ['a] xmlVisitor    inherit ['a] xmlVisitor as super
56    
57    (**    (**
58      The method which dumps Time Delay Neural Network specific stuffs.      The method which dumps Time Delay Neural Network specific stuffs.
59      @param network The Time Delay Neural Network which is to be dumped.      @param network The Time Delay Neural Network which is to be dumped.
60    *)    *)
61    method visit (network : tdNN) =    method visit (network : tdNN) =
62      ()      (**
63          Call the method from xmlVisitor which begins the dump.
64        *)
65        super#beginDump (network :> nn);
66        
67        (**
68          Dump Time Delay Neural Network specific stuffs.
69        *)
70        super#openTag "tdnn";
71        super#openTag "tdpnn_output_activation";
72        super#dump4dArray !(network#getOutputActivation) string_of_float;
73        super#closeTag "tdnn_output_activation";
74        super#openTag "tdnn_input_sum";
75        super#dump4dArray !(network#getInputSum) string_of_float;
76        super#closeTag "tdnn_input_sum";
77        super#openTag "tdnn_error";
78        super#dump4dArray !(network#getError) string_of_float;
79        super#closeTag "tdnn_error";
80        super#openTag "tdnn_weights";
81        super#dump5dArray !(network#getWeights) string_of_float;
82        super#closeTag "tdnn_weights";
83        super#openTag "tdnn_gradients";
84        super#dump5dArray !(network#getGradients) string_of_float;
85        super#closeTag "tdnn_gradients";
86        super#write ("<layer_nb>" ^ (string_of_int network#getLayerNb) ^ "</layer_nb>");
87        super#openTag "tdnn_delay";
88        super#dump2dArray !(network#getDelay) string_of_int;
89        super#closeTag "tdnn_delay";
90        super#openTag "tdnn_features_nb";
91        super#dump2dArray network#getFeaturesNb string_of_int;
92        super#closeTag "tdnn_features_nb";
93        super#openTag "tdnn_time_nb";
94        super#dump2dArray network#getTimeNb string_of_int;
95        super#closeTag "tdnn_time_nb";
96        super#openTag "tdnn_field_size";
97        super#dump2dArray network#getFieldSize string_of_int;
98        super#closeTag "tdnn_field_size";
99        super#closeTag "tdnn";
100    
101        (**
102          Call the method from xmlVisitor which finishes the dump.
103        *)
104        super#endDump (network :> nn)
105    
106  end  end

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26