AI::NeuralNet::BackProp

--0-79360731-1111188570=:79648
Content-Type: text/plain; charset=us-ascii


Hello, 

I did not get what I messed up? 

Thanks, 

-Jim 

=begin 

=cut 

        use AI::NeuralNet::BackProp; 
        my $net = new AI::NeuralNet::BackProp(3,1,1)­; 
        #$net->debug(4); 

        my @map = ([0], 
                   [1], 
                   [2], 
                   [3], 
                  ); 

        my @res = ([0], 
                   [1], 
                   [4], 
                   [9], 
                  ); 

        $net->learn(\@map,\@res); 
        print $net->learn(\@map,\@res); 

        my @test = (2); 

        my $result = $net->run(\@test); 

        sleep (1); 



__________________________________________________
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
--0-79360731-1111188570=:79648--