Select Code to Download

my $net = new AI::NeuralNet::BackProp(3,5,1);

my $net = new AI::NeuralNet::BackProp(3,6,1);

   my @set = (
                [ 0,0,0,0,0,1 ], [ 1 ],
...
                [ 0,0,0,1,1,1 ], [ 0 ],
                [ 0,0,1,0,1,1 ], [ 0 ],
                [ 0,0,1,1,1,1 ], [ 0 ],