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