/[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.3 by srv89, Mon Sep 1 13:08:35 2003 UTC revision 1.4 by matthieu, Wed Sep 10 18:02:33 2003 UTC
# Line 2  Line 2 
2    [LibNN - Neural Networks Library]    [LibNN - Neural Networks Library]
3    http://libnn.org    http://libnn.org
4    Copyright (C) 2002 - 2003  LAGACHERIE Matthieu RICORDEAU Olivier    Copyright (C) 2002 - 2003  LAGACHERIE Matthieu RICORDEAU Olivier
5      
6    This program is free software; you can redistribute it and/or    This program is free software; you can redistribute it and/or
7    modify it under the terms of the GNU General Public License    modify it under the terms of the GNU General Public License
8    as published by the Free Software Foundation; either version 2    as published by the Free Software Foundation; either version 2
9    of the License, or (at your option) any later version. This    of the License, or (at your option) any later version. This
10    program is distributed in the hope that it will be useful,    program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13    GNU General Public License for more details. You should have    GNU General Public License for more details. You should have
14    received a copy of the GNU General Public License    received a copy of the GNU General Public License
15    along with this program; if not, write to the Free Software    along with this program; if not, write to the Free Software
16    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307,
17    USA.    USA.
18      
19    SPECIAL NOTE (the beerware clause):    Authors:
   This software is free software. However, it also falls under the beerware  
   special category. That is, if you find this software useful, or use it  
   every day, or want to grant us for our modest contribution to the  
   free software community, feel free to send us a beer from one of  
   your local brewery. Our preference goes to Belgium abbey beers and  
   irish stout (Guiness for strength!), but we like to try new stuffs.  
   
   Authors:  
20    LAGACHERIE Matthieu    LAGACHERIE Matthieu
21    Paper mail : 7 rue Delescluzes 94280 LE KREMLIN BICETRE, FRANCE    Paper mail : 7 rue Delescluzes 94280 LE KREMLIN BICETRE, FRANCE
22    E-mail : matthieu@libnn.org    E-mail : matthieu@libnn.org
23      
24    RICORDEAU Olivier    RICORDEAU Olivier
25    Paper mail : 69 avenue d'Italie 75013 PARIS, FRANCE    Paper mail : 69 avenue d'Italie 75013 PARIS, FRANCE
26    E-mail : olivier@libnn.org    E-mail : olivier@libnn.org
27      
28  *****************************************************************)  *****************************************************************)
29    
30  (**  (**
# Line 47  open Nn Line 39  open Nn
39  open DefaultVisitor  open DefaultVisitor
40    
41  class tdNN =  class tdNN =
42  object (self)  object (self : 'a)
43    inherit nn    inherit [('a) defaultVisitor] nn
44    
45    (**    val _networkType = "TDNN"
     The Ctor.  
   *)  
   initializer  
     _networkType <- "TDNN"  
46    
47    val mutable _outputActivation = [|[|[|0.0|]|]|]    val mutable _outputActivation = [|[|[|0.0|]|]|]
48    
# Line 77  object (self) Line 65  object (self)
65    val mutable _fieldSize = [|0|]    val mutable _fieldSize = [|0|]
66    
67    (**    (**
68        The generic accept method.
69      *)
70      method accept (visitor : ('a) defaultVisitor) =
71        visitor#visit self
72    
73      (**
74    
75    *)    *)
76    method getOutputActivation =    method getOutputActivation =
# Line 100  object (self) Line 94  object (self)
94    method getDelay =    method getDelay =
95      ref _delay      ref _delay
96    
97    method getFeaturesNb =    method getFeaturesNb layer =
98      _featuresNb      _featuresNb.(layer)
99    
100      method getTimeNb layer =
101        _timeNb.(layer)
102    
103    method getTimeNb =    method getFieldSize layer =
104      _timeNb      _fieldSize.(layer)
105    
106    method getFieldSize =    method getNetworkType =
107      _fieldSize      _networkType
108    
109    (**    (**
110      Accessors set      Accessors set

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

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