home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / BKPPRUNE.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  2.1 KB  |  57 lines
  1. csv3.1        !file format is Control Strategy Version 3.1
  2. ! Sep 90  (bkpprune.nnc)  Back Propagation Network (recurrent)
  3. !************************************************************************
  4. !*                                    *
  5. !*    Back Propagation Network Control Strategy            *
  6. !*                                    *
  7. !************************************************************************
  8. !
  9. ! 08-Sep-90 re-done.  Allows for recurrent connections in hidden layer
  10. !    by delaying output of hidden PEs until all outpus are computed.
  11. !    Likewise, delays learning until error is back-propagated.
  12. !
  13. !MASK     label    op-code    operands    comment
  14. L_saR_sa    trace    aux3        !  0 set trace option to aux3
  15. L_saR_sa    optclr    op:bknc        !  1 do not BKp to PEs w/o conns
  16. Li_aR_sa    cset    recall,0    !  2 recall count
  17. !
  18. ! Get input (learn and recall) and desired output (learn only)
  19. !
  20. L_saR_sa    lset    in        !  3 input layer
  21. L___R_sa    io    read        !  4 get input data (recall)
  22. L_saR___    io    lrnin        !  5 get input data (learn)
  23. L_saR_sa    lset    out        !  6 output layer
  24. L_saR___    io    lrnout        !  7 get desired output (learn)
  25. L___R_sa    io    rcltst        !  8 get desired output (test)
  26. !
  27. ! Start with the first layer for a forward pass through network
  28. !
  29. L_saR_sa    lset    in        !  9 input layer
  30. L___R_sa @rloop    math    sum|rnoise|tran|e=0 ! 10
  31. L_saR___    math    sum|lnoise|tran|e=0|fire ! 11
  32. L_saR_sa    math    output|fire    ! 12 delayed output for recurrence
  33. L_saR_sa    lset    cur,1        ! 13 next layer
  34. L_saR_sa    lcmp    out        ! 14 at output layer ?
  35. L_saR_sa    blt    @rloop        ! 15 loop till done
  36. !
  37. ! Compute final outputs
  38. !
  39. L___R_sa    math    sum|rnoise|tran|output|e-=w  !16 Recall
  40. L_saR___    math    sum|lnoise|tran|output|e-=w|e*=ef|fire ! 17 learn
  41. !
  42. ! Write results to userio
  43. !
  44. L___R_sa    io    write        ! 18 recall
  45. L_saR___    io    lrnrslt        ! 19 learn
  46. !
  47. ! Learn cycle - back propagate error.  Store unscaled error in
  48. ! current error field.
  49. !
  50. L_saR___    lset    out        ! 20 set output layer
  51. L_saR___ @lloop    math    ce=e|e*=f'|backp|fire ! 21
  52. L_saR___     math    learn|fire    ! 22 delayed learning for recurrence
  53. L_saR___    lset    cur,-1        ! 23 previous layer
  54. L_saR___    lcmp    in        ! 24 at input layer ?
  55. L_saR___    bgt    @lloop        ! 25 loop till done
  56. LisaRisa    trace    0        ! 26 turn off any trace function
  57.