basmaths.bas

vb做的摄像头程序

Attribute VB_Name = "basMaths"
Option Explicit


Public Type RGBthingy
  Value As Long
End Type

Public Type RGBpoint
  Red As Byte
  Green As Byte
  Blue As Byte
End Type


Public Function Acos(x As Single) As Single
  If (Abs(x) >= 1) Then
    x = 0.9999 * (x / Abs(x))
  End If
  Acos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
End Function


Public Function function_Gaussian(Distance As Single, width As Single) As Single
'returns a gaussian normal distribution
  function_Gaussian = Exp(-(Distance ^ 2) / (2 * (width ^ 2)))
End Function


Public Function function_sigmoid(x As Single) As Single
  function_sigmoid = (1# / (1# + Exp(-x)))
End Function