utils.vb

来自「一个使用VB.Net开发的演示人工神经网络的程序」· VB 代码 · 共 34 行

Public Class Utils
    Public Const Pi As Double = Math.PI
    Public Const TwoPi As Double = Pi * 2
    Public Const RAND_MAX As Integer = &H7FFF
    Public Const HalfPi As Double = Pi / 2

    Private Shared r As New Random
    Public Shared Function RandInRange(ByVal x As Double, ByVal y As Double) As Double
        Return x + RandFloat() * (y - x)
    End Function

    Public Shared Function RandFloat() As Double
        Return r.NextDouble '/ (RAND_MAX + 1.0)
    End Function

    '//returns a random double in the range -1 < n < 1
    Public Shared Function RandomClamped() As Double
        Return RandFloat() - RandFloat()
    End Function

    Public Shared Function isEqual(ByVal a As Double, ByVal b As Double) As Boolean
        If (Math.Abs(a - b) < 0.000000000001) Then
            Return True
        End If

        Return False
    End Function

    Public Shared Function RandInt(ByVal x As Integer, ByVal y As Integer) As Integer
        Return r.Next Mod (y - x + 1) + x
    End Function

 End Class