102 |
in _learnPos <- increment _learnPos |
in _learnPos <- increment _learnPos |
103 |
|
|
104 |
(** |
(** |
105 |
Get the current learning vector. |
Get the current input learning vector. |
106 |
*) |
*) |
107 |
method getLearnVector pos = (List.nth _patterns (fst pos))#getInput (snd pos) |
method getInputLearnVector pos = (List.nth _patterns (fst pos))#getInput (snd pos) |
108 |
|
|
109 |
|
(** |
110 |
|
Get the current output learning vector. |
111 |
|
*) |
112 |
|
method getOutputLearnVector pos = (List.nth _patterns (fst pos))#getOutput (snd pos) |
113 |
end |
end |