home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e065 / 1.ddi / RECIRC.INS < prev    next >
Encoding:
Text File  |  1991-08-28  |  3.7 KB  |  143 lines
  1. inst4.0        ! 14-Sept-88  (recirc.ins) Recirculation Network Builder
  2. !****************************************************************
  3. !*                                *
  4. !*    Recirculation Network Generator                *
  5. !*                                *
  6. !****************************************************************
  7.  
  8. !    *** check that input / output PE count is non-zero
  9.  
  10. ?&In    1
  11. >bge    CheckHid
  12. @Err    "Recirculation Network MUST have at least one input PE"
  13. :CheckHid
  14. ?&Hd1    1
  15. >bge    HidOK
  16. @Err    "Recirculation Network MUST have at least one hidden PE"
  17. :HidOK
  18.  
  19. !    *** Load the Control Strategy and LRS if needed
  20.  
  21. @LdCS    "recirc"        !control strategy
  22. @LdLR    "recirc"        !L/R schedule
  23.  
  24. =netn    "InstaNet (tm) Recirculation Network version 1.00 26-08-88"
  25. =DLnF    0            !learn  re-display off
  26. =DRcF    0            !recall re-display off
  27.  
  28. !    *** Build the Input Layer ***
  29.  
  30. @LLdf                !load default layer to mi_layer structure
  31. =LDln    "In"            !layer name
  32. =Lpes    &In            !copy # of input PEs from menu
  33. =x    100            !place to put layer on screen
  34. =y     60
  35. #Incl    "stdnwgtf.iif"        !standard # weight fields
  36. @LAdd                !add the input layer
  37.  
  38. !    *** Build the Visible layer ***
  39.  
  40. @LLdf                !start with default layer again
  41. =LDln    "Visible"        !layer name
  42. =Lpes    &In            !copy # of input PEs from menu
  43. =Ltrn    "Sigmoid"        !transfer function - could also be linear
  44. =Llrn    "Cum-Delta-Rule"    !Cumulative delta
  45. +y    60            !up higher on display
  46. #Incl    "stdnwgtf.iif"        !standard # weight fields
  47. @LAdd
  48.  
  49. !    *** Connect Visible Layer to Input Layer ***
  50.  
  51. =SPEl    LayN            !current layer
  52. @SlPE                !select it as destination (sb already)
  53. =NPEl    0            !input layer
  54. @NrPE
  55. =cnwt    1.0            !connection weight
  56. =cnty    WSet            !set weights
  57. =cnsc    WAbs            !absolute
  58. @LCCr                !correspondingly connect to input layer
  59. =n0    LayN            !save current layer for later
  60.  
  61. !    *** Build the Hidden layer ***
  62.  
  63. @LLdf                !start with default layer again
  64. =LDln    "Hidden"        !layer name
  65. =Lpes    &Hd1            !Proper number of PEs
  66. =Ltrn    "Sigmoid"        !transfer function
  67. =Llrn    "Cum-Delta-Rule"    !Cumulative delta
  68. +y    60            !up higher on display
  69. #Incl    "stdnwgtf.iif"        !standard # weight fields
  70. @LAdd
  71.  
  72. !    *** Connect hidden layer to visible layer and bias
  73.  
  74. =cnwt    0.0            !zero weights to start
  75. =cnty    WVar            !variable
  76. =SPEl    LayN            !hidden destination
  77. @SlPE
  78. =NPEl    n0            !visible source
  79. @NrPE
  80. @LCFl                !visible layer to hidden layer
  81. =NPEl    -1            !Bias Source
  82. @NrPE
  83. @LCFl                !Bias to hidden
  84. =n1    LayN            !track hidden layer
  85.  
  86. !    *** Connect visible layer to hidden layer and bias
  87.  
  88. =cnwt    0.0            !zero weights to start
  89. =cnty    WVar            !variable
  90. =SPEl    n0            !visible destination
  91. @SlPE
  92. =NPEl    n1            !hidden source
  93. @NrPE
  94. @LCFl                !hidden layer to visible layer
  95. =NPEl    -1            !Bias Source
  96. @NrPE
  97. @LCFl                !Bias to visible
  98.  
  99. !    *** Build the output layer & connect it to visible layer ***
  100.  
  101. @LLdf                !load default layer to mi_layer structure
  102. =LDln    "Out"            !layer name
  103. =Lpes    &In            !copy # of input PEs from menu
  104. +y    70
  105. #Incl    "stdnwgtf.iif"        !standard # weight fields
  106. @LAdd                !add the output layer
  107. =n7    LayN            !save for stdprobe
  108. =SPEl    LayN            !output layer
  109. @SlPE
  110. =NPEl    n0            !Visible layer
  111. @NrPE
  112. =cnty    WFix
  113. =cnwt    1.0
  114. @LCCr
  115.  
  116. !    *** Select Control Strategy & L/R Schedule ***
  117.  
  118. @LLsl                !load super layer
  119. =Lctl    "recirc"        !control strategy
  120. =Llrs    "recirc"        !L/R Schedule
  121. =Llnn    "recirc"        !name of learn input
  122. =Lrcn    "recirc"        !name of recall output
  123. #Incl    "stdioset.iif"        !standard I/O settings
  124. =Lax1    &In            !nominal number of accumulations
  125. +Lflg    LAAs            !auto-associative network
  126. =Lscl     0            !input  low-value
  127. =Loff     1            !input  high-value
  128. =Llow     0            !output low-value
  129. =Lhgh     1            !output high-value
  130. @SVsl                !save it back
  131. !
  132. =n5    0.0
  133. =n6    1.0
  134. =n4    &In
  135. #Incl    "stdprobe.iif"        !Standard probe include file
  136. !
  137. =jogl    -.5            !lower limit for jog
  138. =jogh    +.5            !upper limit for jog
  139. =seed    257            !starting seed number
  140. @seed                !set the seed
  141. @Nrnd                !randomize the network
  142. @EOF
  143.