basmain.bas

遗传算法和神经网络的结合应用

Attribute VB_Name = "basMain"
Option Explicit

Public Function N(max As Single) As Single
'produces a normalised (gaussian) random value between 0 and max
  Dim nval As Single

  nval = (Rnd - 0.5) * max
  N = nval * Abs(nval)
End Function