/[marvin]/marvin/src/libnn/nn.ml
ViewVC logotype

Diff of /marvin/src/libnn/nn.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by matthieu, Wed Jul 16 21:45:15 2003 UTC revision 1.12 by matthieu, Thu Jul 17 00:06:55 2003 UTC
# Line 49  open Pattern Line 49  open Pattern
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

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26