home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 4.ddi / TSP.NNC < prev    next >
Encoding:
Text File  |  1991-08-28  |  1.4 KB  |  40 lines
  1. csv2.1     ! Control Strategy Version 2.1
  2. !************************************************************************
  3. !*                                    *
  4. !*    Traveling Salesman Problem Control Strategy            *
  5. !*                                    *
  6. !************************************************************************
  7. !
  8. ! This control strategy assumes that the first layer above the input
  9. ! layer is the "hopfield" layer.  The layers beyond it are used to
  10. ! generate inhibitions.  The output layer is ONLY activated when needed.
  11.  
  12. L___Risa    trace    aux3
  13. L___Ri_a    cset    recall,1
  14. L___Ri_a    lset    in,0
  15. L___Ri_a    math    fire|sum|rnoise|tran|output    !input layer
  16. L___Ri_a    lset    in,1
  17. L___Ri_a    math    fire|set|tran|output    !hopfield layer
  18. L___R__a    br    @InhLp            !process forward
  19. !
  20. !   We are now positioned to the hopfield layer.  Process this through
  21. !   the output layer -1 repeatedly.
  22. !
  23. L___R_sa @Loop    lset    in,1            !hopfield layer
  24. L___R_sa    cadd    recall,1
  25. L___R_sa    math    sum|rnoise|tran
  26. L___R_sa    math    output
  27. L___R_sa    io    wrstep
  28. L___R_sa    fcmp    lflag,36
  29. L___R_sa    banz    @Done            !at end of LRS
  30. L___R_sa @InhLp    lset    cur,1            !compute inhibitions
  31. L___R_sa    math    fire|sum|tran|output    !full inhibition computation
  32. L___R_sa    lcmp    out,-1            !see if output layer next
  33. L___R_sa    blt    @InhLp            !finish computing inhibition
  34. L___R_s_    eos                !check for end of step
  35. L___R_sa    br    @Loop            !compute next hopfield iter
  36. L___R_sa @Done    lset    out,0
  37. L___R_sa    math    fire|sum|tran|output
  38. L___R_sa    io    write
  39. LisaRisa    trace    0
  40.