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

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

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

revision 1.5 by matthieu, Thu Jul 17 00:06:55 2003 UTC revision 1.6 by matthieu, Thu Jul 17 21:30:20 2003 UTC
# Line 67  object Line 67  object
67          done;          done;
68          (**          (**
69            Propagation of the activation.            Propagation of the activation.
           //FIXME step handling  
70          *)          *)
71          for l = 1 to network#getLayerNb - 1 do          for l = 0 to network#getLayerNb - 2 do
72            for i = 0 to (network#getNeuronsPerLayer l) - 1 do            for i = 0 to (network#getNeuronsPerLayer (l + 1)) - 1 do
73              !inputSum.(l).(i) <- !outputActivation.(l - 1).(0)              !inputSum.(l + 1).(i) <- !outputActivation.(l).(0)
74              *. !weights.(l - 1).(i).(0);              *. !weights.(l).(0).(i);
75              for j = 1 to (network#getNeuronsPerLayer (l - 1)) - 1 do              for j = 1 to (network#getNeuronsPerLayer l) - 1 do
76                !inputSum.(l).(i) <- !inputSum.(l).(i)                !inputSum.(l + 1).(i) <- !inputSum.(l + 1).(i)
77                +. !outputActivation.(l - 1).(j)                +. !outputActivation.(l).(j)
78                *. !weights.(l - 1).(i).(j)                *. !weights.(l).(j).(i)
79              done;              done;
80              !outputActivation.(l).(i) <- transFun !inputSum.(l).(i)              !outputActivation.(l + 1).(i)
81                <- transFun !inputSum.(l + 1).(i)
82            done            done
83          done          done
84        end        end

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

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