/[marvin]/marvin/src/libnn/propagate/propagateTdnnVisitor.ml
ViewVC logotype

Diff of /marvin/src/libnn/propagate/propagateTdnnVisitor.ml

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

revision 1.1 by srv89, Thu Jul 31 02:01:43 2003 UTC revision 1.2 by srv89, Mon Sep 1 13:08:35 2003 UTC
# Line 65  object Line 65  object
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;
# Line 80  object Line 80  object
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)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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