loadNet ("encoder.net")
loadPattern ("encoder.pat")
initNet ()
while(TRUE)
for i := 1 to 500 do
trainNet ()
endfor
resfile := "test.res"
saveResult (resfile, 1, PAT, FALSE, TRUE, "create")
saveNet("enc1.net")
command := "analyze -s -e WTA -i " + resfile + " | analyze.gawk"
execute(command, w, r, u, e)
print("wrong: ",w, " right: ",r, " unknown: ",u, " error: ",e)
if(right == 100) break
endwhile
