home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 1.ddi / HOPFIELD.INS < prev    next >
Encoding:
Text File  |  1991-08-28  |  2.7 KB  |  110 lines
  1. inst4.0        !01-Jun-88  (hopfield.ins)  Hopfield Network Builder
  2. !****************************************************************
  3. !*                                *
  4. !*    Hopfield Network Generator                *
  5. !*                                *
  6. !****************************************************************
  7.  
  8. !    *** check that input PE count is non-zero
  9.  
  10. ?&In    1
  11. >bge    CheckOut
  12. @Err    "Hopfield MUST have at least one input PE"
  13. :CheckOut
  14.  
  15. !    *** Load the Control Strategy and LRS if needed
  16.  
  17. @LdCS    "hopfield"        !control strategy
  18. @LdLR    "hopfield"        !L/R schedule
  19.  
  20. =netn    "InstaNet (tm) Hopfield Network version 2.00 01-Jun-89"
  21. =DLnF    0            !learn  re-display off
  22. =DRcF    0            !recall re-display off
  23.  
  24. !    *** Build the Input Layer ***
  25.  
  26. @LLdf                !load default layer to mi_layer structure
  27. =LDln    "In"            !layer name
  28. =Lpes    &In            !copy # of input PEs from menu
  29. =Ltrn    "StepFunction"        !transfer function
  30. =x    100            !place to put layer on screen
  31. =y     50
  32. #Incl    "stdnwgtf.iif"        !standard # weight fields
  33. @LAdd                !add the input layer
  34. =n0    LayN            !track previous layer
  35.  
  36. !    *** Build the Hopfield Layer ***
  37.  
  38. @LLdf                !start with default layer again
  39. =LDln    "Hopfield"        !layer name
  40. =Lpes    &In            !desired number of PEs
  41. =Ltrn    "StepFunction"        !transfer function
  42. =Llrn    "Hopfield"        !learning rule
  43. =LInL    0.0            !low initialization limit
  44. =LInH    0.0            !high initialization limit
  45. +y    170            !up higher on display
  46. #Incl    "stdnwgtf.iif"        !standard # weight fields
  47. @LAdd
  48.  
  49. !    *** Connect it to the input layer ***
  50.  
  51. =SPEl    LayN            !current layer
  52. @SlPE
  53. =NPEl    n0            !input layer
  54. @NrPE
  55. =cnwt    1.0            !unit weight
  56. =cnsc    WRel
  57. =cnty    WSet
  58. @LCCr                !connect corresponding items
  59.  
  60. !    *** Connect it to itself ***
  61.  
  62. =NPEl    LayN
  63. @NrPE
  64. =cnwt    0.0            !zero weights
  65. =cnty    WVar            !trainable
  66. =cnsc    WAbs
  67. @LCFl                !fully connect (except diagonal)
  68. =n0    LayN            !track previous layer
  69.  
  70. !    *** Build the Output Layer ***
  71.  
  72. @LLdf                !start with default layer again
  73. =LDln    "Output"        !layer name
  74. =Lpes    &In            !desired number of PEs
  75. +y    60            !up higher on display
  76. #Incl    "stdnwgtf.iif"        !standard # weight fields
  77. @LAdd
  78. =n7    LayN            !save for stdprobe
  79.  
  80. !    *** Connect the output layer back to the hopfield layer ***
  81.  
  82. =SPEl    LayN            !select output layer
  83. @SlPE
  84. =cnwt    1.0            !unit weight
  85. =cnty    WFix            !fixed
  86. =cnsc    WRel
  87. @LCCr
  88.  
  89. !    *** Select Control Strategy & L/R Schedule ***
  90.  
  91. @LLsl                !load super layer
  92. =Lctl    "hopfield"        !control strategy
  93. =Llrs    "hopfield"        !L/R Schedule
  94. =Llnn    "hopfield"        !name of learn input
  95. =Lrcn    "hopfield"        !name of recall output
  96. +Lflg    LAAs            !auto-associative
  97. =Lscl     0            !input  low-value
  98. =Loff     1            !input  high-value
  99. =Llow     0            !output low-value
  100. =Lhgh     1            !output high-value
  101. @SVsl                !save it back
  102. !
  103. =n5    0.0
  104. =n6    1.0
  105. =n4    &In
  106. #Incl    "stdprobe.iif"        !Standard probe include file
  107. !
  108.  
  109. @EOF
  110.