view release on metacpan or  search on metacpan

lib/Net/MachineLearning/Sample.pm  view on Meta::CPAN

    my $ix = int rand(10);
    my %scores;

    open my $fd,"$module_dir/weights.json" or die $!;
    my $json = <$fd>;
    close $fd;

    my $wht = from_json($json);

    my $myImage = newFromPng GD::Image("$module_dir/gray-$ix.png",0);
    my $pointer = 0;

    for my $column (0..9) {
        for my $row (0..9) {
            my $index = $myImage->getPixel($row,$column);

            for my $num (0..9) {
                my $weight = $wht->{$num}->[$pointer];
                $scores{$num}  += $weight * (255 - $index);
            }

lib/Net/MachineLearning/get_weights.pl  view on Meta::CPAN

use strict;
use JSON;
use GD;

my %wht;
for my $ix (0..9) {
    my $myImage = newFromPng GD::Image("gray-$ix.png",0);
    my @weights;

    # 10x10 image
    for my $column (0..9) {
    	for my $row (0..9) {
            my $index = $myImage->getPixel($row,$column);
    		my $weight = 255 - $index;
    		push @weights,$weight;
        }
    }