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

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

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

revision 1.2 by matthieu, Thu Jul 10 21:55:33 2003 UTC revision 1.3 by matthieu, Tue Jul 15 12:26:03 2003 UTC
# Line 40  open Nn Line 40  open Nn
40  class virtual ['a] mlpNN =  class virtual ['a] mlpNN =
41  object  object
42    inherit ['a] nn    inherit ['a] nn
43    val mutable _outputActivation = [|[||]|]    val mutable _outputActivation = [|[|0.0|]|]
44    val mutable _inputSum = [|[||]|]    val mutable _inputSum = [|[|0.0|]|]
45    val mutable _error = [|[||]|]    val mutable _error = [|[|0.0|]|]
46    val mutable _weights = [|[|[||]|]|]    val mutable _weights = [|[|[|0.0|]|]|]
47    val mutable _gradients = [|[|[||]|]|]    val mutable _gradients = [|[|[|0.0|]|]|]
48    val mutable _layer_nb = 0    val mutable _layer_nb = 0
49    val mutable _neurons_per_layers = [||]    val mutable _neurons_per_layers = [|0|]
50    
51      (**
52        Accessors get
53      *)
54      method get_outputActivation = _outputActivation
55      method get_intputSum = _inputSum
56      method get_error = _error
57      method get_weights = _weights
58      method get_gradients = _gradients
59      method get_layer_nb = _layer_nb
60      method get_neurons_per_layer layer = _neurons_per_layers.(layer)
61    
62      (**
63        Accessors set
64      *)
65      method set_outputActivation outputActivation = _outputActivation <- outputActivation
66      method set_intputSum inputSum = _inputSum <- inputSum
67      method set_error error = _error <- error
68      method set_weights weights = _weights <- weights
69      method set_gradients gradients = _gradients <- gradients
70      method set_layer_nb layer_nb = _layer_nb <- layer_nb
71      method set_neurons_per_layer neurons_per_layers = _neurons_per_layers <- neurons_per_layers
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