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

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

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

revision 1.4 by matthieu, Wed Sep 10 18:02:33 2003 UTC revision 1.5 by matthieu, Wed Sep 10 21:20:10 2003 UTC
# Line 32  Line 32 
32        
33    @author Matthieu Lagacherie    @author Matthieu Lagacherie
34    @author Olivier Ricordeau    @author Olivier Ricordeau
35    @since 07/28/2003    @since 28/07/2003
36  *)  *)
37    
38  open Nn  open Nn
39  open DefaultVisitor  open DefaultVisitor
40    
41  class tdNN =  class tdNN =
42  object (self : 'a)  object (self)
43    inherit [('a) defaultVisitor] nn    inherit nn
44    
45    val _networkType = "TDNN"    (**
46        The Ctor.
47      *)
48      initializer
49        _networkType <- "TDNN"
50    
51    val mutable _outputActivation = [|[|[|0.0|]|]|]    val mutable _outputActivation = [|[|[|0.0|]|]|]
52    
# Line 65  object (self : 'a) Line 69  object (self : 'a)
69    val mutable _fieldSize = [|0|]    val mutable _fieldSize = [|0|]
70    
71    (**    (**
     The generic accept method.  
   *)  
   method accept (visitor : ('a) defaultVisitor) =  
     visitor#visit self  
   
   (**  
72    
73    *)    *)
74    method getOutputActivation =    method getOutputActivation =
# Line 94  object (self : 'a) Line 92  object (self : 'a)
92    method getDelay =    method getDelay =
93      ref _delay      ref _delay
94    
95    method getFeaturesNb layer =    method getFeaturesNb =
96      _featuresNb.(layer)      _featuresNb
   
   method getTimeNb layer =  
     _timeNb.(layer)  
97    
98    method getFieldSize layer =    method getTimeNb =
99      _fieldSize.(layer)      _timeNb
100    
101    method getNetworkType =    method getFieldSize =
102      _networkType      _fieldSize
103    
104    (**    (**
105      Accessors set      Accessors set

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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