49 |
|
|
50 |
class virtual ['a] nn = |
class virtual ['a] nn = |
51 |
object |
object |
52 |
val mutable _step = 0 |
val mutable _step = 0.1 |
53 |
val mutable _corpus = new corpus |
val mutable _corpus = new corpus |
54 |
method virtual accept : 'a -> unit |
method virtual accept : 'a -> unit |
55 |
method virtual print : unit |
method virtual print : unit |
56 |
method addPattern pattern = _corpus#addPattern pattern |
method addPattern pattern = _corpus#addPattern pattern |
57 |
method getCorpus = _corpus |
method getCorpus = _corpus |
58 |
method getLearnPos = _corpus#getLearnPos |
method getLearnPos = _corpus#getLearnPos |
59 |
method getLearnVector = let vector = _corpus#getLearnVector _corpus#getLearnPos in |
method getLearnVector = |
60 |
_corpus#learnPosInc; vector |
let vector = _corpus#getLearnVector _corpus#getLearnPos in |
61 |
|
_corpus#learnPosInc; vector |
62 |
|
method getStep = _step |
63 |
end |
end |