view release on metacpan or  search on metacpan

examples/ex_alpha.pl  view on Meta::CPAN

        0,0,1,0,0,
		],[25],[
        1,1,1,1,1,
        0,0,0,0,1,
        0,0,0,1,0,
        0,0,1,0,0,
        0,1,0,0,0,
        1,0,0,0,0,
        1,1,1,1,1,
		],[26],[
        0,0,1,0,0,
        0,1,1,1,0,
        0,1,0,1,0,
        1,1,0,1,1,
        1,1,1,1,1,
        1,1,0,1,1,
        1,0,0,0,1,
		],[27],[
        1,0,0,0,1,
        0,1,0,0,1,
        0,0,1,1,0,
        0,0,1,1,0,
        0,0,1,0,0,
        0,1,0,0,0,
        1,0,0,0,0,
		],[28],[
        1,0,0,0,1,
        1,0,0,0,1,
        1,0,1,0,1,
        1,1,1,1,1,
        1,1,1,1,1,
        0,1,0,1,0,
        0,1,0,1,0,
        ],[29],[
        1,0,0,0,1,
        1,0,0,0,1,
        1,0,0,0,1,
        1,1,0,1,1,
        0,1,0,1,0,
        0,1,1,1,0,
        0,0,1,0,2
        ]
     ];
	
	if(!$net->load("alpha.mesh")) {
		#$net->range(0..29);
		$net->learn_set($letters);
		$net->save("alpha.mesh");
	}
			
	# Build a test map 
	my $tmp	=	[0,1,1,1,0,
				 1,0,0,0,1,
				 1,0,0,0,1,
				 1,1,1,1,1,
				 1,0,0,0,1,
				 1,0,0,0,1,
				 1,0,0,0,1];
	
	# Display test map
	print "\nTest map:\n";
	$net->join_cols($tmp,5);
	
	# Display network results
	print "Letter index matched: ",$net->run($tmp)->[0],"\n";