/[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.4 by matthieu, Tue Jul 15 16:33:11 2003 UTC revision 1.5 by matthieu, Wed Jul 16 15:13:28 2003 UTC
# Line 45  object Line 45  object
45    val mutable _error = [|[|0.0|]|]    val mutable _error = [|[|0.0|]|]
46    val mutable _weights = [|[|[|0.0|]|]|]    val mutable _weights = [|[|[|0.0|]|]|]
47    val mutable _gradients = [|[|[|0.0|]|]|]    val mutable _gradients = [|[|[|0.0|]|]|]
48    val mutable _layer_nb = 0    val mutable _layerNb = 0
49    val mutable _neurons_per_layers = [|0|]    val mutable _neuronsPerLayers = [|0|]
50    
51    (**    (**
52      Accessors get      Accessors get
53    *)    *)
54    method get_outputActivation = _outputActivation    method getOutputActivation = _outputActivation
55    method get_intputSum = _inputSum    method getIntputSum = _inputSum
56    method get_error = _error    method getError = _error
57    method get_weights = _weights    method getWeights = _weights
58    method get_gradients = _gradients    method getGradients = _gradients
59    method get_layer_nb = _layer_nb    method getLayerNb = _layerNb
60    method get_neurons_per_layer layer = _neurons_per_layers.(layer)    method getNeuronsPerLayer layer = _neuronsPerLayers.(layer)
61    
62    (**    (**
63      Accessors set      Accessors set
64    *)    *)
65    method set_outputActivation outputActivation = _outputActivation <- outputActivation    method setOutputActivation outputActivation = _outputActivation <- outputActivation
66    method set_intputSum inputSum = _inputSum <- inputSum    method setInputSum inputSum = _inputSum <- inputSum
67    method set_error error = _error <- error    method setError error = _error <- error
68    method set_weights weights = _weights <- weights    method setWeights weights = _weights <- weights
69    method set_gradients gradients = _gradients <- gradients    method setGradients gradients = _gradients <- gradients
70    method set_layer_nb layer_nb = _layer_nb <- layer_nb    method setLayerNb layerNb = _layerNb <- layerNb
71    method set_neurons_per_layer neurons_per_layers = _neurons_per_layers <- neurons_per_layers    method setNeuronsPerLayer neuronsPerLayers = _neuronsPerLayers <- neuronsPerLayers
72    method set_layer_nb layer_nb = _layer_nb <- layer_nb    method setLayerNb layerNb = _layerNb <- layerNb
73      method setInputActivation inputSumActivation = _inputSum.(0) <- inputSumActivation
74  end  end

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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