view release on metacpan or  search on metacpan

t/torus.t  view on Meta::CPAN

use Test::More qw(no_plan);
BEGIN { use_ok('AI::NeuralNet::FastSOM::Torus') };

######
use AI::NeuralNet::FastSOM::Utils;
use Storable qw/store/;

{
    my $nn = AI::NeuralNet::FastSOM::Torus->new(
        output_dim => "5x6",
        input_dim  => 3,
    );
    ok( $nn->isa ('AI::NeuralNet::FastSOM::Torus'), 'class' );
    is( $nn->{_X}, 5, 'X' );
    is( $nn->{_Y}, 6, 'Y' );
    is( $nn->{_Z}, 3, 'Z' );
    is( $nn->radius, 2.5, 'radius' );
    is( $nn->output_dim, "5x6", 'output dim' );
}

{
    my $nn = AI::NeuralNet::FastSOM::Torus->new(
        output_dim => "5x6",
        input_dim  => 3,
    );

    ok(
        eq_set(
            $nn->neighbors(1, 0, 0),
            [
                [ 0, 0, '0' ],
                [ 0, 1, '1' ],
                [ 0, 5, '1' ],
                [ 1, 0, '1' ],
                [ 4, 0, '1' ]
            ]
        ),
        'neighbors 4+1'
    );

    ok(
        eq_set(
            $nn->neighbors(1, 3, 2),
            [
                [ 2, 2, '1' ],
                [ 3, 1, '1' ],
                [ 3, 2, '0' ],
                [ 3, 3, '1' ],
                [ 4, 2, '1' ]
            ]
        ),
        'neighbors 4+1'
    );
}

sub _find {
    my $v = shift;
    my $m = shift;

    for my $x ( 0 .. 4 ) {
        for my $y ( 0 .. 5 ) {