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

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

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

revision 1.1 by srv89, Thu Jul 31 02:02:08 2003 UTC revision 1.2 by srv89, Fri Aug 29 08:29:39 2003 UTC
# Line 46  Line 46 
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

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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