AI-NeuralNet-Mesh
view release on metacpan or search on metacpan
examples/ex_pcx.pl view on Meta::CPAN
=begin
File: examplex/ex_pcx.pl
Author: Josiah Bryan, <jdb@wcoil.com>
Desc:
This teaches the network to classify
10x10 bitmaps from a PCX file based on their
whiteness. (This was taught on a b&w 320x200
PCX of the author at an early age :-)
=cut
use AI::NeuralNet::Mesh;
# Set block sizes
my ($bx,$by)=(10,10);
print "Creating Neural Net...";
my $net=AI::NeuralNet::Mesh->new(1,$bx*$by,1);
$net->{col_width} = $bx;
<LI><A HREF="#description">DESCRIPTION</A></LI>
<LI><A HREF="#exports">EXPORTS</A></LI>
<LI><A HREF="#methods">METHODS</A></LI>
<LI><A HREF="#custom activation functions">CUSTOM ACTIVATION FUNCTIONS</A></LI>
<LI><A HREF="#variables">VARIABLES</A></LI>
<LI><A HREF="#custom network connectors">CUSTOM NETWORK CONNECTORS</A></LI>
<LI><A HREF="#what can it do">WHAT CAN IT DO?</A></LI>
<LI><A HREF="#examples">EXAMPLES</A></LI>
<LI><A HREF="#other included packages">OTHER INCLUDED PACKAGES</A></LI>
<LI><A HREF="#bugs">BUGS</A></LI>
<LI><A HREF="#author">AUTHOR</A></LI>
<LI><A HREF="#thanks">THANKS</A></LI>
<LI><A HREF="#download">DOWNLOAD</A></LI>
<LI><A HREF="#mailing list">MAILING LIST</A></LI>
</UL>
<!-- INDEX END -->
<HR>
<P>
<H1><A NAME="name">NAME</A></H1>
<P>AI::NeuralNet::Mesh - An optimized, accurate neural network Mesh.</P>
<P>
<HR>
<H1><A NAME="bugs">BUGS</A></H1>
<P>This is a beta release of <CODE>AI::NeuralNet::Mesh</CODE>, and that holding true, I am sure
there are probably bugs in here which I just have not found yet. If you find bugs in this module, I would
appreciate it greatly if you could report them to me at <EM><<A HREF="mailto:jdb@wcoil.com">jdb@wcoil.com</A>></EM>,
or, even better, try to patch them yourself and figure out why the bug is being buggy, and
send me the patched code, again at <EM><<A HREF="mailto:jdb@wcoil.com">jdb@wcoil.com</A>></EM>.</P>
<P>
<HR>
<H1><A NAME="author">AUTHOR</A></H1>
<P>Josiah Bryan <EM><<A HREF="mailto:jdb@wcoil.com">jdb@wcoil.com</A>></EM></P>
<P>Copyright (c) 2000 Josiah Bryan. All rights reserved. This program is free software;
you can redistribute it and/or modify it under the same terms as Perl itself.</P>
<P>The <CODE>AI::NeuralNet::Mesh</CODE> and related modules are free software. THEY COME WITHOUT WARRANTY OF ANY KIND.</P>
<P>$Id: AI::NeuralNet::Mesh.pm, v0.43 2000/15/09 03:29:08 josiah Exp $</P>
<P>
<HR>
<H1><A NAME="thanks">THANKS</A></H1>
<P>Below are a list of the people that have contributed in some way to this module (no particular order):</P>
<PRE>
( run in 0.583 second using v1.01-cache-2.11-cpan-5c0b1e786e0 )