/[marvin]/marvin/src/libnn/error/check.ml
ViewVC logotype

Diff of /marvin/src/libnn/error/check.ml

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

revision 1.1 by matthieu, Sun Sep 14 15:22:25 2003 UTC revision 1.2 by matthieu, Mon Sep 15 23:58:12 2003 UTC
# Line 57  let initTdnn = new initTdnnVisitor;; Line 57  let initTdnn = new initTdnnVisitor;;
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;;

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