40 |
|
|
41 |
@author Matthieu Lagacherie |
@author Matthieu Lagacherie |
42 |
@author Olivier Ricordeau |
@author Olivier Ricordeau |
43 |
@since 10/08/2003 |
@since 07/10/2003 |
44 |
*) |
*) |
45 |
|
|
46 |
open Nn |
open Nn |
47 |
open LearnVisitor |
open LearnVisitor |
48 |
open DefaultVisitor |
open DefaultVisitor |
49 |
open MlpNN |
open MlpNN |
50 |
|
|
51 |
class learnMlpnnStochVisitor = |
class learnMlpnnStochVisitor = |
52 |
object |
object |
53 |
inherit [mlpNN] learnVisitor |
inherit [mlpNN] learnVisitor |
54 |
|
|
55 |
method visitMlpnn (network : mlpNN) = |
method visitMlpnn (network : mlpNN) = |
56 |
let error = network#getError and |
let error = network#getError and |
57 |
weights = network#getWeights and |
weights = network#getWeights and |
68 |
done |
done |
69 |
done |
done |
70 |
end |
end |
71 |
|
|
72 |
end |
end |