[Perl-AI] AI::NNFlex x square

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!