home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / BAM.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  2.7 KB  |  62 lines
  1. csv3.0    ! Control Strategy Version
  2. !************************************************************************
  3. !*                                    *
  4. !*    BAM Network Control Strategy                    *
  5. !*                                    *
  6. !*    This control strategy assumes the following layers,        *
  7. !*    geometrically positioned from bottom to top of the screen:    *
  8. !*                                    *
  9. !*    layer 0:    Input Buffer                    *
  10. !*    layer 1:    BAM 1 Layer ( same size as input buffer )    *
  11. !*    layer 2:    BAM 2 Layer ( same size as output buffer )    *
  12. !*    layer 3:    Output Buffer                    *
  13. !*                                    *
  14. !*    Optionally there can be one or more preprocessing layers    *
  15. !*    between layer 0 and layer 1                    *
  16. !************************************************************************
  17. !
  18. LisaRisa   trace    aux3            !  0 set trace option
  19. L_saRi_a   cset     recall,1            !  1 recall counter
  20. L_saRi_a   lset     in,0            !  2 input layer
  21. L___Ri_a   io       read            !  3 Read input for recall
  22. L_saR___   io       lrnin            !  4 Read learn input
  23. @LAB_000
  24. L_saR___   math     fire|sum|lnoise|tran|output    !  5 Do learn pre-processing
  25. L___Ri_a   math     fire|sum|rnoise|tran|output    !  6 Do recall pre-processing
  26. L_saRi_a   lset     cur,1            !  7 Next layer
  27. L_saRi_a   lcmp     out,-2            !  8 At BAM 1 layer?
  28. L_saRi_a   blt      @LAB_000            !  9 No
  29. L___Ri_a   math     set|fire|tran|output    ! 10 Initialize BAM 1 layer
  30. L___Ri_a   lset     cur,1            ! 11 BAM 2 layer
  31. L___Ri_a   math     set|fire|tran|output    ! 12 Initialize BAM 2 layer
  32. LisaRisa   lset     out,-2            ! 13 BAM 1 layer
  33. @LAB_002
  34. L___R_sa   cadd     recall,1            ! 14 Increment recall ctr
  35. L___R_sa   lset     cur,1            ! 15 BAM 2 layer
  36. L___R_sa   math     sum|rnoise|tran|output    ! 16 Neurate
  37. L___R_sa   io       wrstep            ! 17 Write out interim results
  38. L___R_sa   fcmp     lflag,36            ! 18 End of recall?
  39. L___R_sa   banz     @LAB_001            ! 19 Yes, jump out
  40. L___R_sa   lset     cur,-1            ! 20 BAM 1 layer
  41. L___R_sa   math     sum|rnoise|tran|output    ! 21 Neurate
  42. L___R_sa   io       wrstep            ! 22 Write out interim results
  43. L___R_s_   eos                      ! 23 End of step
  44. L___R_sa   brct     @LAB_002            ! 24 Go to next step
  45. @LAB_001
  46.  
  47. ! Learn
  48.  
  49. L_saR___   math     set|fire|lnoise|tran|output|e=w ! 25 Init BAM 1 layer
  50. L_saR___   lset     cur,1            ! 26 BAM 2 layer
  51. L_saR___   math     set|fire|lnoise|tran|output|e=w ! 27 Initialize BAM 2 layer
  52. L_saR___   lset     cur,-1            ! 28 BAM 1 layer
  53. L_saR___   math     fire|learn            ! 29 Learn on BAM 1 layer
  54. L_saR___   lset     cur,1            ! 30 BAM 2 layer
  55. L_saR___   math     fire|learn            ! 31 Learn on BAM 2 layer
  56.  
  57. L_saR_sa   lset     out,0            ! 32 Output layer
  58. L_saR_sa   math     fire|sum|tran|output    ! 33 Generate final output
  59. L___R_sa   io       write            ! 34 Tell the outside world
  60. L_saR___   io       lrnrslt            ! 35 And for learn
  61. LisaRisa   trace    0                ! 36 Turn off trace
  62.