46 |
|
|
47 |
open Corpus |
open Corpus |
48 |
open Pattern |
open Pattern |
49 |
|
open DefaultVisitor |
50 |
|
|
51 |
class virtual ['a] nn = |
class virtual nn = |
52 |
object |
object (self) |
53 |
|
|
54 |
|
val mutable _networkType = "" |
55 |
|
|
56 |
val mutable _step = 0.01 |
val mutable _step = 0.01 |
57 |
|
|
58 |
val mutable _corpus = new corpus |
val mutable _corpus = new corpus |
59 |
|
|
60 |
method virtual accept : 'a -> unit |
(** |
61 |
method virtual getNetworkType : string |
The generic accept method. |
62 |
|
*) |
63 |
|
method accept (visitor : ('a) defaultVisitor) = |
64 |
|
visitor#visit self |
65 |
|
|
66 |
|
(** |
67 |
|
A get*. |
68 |
|
@return The object's dynamic type. |
69 |
|
*) |
70 |
|
method getNetworkType = |
71 |
|
_networkType |
72 |
|
|
73 |
method addPattern pattern = _corpus#addPattern pattern |
method addPattern pattern = _corpus#addPattern pattern |
74 |
|
|
75 |
method getCorpus = _corpus |
method getCorpus = _corpus |
76 |
|
|
77 |
method getLearnPos = _corpus#getLearnPos |
method getLearnPos = _corpus#getLearnPos |
78 |
|
|
79 |
method getInputLearnVector = _corpus#getInputLearnVector _corpus#getLearnPos |
method getInputLearnVector = _corpus#getInputLearnVector _corpus#getLearnPos |
80 |
|
|
81 |
method getOutputLearnVector = _corpus#getOutputLearnVector _corpus#getLearnPos |
method getOutputLearnVector = _corpus#getOutputLearnVector _corpus#getLearnPos |
82 |
|
|
83 |
method getStep = _step |
method getStep = _step |
84 |
|
|
85 |
end |
end |