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

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

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

revision 1.8 by srv89, Wed Sep 10 11:32:19 2003 UTC revision 1.9 by srv89, Wed Sep 10 13:11:17 2003 UTC
# Line 51  open XmlVisitor Line 51  open XmlVisitor
51    Dumps the Multi Layer Perceptron specific stuffs as XML.    Dumps the Multi Layer Perceptron specific stuffs as XML.
52  *)        *)      
53  class xmlMlpnnVisitor =  class xmlMlpnnVisitor =
54  object  object(this)
55    inherit [mlpNN] xmlVisitor as super    inherit [mlpNN] xmlVisitor
56    
57    initializer    initializer
58      _moduleName <- "MLNN xml import/export"      _moduleName <- "MLNN xml import/export"
# Line 65  object Line 65  object
65      (**      (**
66        Call the method from xmlVisitor which begins the dump.        Call the method from xmlVisitor which begins the dump.
67      *)      *)
68      super#beginDump (network :> nn);      this#beginDump (network :> nn);
69            
70      (**      (**
71        Dump Multi-Layer Perceptron specific stuffs.        Dump Multi-Layer Perceptron specific stuffs.
72      *)      *)
73      super#openTag "mlpnn";      this#openTag "mlpnn";
74      super#openTag "mlpnn_output_activation";      this#openTag "mlpnn_output_activation";
75      super#dump3dArray !(network#getOutputActivation) string_of_float;      this#dump3dArray !(network#getOutputActivation) string_of_float;
76      super#closeTag "mlpnn_output_activation";      this#closeTag "mlpnn_output_activation";
77      super#openTag "mlpnn_input_sum";      this#openTag "mlpnn_input_sum";
78      super#dump3dArray !(network#getInputSum) string_of_float;      this#dump3dArray !(network#getInputSum) string_of_float;
79      super#closeTag "mlpnn_input_sum";      this#closeTag "mlpnn_input_sum";
80      super#openTag "mlpnn_error";      this#openTag "mlpnn_error";
81      super#dump3dArray !(network#getError) string_of_float;      this#dump3dArray !(network#getError) string_of_float;
82      super#closeTag "mlpnn_error";      this#closeTag "mlpnn_error";
83      super#openTag "mlpnn_weights";      this#openTag "mlpnn_weights";
84      super#dump4dArray !(network#getWeights) string_of_float;      this#dump4dArray !(network#getWeights) string_of_float;
85      super#closeTag "mlpnn_weights";      this#closeTag "mlpnn_weights";
86      super#openTag "mlpnn_gradients";      this#openTag "mlpnn_gradients";
87      super#dump4dArray !(network#getGradients) string_of_float;      this#dump4dArray !(network#getGradients) string_of_float;
88      super#closeTag "mlpnn_gradients";      this#closeTag "mlpnn_gradients";
89      super#write ("<layer_nb>" ^ (string_of_int network#getLayerNb) ^ "</layer_nb>");      this#write ("<layer_nb>" ^ (string_of_int network#getLayerNb) ^ "</layer_nb>");
90      super#openTag "mlpnn_neurons_per_layer";      this#openTag "mlpnn_neurons_per_layer";
91      super#dump2dArray network#getNeuronsPerLayer string_of_int;      this#dump2dArray network#getNeuronsPerLayer string_of_int;
92      super#closeTag "mlpnn_neurons_per_layer";      this#closeTag "mlpnn_neurons_per_layer";
93            
94      super#closeTag "mlpnn";      this#closeTag "mlpnn";
95            
96      (**      (**
97        Call the method from xmlVisitor which finishes the dump.        Call the method from xmlVisitor which finishes the dump.
98      *)      *)
99      super#endDump (network :> nn)      this#endDump (network :> nn)
100                
101  end  end

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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