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

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

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

revision 1.6 by matthieu, Thu Jul 17 00:06:55 2003 UTC revision 1.7 by matthieu, Wed Jul 23 15:47:37 2003 UTC
# Line 36  Line 36 
36  *)  *)
37    
38  open Nn  open Nn
39    open DefaultVisitor
40    
41  class virtual ['a] mlpNN =  class mlpNN =
42  object  object (self : 'a)
43    inherit ['a] nn    inherit [('a) defaultVisitor] nn
44    val mutable _outputActivation = [|[|0.0|]|]    val mutable _outputActivation = [|[|0.0|]|]
45    val mutable _inputSum = [|[|0.0|]|]    val mutable _inputSum = [|[|0.0|]|]
46    val mutable _error = [|[|0.0|]|]    val mutable _error = [|[|0.0|]|]
# Line 49  object Line 50  object
50    val mutable _neuronsPerLayers = [|0|]    val mutable _neuronsPerLayers = [|0|]
51    
52    (**    (**
53        The generic method accept
54      *)
55      method accept (visitor : ('a) defaultVisitor) = visitor#visitMlpnn self
56    
57      (**
58      Accessors get      Accessors get
59    *)    *)
60    method getOutputActivation = ref _outputActivation    method getOutputActivation = ref _outputActivation

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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