/[marvin]/marvin/src/libnn/learnMlpnnStochVisitor.ml
ViewVC logotype

Diff of /marvin/src/libnn/learnMlpnnStochVisitor.ml

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

revision 1.2 by matthieu, Sun Jul 27 22:06:33 2003 UTC revision 1.3 by srv89, Mon Jul 28 19:59:36 2003 UTC
# Line 40  Line 40 
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
# Line 68  object Line 68  object
68            done            done
69          done          done
70        end        end
71    
72  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