home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / SOM_CAT.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.9 KB  |  51 lines
  1. csv3.1        !file format is Control Strategy Version 3.1
  2. !4-Sep-90  (somclass.nnc)  Self Organizing Map to Widrow-Hoff Output
  3. !************************************************************************
  4. !*                                    *
  5. !*       Self-Organizing Map for Classification Control Strategy        *
  6. !*                                    *
  7. !************************************************************************
  8. !
  9. !    *** Recall ***
  10. !
  11. !MASK     label    op-code    operands    comment
  12. L_saR_sa    trace    aux3        !  set trace option to aux3
  13. L_saR_sa    cset    recall,1    !  recall count
  14. L___R_sa    lset    in,0        !  input layer
  15. L___R_sa    io    read        !  get input data
  16. L___R_sa     math    sum        !  perform sum 
  17. L___R_sa    math    rnoise|tran|output ! result of input layer
  18. L___R_sa    lset    cur,1        !  next layer, 2D Kohonen layer
  19. L___R_sa    cset    wrk1,0        !  set wrk1=0, for SOM learn flag
  20. L___R_sa     math    sum|output|fire    !  get min euclid dist
  21. L___R_sa     lset    cur,1        !  next layer, categorization layer
  22. L___R_sa    io    rcltst
  23. L___R_sa    math    rnoise|ce=e|sum|tran|output|e-=w|swap|fire  !  cat. layer output
  24. L___R_sa    io    write        !  write results
  25. L___R_sa    br    @exit        !  skip to end
  26. !
  27. !    *** Learning ***
  28. ! 
  29. L_saR__        cset    wrk1,1        !  set wrk1=1, for SOM learn flag
  30. L_saR___    lset    in        !  start at input layer
  31. L_saR___    io    lrnin        !  get input data
  32. L_saR___       lset     out,0        !  go to output layer
  33. L_saR___       io       lrnout        !  get output data
  34. L_saR___       lset     in        !  back to input layer
  35.  
  36. L_saR___     math    sum|lnoise|tran|output  ! result of input layer
  37. L_saR___    lset    cur, 1        !  2D Kohonen layer
  38. L_saR___    math    sum|output|fire    ! sum does Euclidean distance, bias
  39.                     ! for conscience
  40. L_saR___    math    learn|fire    ! update wts & freq
  41. L_saR___    lset    cur,1        ! move to output (class.) layer
  42. L_saR___       math     fire|sum|ce=e|lnoise|tran|output|e-=w|learn
  43. L_saR___       math     swap
  44. L_saR___       io       lrnrslt
  45. !
  46. !    Tidy up, and tell what actually happened
  47. !
  48. L_saR___    io    lrnrslt        !  tell userio what happened
  49. LisaRisa @exit    trace    0        !  turn off any trace function
  50.  
  51.