/[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.3 by srv89, Fri Aug 29 08:32:32 2003 UTC revision 1.4 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 Obj
47    
48  open Nn  open Nn
49  open MlpNN  open MlpNN
50  open XmlVisitor  open XmlVisitor
# Line 59  object Line 61  object
61      @param network The Multi Layer Perceptron which is to be dumped.      @param network The Multi Layer Perceptron which is to be dumped.
62    *)    *)
63    method visit (network : mlpNN) =    method visit (network : mlpNN) =
64      ()      (**
65  (*    super#beginDump network;        Call the method from xmlVisitor which begins the dump.
66        *)
67        super#beginDump (network :> nn);
68    
69        (**
70          Dump Multi-Layer Perceptron specific stuffs.
71        *)
72        super#openTag "mlpnn";
73        super#openTag "mlpnn_output_activation";
74        super#dump3dArray !(network#getOutputActivation) string_of_float;
75        super#closeTag "mlpnn_output_activation";
76        super#openTag "mlpnn_input_sum";
77        super#dump3dArray !(network#getInputSum) string_of_float;
78        super#closeTag "mlpnn_input_sum";
79        super#openTag "mlpnn_error";
80        super#dump3dArray !(network#getError) string_of_float;
81        super#closeTag "mlpnn_error";
82        super#openTag "mlpnn_weights";
83        super#dump4dArray !(network#getWeights) string_of_float;
84        super#closeTag "mlpnn_weights";
85        super#openTag "mlpnn_gradients";
86        super#dump4dArray !(network#getGradients) string_of_float;
87        super#closeTag "mlpnn_gradients";
88        super#write ("<layer_nb>" ^ (string_of_int network#getLayerNb) ^ "</layer_nb>");
89        super#openTag "mlpnn_neurons_per_layer";
90        super#dump2dArray network#getNeuronsPerLayer string_of_int;
91        super#closeTag "mlpnn_neurons_per_layer";
92    
93        super#closeTag "mlpnn";
94    
95        (**
96          Call the method from xmlVisitor which finishes the dump.
97        *)
98        super#endDump (network :> nn)
99    
     super#endDump network *)  
100  end  end

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

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