#loadNet ("win17-17x5rf1relu-1x20rf17relu-1x6rf1relu-1x3rf1sig.net")
loadNet ("best.net")
loadPattern ("/home/reczko/snns/tra.pat")
loadPattern ("/home/reczko/snns/val.pat")
resfile := "test.res"
setSeed(4711)

 setPattern ("/home/reczko/snns/tra.pat")

 saveResult (resfile, 1, PAT, FALSE, TRUE, "create")
 command := "/home/reczko/snns/SNNSoS-0.1/SNNSv4.3/tools/sources/analyze -s -e WTA -i " + resfile + " | awk -f /home/reczko/snns/SNNSoS-0.1/SNNSv4.3/tools/sources/analyze.gawk"
 execute(command, w, r, u, e)
 print("tra-set wrong: ",w, " right: ",r, " unknown: ",u, " error: ",e)

 setPattern ("/home/reczko/snns/val.pat")
#testNet ()
 saveResult (resfile, 1, PAT, FALSE, TRUE, "create")
 command := "/home/reczko/snns/SNNSoS-0.1/SNNSv4.3/tools/sources/analyze -s -e WTA -i " + resfile + " | awk -f /home/reczko/snns/SNNSoS-0.1/SNNSv4.3/tools/sources/analyze.gawk"
 execute(command, w, r, u, e)
 print("ep: ",ep, " wrong: ",w, " right: ",r, " unknown: ",u, " error: ",e)

