basmain.bas

来自「遗传算法和神经网络的结合应用」· BAS 代码 · 共 12 行

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