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 |
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 |