home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / SPR.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  2.3 KB  |  58 lines
  1. csv3.1        !file format is Control Strategy Version 3.1
  2. !18:08 16-Sep-89  (spr.nnc)  Spatio-Temporal Pattern Recoginition
  3. !************************************************************************
  4. !*                                    *
  5. !*    Spatio-Temporal Pattern Recognition Control Strategy        *
  6. !*                                    *
  7. !************************************************************************
  8. !
  9. !    *** Recall ***
  10. !
  11. !MASK     label    op-code    operands    comment
  12. L_saR_sa    trace    aux3        !  0 set trace option to aux3
  13. L_saR_sa    cset    recall,1    !  1 recall count
  14. L_saR_sa    lset    in        !  2 input layer
  15. L___R_sa    io    read        !  3 get input data
  16. L_saR___    io    lrnin        !  4 learning input
  17. L___R_sa @rloop    math    fire|sum    !  5 sum (for normalization)
  18. L___R_sa    math    fire|rnoise|tran!  6 compute transfer function
  19. L___R_sa    math    fire|output    !  7 and output
  20. L___R_sa    lset    cur,1        !  9 next layer
  21. L___R_sa    lcmp    out        !  8 at output layer ?
  22. L___R_sa    blt    @rloop        ! 10 loop till done
  23. L___R_sa    io    rcltst        ! 11 Test target data
  24. L___R_sa    math    fire|sum|ce=e|tran|output|e-=w|swap !12
  25. L___R_sa    io    write        ! 13 write results
  26. L___R_sa    br    @exit        ! 14 skip to end
  27. !
  28. !    *** Learning ***
  29. !
  30. !MASK     label    op-code    operands    comment
  31. L_saR___    lset    in        ! 15 clear out error field
  32. L_saR___ @lce    math    fire|ce=e|e=0    ! 16 set ce=error; error=0
  33. L_saR___    lset    cur,1        ! 17 next layer
  34. L_saR___    lcmp    out        ! 18 done yet?
  35. L_saR___    blt    @lce        ! 19 no
  36.  
  37. L_saR___    lset    out        ! 20 back-propagate error
  38. L_saR___    io    lrnout        ! 21 get desired output
  39. L_saR___ @lbkp    math    fire|backp    ! 22 back-propagate error1
  40. L_saR___    lset    cur,-1        ! 23 previous layer
  41. L_saR___    lcmp    out,-4        ! 24 done?
  42. L_saR___    bgt    @lbkp        ! 25 no, keep going
  43.  
  44. L_saR___    lset    in        ! 26 start at input layer
  45. L_saR___ @lloop fcmp    learnf,ll:spr    ! 27 see if SPR learning rule
  46. L_saR___    bne    @llstd        ! 28 no, standard
  47. L_saR___    math    fire|set    ! 29 SPR, force sum=prior PE's output
  48. L_saR___    br    @llcom        ! 30 skip to common
  49. L_saR___ @llstd    math    fire|sum    ! 31 clear error & output
  50. L_saR___ @llcom    math    fire|tran    ! 32 perform tran function
  51. L_saR___    math    fire|output|learn ! 33 finish up math
  52. L_saR___    lset    cur,1        ! 34 next layer
  53. L_saR___    lcmp    out        ! 35 at output layer ?
  54. L_saR___    blt    @lloop        ! 36 loop till done
  55. L_saR___    math    fire|sum|tran|output|learn ! 37 output layer
  56. L_saR___    io      lrnrslt        ! 38 send output to userio
  57. LisaRisa @exit    trace    0        ! 39 turn off any trace function
  58.