AI::NNFlex x square

[Jim zaba]

Hello, 

I'm not sure what I messed up here. 

Thanks, 

-Jim 

use strict; 
use AI::NNFlex::momentum; 
use AI::NNFlex::Dataset; 

# Create the network 

my $network = AI::NNFlex::momentum->new( learningrate=>.1, 
                                bias=>1, 
                                momentum=>0.6, 
                                round=>1); 

$network->add_layer( nodes=>1, 
                        activationfunction=>"tanh"); 

$network->add_layer( nodes=>1, 
                        activationfunction=>"tanh"); 

$network->add_layer( nodes=>1, 
                        activationfunction=>"linear"); 

$network->init(); 

my $dataset = AI::NNFlex::Dataset->new([ 
                        [0],[0], 
                        [1/3],[1/9], 
                        [2/3],[4/9], 
                        [9/3],[9/9]]); 

my $counter=0; 
my $err = 10; 
while ($err >1.001) 
{ 
        $err = $dataset->learn($network); 

        print "Epoch $counter: Error = $err\n"; 
        $counter++; 

} 


foreach (@{$dataset->run($network)}) 
{ 
        foreach (@$_){print $_} 
        print "\n";   


                
---------------------------------
Do you Yahoo!?
 Yahoo! Small Business - Try our new resources site!