Thanks. I inserted a feedback indicating when something was demonstrably wrong. After running the feedback pattern once it produced the correct data. I was under the impression that the learn function should perform "off-line" learning. With the feedback aren't I performing "on-line" learning?

I tried adding the problem pattern as the last pattern in its training pattern... but it still fails to identify 1 as an odd number the first time it encounters it. After this it identifies all the evens and odds correctly. Is it possible to set this up to learn what it needs in the initial training set? 

    my $answer = $$result[0];
    if ( ($answer == 1) && ( $i % 2 != 0) ) {
           print "Got it wrong!\n";
           #Learn the pattern
           $net->learn(\@bit,[0]);
           $i=-1; # Start over
    }
    print "$answer\n";

[download]
Results 
Testing 0   0 0 0 0 0 -> 1
Testing 1   0 0 0 0 1 -> Got it wrong!
1
Testing 0   0 0 0 0 0 -> 1
Testing 1   0 0 0 0 1 -> 0
Testing 2   0 0 0 1 0 -> 1
Testing 3   0 0 0 1 1 -> 0
Testing 4   0 0 1 0 0 -> 1
Testing 5   0 0 1 0 1 -> 0
Testing 6   0 0 1 1 0 -> 1
Testing 7   0 0 1 1 1 -> 0
Testing 8   0 1 0 0 0 -> 1
Testing 9   0 1 0 0 1 -> 0
Testing 10   0 1 0 1 0 -> 1
Testing 11   0 1 0 1 1 -> 0
Testing 12   0 1 1 0 0 -> 1
Testing 13   0 1 1 0 1 -> 0
Testing 14   0 1 1 1 0 -> 1
Testing 15   0 1 1 1 1 -> 0
Testing 16   1 0 0 0 0 -> 1

[download]

In reply to Re: Re: AI NEWBIE -- Neural Net problem/question... um Tutorial request?? :) by talwyn
in thread AI NEWBIE -- Neural Net problem/question... um Tutorial request?? :) by talwyn

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.