module1.bas

来自「Hopfield 网——擅长于联想记忆与解迷路 实现H网联想记忆的关键」· BAS 代码 · 共 19 行

Attribute VB_Name = "Module1"
Public patternnumber As Integer             '模式数
Public neuralnumber As Integer              '神经元数
Public rownumber As Integer                 '行
Public linenumber As Integer                '列
Public learnnumber As Integer                '学习次数
Public randomnumber As Integer                '学习次数
Public Net() As Integer                     '神经网络
Public weights() As Integer                     '神经网络



Public Function InitializeRandoms() _
   As Integer                           '初始化随机数
Randomize
randomnumber = (prepare.neuralnumber + 1) * Rnd
End Function