السلام عليكم
لدي مشروع تخرجي وهو تمييز الحروف باستخدام الhopfield in neural network
المطلوب كيف يتم ادخال مصفوفة الحرف ومقارنتها مع مصفوفةالادخال وذلك باستخدام
لغة الفجول بيسك وارسله الى البريد الالكتروني
اماراسلني
اوراسلني
هذا برنامج الhopfield هل هذا البرنامج صحيح
()Private Sub Command1_Click
Dim x1(5, 5), x2(5, 5), i, j As Integer
Dim k, t(5, 5), w(5, 1), m(5, 1) As Integer
For i = 0 To 4
For j = 0 To 4
x1(i, j) = Val(InputBox("input the number of x matrix"))
Next j
Next i
For i = 0 To 4
For j = 0 To 4
If x1(i, j) = 1 Then
x2(i, j) = 1
Else
x2(i, j) = -1
End If
Next j
Next i
Print " the input matrix is "
For i = 0 To 4
For j = 0 To 4
Print x2(i, j),
Next j
Next i
Print "&&**&&**&&**&&**&&**&&"
For i = 0 To 4
For j = 0 To 4
t(j, i) = x2(i, j)
Next j
Next i
Print "the transpose matrix t=",
For i = 0 To 4
For j = 0 To 4
Print t(i, j),
Next j
Next i
Print "&&**&&**&&**&&**&&**&&"
For i = 0 To 4
m(i, 0) = 1
Next i
For i = 0 To 4
For j = 0 To 0
w(i, j) = 0
Next j
Next i
For i = 0 To 4
For j = 0 To 0
For k = 0 To 1
w(i, j) = w(i, j) + t(i, k) * m(k, j)
Next k
Next j
Next i
Print "(weights)w="
For i = 0 To 4
For j = 0 To 0
Print w(i, j),
Next j
Next i
Print "Threshold="
For i = 0 To 4
For j = 0 To 0
Print w(i, j) * -1,
Next j
Next i
End Sub
[code/]
