/[marvin]/marvin/src/libnn/propagate/propagateMlpnnVisitor.ml
ViewVC logotype

Diff of /marvin/src/libnn/propagate/propagateMlpnnVisitor.ml

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

revision 1.2 by srv89, Mon Sep 1 13:08:35 2003 UTC revision 1.3 by srv89, Wed Sep 10 11:32:19 2003 UTC
# Line 52  open MlpNN Line 52  open MlpNN
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
# Line 83  object Line 88  object
88            done            done
89          done          done
90        end        end
91    
92  end  end

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

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