home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / LVQ.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.6 KB  |  47 lines
  1. csv3.1        !file format is Control Strategy Version 3.1
  2. !19:30 21-Jun-88  (lvq.nnc)  Linear Vector Quantization Network
  3. !************************************************************************
  4. !*                                    *
  5. !*    Linear Vector Quantization Network Control Strategy        *
  6. !*                                    *
  7. !************************************************************************
  8. !
  9. !    *** Recall ***
  10. !
  11. !MASK     label    op-code    operands    comment
  12.  
  13. L_saR_sa    trace    aux3        !  set trace option to aux3
  14. L_saR_sa    cset    recall,1    !  recall count
  15. L___R_sa    lset    in        !  input layer
  16. L___R_sa    io    read        !  get input data
  17.  
  18. L___R_sa    lset    cur,1        !  go to Kohonen layer
  19. L___R_sa    math    sum|output|fire    !  determine Kohonen winner
  20.  
  21. L___R_sa    lset    out        !  go to output layer
  22. L___R_sa    io    rcltst        !  Desired Output (Test)
  23. L___R_sa    math    sum|tran|output|ce=e|e-=w|swap|fire    !  set output vector - assume standard sum
  24.  
  25. L___R_sa    io    write        !  write results
  26. L___R_sa    br    @exit        !  skip to end
  27. !
  28. !    *** Learning ***
  29. !
  30. L_saR___    lset    in        !  start at input layer
  31. L_saR___    io    lrnin        !  get input data
  32.  
  33. L_saR___    lset    cur,1        !  go to Kohonen layer
  34. L_saR___    math    e=0        !  set error to 0
  35.  
  36. L_saR___    lset    out        !  go to output layer
  37. L_saR___    io    lrnout        !  get output data
  38. L_saR___    math    backp        !  back-propagate the category
  39.  
  40. L_saR___    lset    cur,-1        !  go to Kohonen layer
  41. L_saR___    math    sum|output|fire    !  determine kohonen winner
  42. L_saR___    math    learn        !  updates weights
  43. L_saR___    lset    out        !  go to output layer
  44. L_saR___    math    sum|tran|output|ce=e|e-=w|swap|fire    !  set output and current error
  45.  
  46. LisaRisa @exit    trace    0        !  turn off any trace function
  47.