home *** CD-ROM | disk | FTP | other *** search
- csv3.1 !file format is Control Strategy Version 3.1
- ! 6-12-90 (drs.nnc) Directed Random Search Network
- !************************************************************************
- !* *
- !* Directed Random Search Control Strategy *
- !* *
- !************************************************************************
- !
- !MASK label op-code operands comment
- L_saR_sa trace aux3 ! 0 set trace option to aux3
- L_saR_sa optclr op:bknc ! 1 do not BKp to PEs w/o conns
- Li_aR_sa cset recall,0 ! 2 recall count
- !
- ! Get input (learn and recall) and desired output (learn only)
- !
- L_saR_sa lset in ! 3 input layer
- L___R_sa io read ! 4 get input data (recall)
- L_saR___ io lrnin ! 5 get input data (learn)
- L_saR_sa lset out ! 6 output layer
- L_saR___ io lrnout ! 7 get desired output (learn)
- L___R_sa io rcltst ! 8 get desired output (test)
- !
- ! Start with the first layer for a forward pass through network
- !
- L_saR_sa lset in ! 9 input layer
- L___R_sa @rloop math sum|tran|output|e=0|fire ! 10 std proc. (tjg)
- L_saR___ math sum|tran|output|e=0|fire ! 11 std proc. (tjg)
- L_saR_sa lset cur,1 ! 12 next layer
- L_saR_sa lcmp out ! 13 at output layer ?
- L_saR_sa blt @rloop ! 14 loop till done
- !
- ! Compute final outputs
- !
- L___R_sa math sum|ce=e|tran|output|e-=w|swap|fire !15 (tjg)
- L_saR___ math sum|tran|output|e-=w|fire !16 (tjg)
- !
- ! Write results to userio
- !
- L___R_sa io write ! 17 recall
- L_saR___ io lrnrslt ! 18 learn
- !
- ! Learn cycle - apply directed random search
- !
- L_saR___ lset out ! 19 set output layer
- L_saR___ @lloop math ce=e|learn|fire ! 20 apply drs learning (tjg)
- L_saR___ lset cur,-1 ! 21 previous layer
- L_saR___ lcmp in ! 22 at input layer ?
- L_saR___ bgt @lloop ! 23 loop till done
- LisaRisa trace 0 ! 24 turn off any trace function
-