home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / DRS.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.8 KB  |  50 lines

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