44 |
*) |
*) |
45 |
|
|
46 |
open Nn |
open Nn |
|
open DefaultVisitor |
|
47 |
open MlpNN |
open MlpNN |
48 |
open XmlVisitor |
open XmlVisitor |
49 |
|
|
50 |
(** |
(** |
51 |
Creates a dump of a Multi Layer Perceptron as a XML file. |
Dumps the Multi Layer Perceptron specific stuffs as XML. |
52 |
*) |
*) |
53 |
class xmlMlpnnVisitor = |
class xmlMlpnnVisitor = |
54 |
object |
object |
55 |
inherit [mlpNN] xmlVisitor as super |
inherit ['a] xmlVisitor as super |
56 |
|
|
57 |
(** |
(** |
58 |
The method which creates the XML dump. |
The method which dumps Multi Layer Perceptron specific stuffs. |
59 |
@param network The Multi Layer Perceptron which is to be dumped. |
@param network The Multi Layer Perceptron which is to be dumped. |
60 |
*) |
*) |
61 |
method visit (network : mlpNN) = |
method visit (network : mlpNN) = |
62 |
(** |
() |
63 |
Begin the XML dump. |
(* super#beginDump network; |
|
*) |
|
|
super#xml_begin _filename; |
|
64 |
|
|
|
(** |
|
|
Dump Multi Layer Perceptron specific stuffs. |
|
|
*) |
|
|
|
|
|
(** |
|
|
End the XML dump. |
|
|
*) |
|
|
super#xml_end _filename |
|
65 |
|
|
66 |
|
super#endDump network *) |
67 |
end |
end |