我想了解Adaline神经元的工作原理。
我用VB.NET编写了一个示例代码，我想训练一个神经元来实现AND或OR功能。
这是我的代码：
Dim Valid As Boolean Dim c As Integer = 0 Do Valid = True c += 1 For i As Integer = 0 To ListBox1.Items.Count - 1 Dim s() As String = Microsoft.VisualBasic.Split(ListBox1.Items(i), " ") Dim y As Single = (W(1) * CInt(s(0)) + W(2) * CInt(s(1)))' + W(3) * 1) W(1) += Alpha * CSng(CInt(s(2)) - y) * CSng(CInt(s(0))) W(2) += Alpha * CSng(CInt(s(2)) - y) * CSng(CInt(s(1))) 'W(3) += Alpha * CSng(CInt(s(2)) - y) * 1.0 Next For i As Integer = 0 To ListBox1.Items.Count - 1 Dim s() As String = Microsoft.VisualBasic.Split(ListBox1.Items(i), " ") Dim y As Single = (W(1) * CInt(s(0)) + W(2) * CInt(s(1)))' + W(3) * 1) If CInt(s(2)) = 1 Then If y < 1 Then Valid = False End If Else If y >= 1 Then Valid = False End If End If Next Loop Until ((Valid) Or (c > 100000)) If c > 10000 Then MsgBox("I Can't Learn!", MsgBoxStyle.Exclamation) End If我尝试了有偏置和无偏置的情况。（如果你从注释部分移除注释标记，将会为神经元添加偏置）
我还尝试了这些训练集来训练AND和OR功能：
-1 -1 -1-1 1 -11 -1 -11 1 10 0 00 1 01 0 01 1 10 0 00 1 11 0 11 1 1-1 -1 -1-1 1 11 -1 11 1 1但神经元无法用这些训练集进行训练…
我该如何解决这个问题？
回答：
问题是：我的硬限制函数将输出改为1，但它应该在0时改变答案。
这是修改后的代码部分：
If CInt(s(2)) = 1 Then If y < 0 Then Valid = False End If Else If y >= 0 Then Valid = False End If我尝试启用偏置后，成功训练了AND和OR功能。
