/[marvin]/marvin/src/libnn/init/initTdnnVisitor.ml
ViewVC logotype

Diff of /marvin/src/libnn/init/initTdnnVisitor.ml

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

revision 1.7 by matthieu, Sat Sep 13 15:35:52 2003 UTC revision 1.8 by matthieu, Mon Sep 15 23:59:19 2003 UTC
# Line 79  class initTdnnVisitor = Line 79  class initTdnnVisitor =
79         *)         *)
80    
81        let featuresNb = network#getFeaturesNb and        let featuresNb = network#getFeaturesNb and
82            timeNb = network#getTimeNb in            timeNb = network#getTimeNb and
83              fieldSize = network#getFieldSize in
84    
85        (**        (**
86           Define a function designed to test the tdnn architecture           Define a function designed to test the tdnn architecture
# Line 157  class initTdnnVisitor = Line 158  class initTdnnVisitor =
158            weights.(i) <- Array.make (featuresNb.(i)) [|[||]|];            weights.(i) <- Array.make (featuresNb.(i)) [|[||]|];
159            for j = 0 to (featuresNb.(i)) - 1 do            for j = 0 to (featuresNb.(i)) - 1 do
160              weights.(i).(j)              weights.(i).(j)
161              <- Array.make (timeNb.(i)) [||];              <- Array.make (fieldSize.(i)) [||];
162              for k = 0 to (timeNb.(i)) - 1 do              for k = 0 to (fieldSize.(i)) - 1 do
163                weights.(i).(j).(k)                weights.(i).(j).(k)
164                <- Array.make (featuresNb.(i + 1))                <- Array.make (featuresNb.(i + 1))
165                    (Random.float (Env.getEnv())#getRandLimit)                    (Random.float (Env.getEnv())#getRandLimit)
# Line 178  class initTdnnVisitor = Line 179  class initTdnnVisitor =
179            gradients.(i) <- Array.make (featuresNb.(i)) [|[||]|];            gradients.(i) <- Array.make (featuresNb.(i)) [|[||]|];
180            for j = 0 to (featuresNb.(i)) - 1 do            for j = 0 to (featuresNb.(i)) - 1 do
181              gradients.(i).(j)              gradients.(i).(j)
182              <- Array.make (timeNb.(i)) [||];              <- Array.make (fieldSize.(i)) [||];
183              for k = 0 to (timeNb.(i)) - 1 do              for k = 0 to (fieldSize.(i)) - 1 do
184                gradients.(i).(j).(k)                gradients.(i).(j).(k)
185                <- Array.make (featuresNb.(i + 1))                <- Array.make (featuresNb.(i + 1))
186                    (Random.float (Env.getEnv())#getRandLimit)                    (Random.float (Env.getEnv())#getRandLimit)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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