home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / SOM.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.4 KB  |  39 lines
  1. csv3.1        !file format is Control Strategy Version 3.1
  2. !4-Sep-90  (som.nnc)  Self Organizing Map 
  3. !************************************************************************
  4. !*                                    *
  5. !*       Self-Organizing Map 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        !  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    io    write        !  write results
  22. L___R_sa    br    @exit        !  skip to end
  23. !
  24. !    *** Learning ***
  25. ! 
  26. L_saR__        cset    wrk1,1        !  set wrk1=1, for SOM learn flag
  27. L_saR___    lset    in        !  start at input layer
  28. L_saR___    io    lrnin        !  get input data
  29. L_saR___     math    sum|lnoise|tran|output  ! result of input layer
  30. L_saR___    lset    cur, 1        !  2D Kohonen layer
  31. L_saR___    math    sum|output|fire    ! sum does Euclidean distance, bias
  32.                     ! for conscience
  33. L_saR___    math    learn|fire    ! update wts & freq
  34. !
  35. !    Tidy up, and tell what actually happened
  36. !
  37. L_saR___    io    lrnrslt        !  tell userio what happened
  38. LisaRisa @exit    trace    0        !  turn off any trace function
  39.