65 |
(** |
(** |
66 |
Activation of the input layer. |
Activation of the input layer. |
67 |
*) |
*) |
68 |
for i = 0 to (network#getFeaturesNb 0) - 1 do |
for i = 0 to (network#getFeaturesNb.(0)) - 1 do |
69 |
for j = 0 to (network#getTimeNb 0) - 1 do |
for j = 0 to (network#getTimeNb.(0)) - 1 do |
70 |
!outputActivation.(0).(i).(j) <- transFun !inputSum.(0).(i).(j) |
!outputActivation.(0).(i).(j) <- transFun !inputSum.(0).(i).(j) |
71 |
done |
done |
72 |
done; |
done; |
80 |
stepDelay used to keep the delay concept |
stepDelay used to keep the delay concept |
81 |
*) |
*) |
82 |
for l = 0 to network#getLayerNb - 2 do |
for l = 0 to network#getLayerNb - 2 do |
83 |
for i = 0 to (network#getFeaturesNb (l + 1)) - 1 do |
for i = 0 to (network#getFeaturesNb.(l + 1)) - 1 do |
84 |
for j = 0 to (network#getTimeNb (l + 1)) - 1 do |
for j = 0 to (network#getTimeNb.(l + 1)) - 1 do |
85 |
!inputSum.(l + 1).(i).(j) <- 0.; |
!inputSum.(l + 1).(i).(j) <- 0.; |
86 |
for k = 0 to (network#getFeaturesNb l) - 1 do |
for k = 0 to (network#getFeaturesNb.(l)) - 1 do |
87 |
for m = !stepDelay to (!stepDelay + !delay.(l)) - 1 do |
for m = !stepDelay to (!stepDelay + !delay.(l)) - 1 do |
88 |
!inputSum.(l + 1).(i).(j) <- !inputSum.(l + 1).(i).(j) |
!inputSum.(l + 1).(i).(j) <- !inputSum.(l + 1).(i).(j) |
89 |
+. !outputActivation.(l).(k).(l + !stepDelay) |
+. !outputActivation.(l).(k).(l + !stepDelay) |