57 |
let inputTdnn = new inputTdnnVisitor;; |
let inputTdnn = new inputTdnnVisitor;; |
58 |
let pTdnn = new propagateTdnnVisitor;; |
let pTdnn = new propagateTdnnVisitor;; |
59 |
let eTdnn = new errorTdnnVisitor;; |
let eTdnn = new errorTdnnVisitor;; |
60 |
let pat = new pattern [|[|0.3;0.7;0.2;0.3;0.7;0.2;0.8;0.7;0.1;0.3;0.7;0.9|]|] |
let pat = new pattern [|[|0.34531;0.42739;0.34765;0.20748;0.10829;0.14307;0.2115;0.12654;0.1065;0.18414;0.20014;0.36173|]|] |
61 |
[|[|0.42;0.2;0.1;0.42;0.2;0.1;0.42;0.2;0.1;0.42;0.2;0.1;0.42;0.2;0.1;0.42;0.2;0.1;0.42;0.2;0.1;0.42;0.2;0.1|]|];; |
[|1.;0.;1.;1.;0.;1.;0.;0.;1.;0.;1.;0.|;; |
62 |
|
|
63 |
|
|
64 |
tdnn#addPattern pat;; |
tdnn#addPattern pat;; |
65 |
tdnn#setLayerNb 3;; |
tdnn#setLayerNb 3;; |
66 |
tdnn#setDelay [|1;1|];; |
tdnn#setDelay [|1;1|];; |
67 |
tdnn#setTimeNb [|12;10;6|];; |
tdnn#setTimeNb [|12;10;6|];; |
68 |
tdnn#setFeaturesNb [|1;8;4|];; |
tdnn#setFeaturesNb [|1;2;2|];; |
69 |
tdnn#setFieldSize [|3;5|];; |
tdnn#setFieldSize [|3;5|];; |
70 |
tdnn#accept initTdnn;; |
tdnn#accept initTdnn;; |
71 |
tdnn#accept inputTdnn;; |
tdnn#accept inputTdnn;; |