home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / BKPFAST.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  2.7 KB  |  69 lines
  1. csv3.1        !file format is Control Strategy Version 3.1
  2. ! Dec-88  (bckfast.nnc)  Fast Back Propagation Network
  3. !************************************************************************
  4. !*                                    *
  5. !*    Fast Back Propagation Network Control Strategy            *
  6. !*    Similar to backprop except that calculated error is        *
  7. !*    added to output prior to delta weight calculation.        *
  8. !*    Suggested by Tariq Samad of Honeywell SSDC, 1000 Boone Ave. N.,    *
  9. !*    Golden Valley, MN 55427.  See abstract from INNS 1988        *
  10. !*    conference proceedings.                        *
  11. !*                                    *
  12. !************************************************************************
  13. !
  14. !MASK     label    op-code    operands    comment
  15. L_saR_sa    trace    aux3            !  0 set trace option to aux3
  16. L_saR_sa    optset    op:bknc            !  1 back prop to Input PEs
  17. Li_aR_sa    cset    recall,1        !  2 recall count
  18. !
  19. ! Get input (learn and recall) and desired output (learn only)
  20. !
  21. L_saR_sa    lset    in            !  3 input layer
  22. L___R_sa    io    read            !  4 get input data (recall)
  23. L_saR___    io    lrnin            !  5 get input data (learn)
  24. L_saR_sa    lset    out            !  6 output layer
  25. L_saR___    io    lrnout            !  7 get desired output (learn)
  26. L___R_sa    io    rcltst            !  8 get desired output (test)
  27. !
  28. ! Start with the first layer for a forward pass through network
  29. !
  30. L_saR_sa    lset    in            !  9 input layer
  31. L___R_sa @rloop    math    sum|rnoise|tran|output|e=0 ! 10
  32. L_saR___    math    sum|lnoise|tran|output|e=0|fire ! 11
  33. L_saR_sa    lset    cur,1            ! 12 next layer
  34. L_saR_sa    lcmp    out            ! 13 at output layer ?
  35. L_saR_sa    blt    @rloop            ! 14 loop till done
  36. !
  37. ! Compute final outputs
  38. !
  39. L___R_sa    math    sum|rnoise|ce=e|tran|output|e-=w|swap  !15 Recall
  40. L_saR___    math    sum|lnoise|tran|output|e-=w|e*=ef|fire ! 16 learn
  41. !
  42. ! Write results to userio
  43. !
  44. L___R_sa    io    write            ! 17 recall
  45. L_saR___    io    lrnrslt            ! 18 learn
  46. !
  47. ! Learn cycle - back propagate error.  Store unscaled error in
  48. ! current error field.
  49. ! Modify output of processing elements with error
  50. !
  51. L_saR___    lset    out            ! 19 start with output layer
  52. L_saR___    math    ce=e|e*=f'|backp|fire    ! 20 process output layer
  53. L_saR___    br    @skip            ! 21 skip regression
  54. L_saR___ @loopa    math    ce=e|e*=f'|backp|fire    ! 22 scale error & back prop
  55. L_saR___    math    regress|fire        ! 23 add error to tran
  56. L_saR___    math    output|fire        ! 24 update output
  57. L_saR___ @skip    lset    cur,-1            ! 25 previous layer
  58. L_saR___    lcmp    in            ! 26 at input layer ?
  59. L_saR___    bgt    @loopa            ! 27 loop till done
  60. L_saR___    lset    out            ! 28 set output layer
  61. !
  62. ! Update weights with "corrected" outputs
  63. !
  64. L_saR___ @loopb    math    learn|fire        ! 29 learn based on updated outputs
  65. L_saR___    lset    cur,-1            ! 30 previous layer
  66. L_saR___    lcmp    in            ! 31 at input layer ?
  67. L_saR___    bgt    @loopb            ! 32 loop till done
  68. LisaRisa    trace    0            ! 33 turn off any trace function
  69.