52 |
class propagateMlpnnVisitor = |
class propagateMlpnnVisitor = |
53 |
object |
object |
54 |
inherit [mlpNN] propagateVisitor |
inherit [mlpNN] propagateVisitor |
55 |
|
|
56 |
|
initializer |
57 |
|
_moduleName <- "MLPNN propagation" |
58 |
|
|
59 |
val mutable _transfertFunction = function x -> (1. /. (1. +. exp (-.x))) |
val mutable _transfertFunction = function x -> (1. /. (1. +. exp (-.x))) |
60 |
|
|
61 |
method visit (network : mlpNN) = |
method visit (network : mlpNN) = |
62 |
let step = network#getStep and |
let step = network#getStep and |
63 |
transFun = _transfertFunction and |
transFun = _transfertFunction and |
88 |
done |
done |
89 |
done |
done |
90 |
end |
end |
91 |
|
|
92 |
end |
end |