#!/usr/bin/perl

$wts = "digits.30000.wts";

#i can't seem to get the options for the origional run right...
#easier just to do the first run in xtlearn, then run the script...
#`tlearn -f digits -s 100000 -R -H 2 -B 0.0`;
`tlearn -f digits -s 240 -l $wts -P > digits.h`;
`tlearn -f digits -s 240 -l $wts -V > digits.o`;

`./recognized.pl digits.o .8 > res.percent`;
`./cluster digits.h digits.labels > res.cluster`;

`cp digits.cf $ARGV[0]`;
`cp $wts $ARGV[0]`;
`mv digits.h $ARGV[0]`;
`mv digits.o $ARGV[0]`;
`mv res.* $ARGV[0]`;


__DATA__
open DIN, "digits.h" or die;
open DOUT, ">digits.ht" or die;
<DIN>;
<DIN>;
while(<DIN>)
{
    print DOUT;
}
close DIN or die;
close DOUT or die;
`rm digits.h`;
`mv digits.ht digits.h`;