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 |
(** |
(** |
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 |
|
|
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 = |
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 |