home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / DBD.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.9 KB  |  53 lines
  1. csv3.1        !file format is Control Strategy Version 3.1
  2. ! Jun 04 1990  (dbd.nnc)  Delta-Bar-Delta Network
  3. ! Tim Graettinger, NeuralWare Inc.
  4. !************************************************************************
  5. !*                                    *
  6. !*    Delta-Bar-Delta Network Control Strategy            *
  7. !*                                    *
  8. !************************************************************************
  9. !
  10. !MASK     label    op-code    operands    comment
  11. L_saR_sa    trace    aux3        !  0 set trace option to aux3
  12. L_saR_sa    optclr    op:bknc        !  1 do not BKp to PEs w/o conns
  13. Li_aR_sa    cset    recall,0    !  2 recall count
  14. !
  15. ! Get input (learn and recall) and desired output (learn only)
  16. !
  17. L_saR_sa    lset    in        !  3 input layer
  18. L___R_sa    io    read        !  4 get input data (recall)
  19. L_saR___    io    lrnin        !  5 get input data (learn)
  20. L_saR_sa    lset    out        !  6 output layer
  21. L_saR___    io    lrnout        !  7 get desired output (learn)
  22. L___R_sa    io    rcltst        !  8 get desired output (test)
  23. !
  24. ! Start with the first layer for a forward pass through network
  25. !
  26. L_saR_sa    lset    in        !  9 input layer
  27. L___R_sa @rloop    math    sum|tran|output|e=0|fire !10 no noise, force fire (tjg)
  28. L_saR___    math    sum|tran|output|e=0|fire !11 no noise (tjg)
  29. L_saR_sa    lset    cur,1        ! 12 next layer
  30. L_saR_sa    lcmp    out        ! 13 at output layer ?
  31. L_saR_sa    blt    @rloop        ! 14 loop till done
  32. !
  33. ! Compute final outputs
  34. !
  35. L___R_sa    math    sum|ce=e|tran|output|e-=w|swap|fire !15 no noise; fire
  36. L_saR___    math    sum|tran|output|e-=w|e*=ef|fire !16 no noise (tjg)
  37. !L_saR___    math    i=e|e=ce    ! 17 des. out in sum field - omit(tjg)
  38. !
  39. ! Write results to userio
  40. !
  41. L___R_sa    io    write        ! 18 recall
  42. L_saR___    io    lrnrslt        ! 19 learn
  43. !
  44. ! Learn cycle - back propagate error.  Store unscaled error in
  45. ! current error field.
  46. !
  47. L_saR___    lset    out        ! 20 set output layer
  48. L_saR___ @lloop    math    ce=e|e*=f'|backp|learn|fire ! 21
  49. L_saR___    lset    cur,-1        ! 22 previous layer
  50. L_saR___    lcmp    in        ! 23 at input layer ?
  51. L_saR___    bgt    @lloop        ! 24 loop till done
  52. LisaRisa    trace    0        ! 27 turn off any trace function
  53.