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

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

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

revision 1.4 by matthieu, Wed Jul 16 15:13:28 2003 UTC revision 1.5 by matthieu, Thu Jul 17 00:06:55 2003 UTC
# Line 87  object Line 87  object
87            Initialization of the 3 dimensions arrays            Initialization of the 3 dimensions arrays
88          *)          *)
89          for i = 0 to network#getLayerNb - 2 do          for i = 0 to network#getLayerNb - 2 do
90            weights.(i) <- Array.create (network#getNeuronsPerLayer i + 1) [||];            weights.(i) <- Array.create (network#getNeuronsPerLayer (i + 1)) [||];
91            gradients.(i) <- Array.create (network#getNeuronsPerLayer i + 1) [||];            gradients.(i) <- Array.create (network#getNeuronsPerLayer (i + 1)) [||];
92            for j = 0 to (network#getNeuronsPerLayer i + 1) - 1 do            for j = 0 to (network#getNeuronsPerLayer (i + 1)) - 1 do
93              weights.(i).(j) <- Array.create (network#getNeuronsPerLayer i) ((Env.getEnv())#getRandLimit);              weights.(i).(j) <- Array.create (network#getNeuronsPerLayer i) ((Env.getEnv())#getRandLimit);
94              gradients.(i).(j) <- Array.create (network#getNeuronsPerLayer i) 0.0              gradients.(i).(j) <- Array.create (network#getNeuronsPerLayer i) 0.0
95            done            done

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