AI-NeuralNet-FastSOM

 view release on metacpan or  search on metacpan

FastSOM.xs  view on Meta::CPAN

	oitems = items - 2;
	Newx(org,oitems,AV*);
	Newx(veg,oitems,AV*);

	for ( i=2 ; i<items ; i++ )
		if ( SvTYPE(SvRV(ST(i))) != SVt_PVAV )
			croak("training item %i is not an array ref", (int)i);
		else
			org[i-2] = (AV*)SvRV(ST(i));

	som->LAMBDA = epochs / log( som->Sigma0 );

	X = som->X;
	Y = som->Y;

	nitems = X*Y;
	Newx(n,nitems,NV);

	if ( som->type == SOMType_Torus )
		neiguts = _torus_neiguts;
	else if ( som->type == SOMType_Hexa )

TODO  view on Meta::CPAN

- skip some tests if Storable not found (for old perls).
  versions ok: 2.21, 2.20, 2.19, 2.18
  perls found in: 5.11.0, 5.10.1, 5.10.0, 5.8.8, 5.8.9p35104, 5.8.9, 5.8.8, 5.6.2

- "passing argument 3 of 'Perl_newXS' discards qualifiers
   from pointer target type". is this still a problem?

- clean up!

- figure out how to call perl's exp(), log() and getpid() functions.

lib/AI/NeuralNet/FastSOM/Hexa.pm  view on Meta::CPAN

}

1;

__END__

=pod

=head1 NAME

AI::NeuralNet::FastSOM::Hexa - Perl extension for Kohonen Maps (hexagonal topology)

=head1 SYNOPSIS

  use AI::NeuralNet::FastSOM::Hexa;
  my $nn = new AI::NeuralNet::FastSOM::Hexa (output_dim => 6,
                                         input_dim  => 3);
  # ... see also base class AI::NeuralNet::FastSOM

=head1 INTERFACE

lib/AI/NeuralNet/FastSOM/Rect.pm  view on Meta::CPAN

}

1;

__END__

=pod

=head1 NAME

AI::NeuralNet::FastSOM::Rect - Perl extension for Kohonen Maps (rectangular topology)

=head1 SYNOPSIS

  use AI::NeuralNet::FastSOM::Rect;
  my $nn = new AI::NeuralNet::FastSOM::Rect (output_dim => "5x6",
                                         input_dim  => 3);
  $nn->initialize;
  $nn->train (30, 
    [ 3, 2, 4 ], 
    [ -1, -1, -1 ],

lib/AI/NeuralNet/FastSOM/Torus.pm  view on Meta::CPAN

our $VERSION = '0.19';

1;

__END__

=pod

=head1 NAME

AI::NeuralNet::FastSOM::Torus - Perl extension for fast Kohonen Maps (torus topology)

=head1 SYNOPSIS

See L<AI::NeuralNet::SOM::Rect> for details.

=head1 SEE ALSO

L<AI::NeuralNet::FastSOM::Rect>

=head1 AUTHOR