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 |
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) |
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) |