#loadNet ("win17-20relu-10relu-5relu-1sig.net")
loadNet ("tmp.net")
loadPattern ("tra.pat")
loadPattern ("val.pat")
resfile := "test.res"
ep := 0
done := 0
lr := 0
setInitFunc( "Randomize_Weights", 0.05, -0.05)
#initNet ()
setLearnFunc( "Rprop", 0.01, 0.8, 6 )
repeat
 setPattern ("tra.pat")
 for i := 1 to 5 do
  trainNet ()
  print(SSE)
 endfor

 setPattern ("val.pat")
#testNet ()
 saveResult (resfile, 1, PAT, FALSE, TRUE, "create")
 command := "/home/reczko/doc/foukas/dat/foukas/snns/SNNSv4.3/tools/sources/analyze -s -e WTA -i " + resfile + " | awk -f /home/reczko/doc/foukas/dat/foukas/snns/SNNSv4.3/tools/sources/analyze.gawk"
 execute(command, w, r, u, e)
 print("ep: ",ep, " wrong: ",w, " right: ",r, " unknown: ",u, " error: ",e)
 saveNet("tmp.net")
 if ( (ep > 1) && (r < lr) ) then done := 1 endif
 ep := ep + 1
 lr := r
until ((done == 1) or (SIGNAL == 2))