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