AI-NeuralNet-Kohonen-Visual

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension AI::NeuralNet::Kohonen::Demo::RGB.

0.03  Fri May 05 21:17:00 2006
	Packaged, test and pod fix

0.02  Thu Mar 20 2003 11:25 2003
	Now a sub-class of AI::NeuralNet::Kohonen::Visual.

0.011 Thu Mar 13 18:21:37 2003
	Added unified distance matrix display.

0.01  Thu Mar 13 12:21:37 2003
	- original version; created by h2xs 1.21 with options
		-X -n AI::NeuralNet::Kohonen::Demo::RGB

README  view on Meta::CPAN

A sub-class of "AI::NeuralNet::Kohonen" that Impliments extra methods
to make use of TK for visualisations.

INSTALLATION

To install this module type the following:

   perl Makefile.PL
   make
   make test
   make install

DEPENDENCIES

This module requires these other modules and libraries:

	AI::NeuralNet::Kohonen
	Tk

SEE ALSO

lib/AI/NeuralNet/Kohonen/Visual.pm  view on Meta::CPAN

use vars qw/$VERSION/;
$VERSION = 0.3; # 05 May 2006 pod and packaging

=head1 NAME

AI::NeuralNet::Kohonen::Visual - Tk-based Visualisation

=head1 SYNOPSIS

Test the test file in this distribution, or:

	package YourClass;
	use base "AI::NeuralNet::Kohonen::Visual";

	sub get_colour_for { my ($self,$x,$y) = (shift,shift,shift);
		# From here you return a TK colour name.
		# Get it as you please; for example, values of a 3D map:
		return sprintf("#%02x%02x%02x",
			(int (255 * $self->{map}->[$x]->[$y]->{weight}->[0])),
			(int (255 * $self->{map}->[$x]->[$y]->{weight}->[1])),

t/AI-NeuralNet-Kohonen-Visual.t  view on Meta::CPAN

package Visual_and_RGB_test;
use lib "../lib";
use Test::More tests => 14;

my $delay = 1;

use_ok( "AI::NeuralNet::Kohonen" => 0.14 );
use_ok( "AI::NeuralNet::Kohonen::Visual" => 0.3);

diag "# Test 1 - basic confirmations that object-properties work correctly\n";

$net = AI::NeuralNet::Kohonen::Visual->new(
	display			=> 'hex',