Нейросети в массы!⁠⁠

Не увлекаюsь таким

kl - кол-во слоёв
l(i) - кол-во неиронов в слое i
kolvo - кол-во обучающих примеров
f(i,y) - значение y неирона в i слое
d - ошибка неирона
w - связь

b - смещение
osh - суммарная ошибка
so - cкорость обучения

вставьте флешку?

вот основа:

For i = 0 To kl

For y = 0 To l(i) - 1

If i = 0 Then

f(0, y) = inp(shag Mod kolvo, y)

Else

f(i, y) = b(i, y)

End If

d(i, y) = 0

Next

Next

For i = 0 To kl - 1

For y = 0 To l(i) - 1

For u = 0 To l(i + 1) - 1

f(i + 1, u) = f(i + 1, u) + f(i, y) * w(i, y, u)

Next

Next

For u = 0 To l(i + 1) - 1

If f(i + 1, u) > 30 Then

f(i + 1, u) = 30

ElseIf f(i + 1, u) < -30 Then

f(i + 1, u) = -30

End If

f(i + 1, u) = 1 / (1 + Exp(-f(i + 1, u)))

Next

Next

For i = 0 To l(kl) - 1

d(kl, i) = out(shag Mod kolvo, i) - f(kl, i)

osh = osh + Abs(d(kl, i))

Next

For i = kl - 1 To 1 Step -1

For y = 0 To l(i) - 1

For u = 0 To l(i + 1) - 1

d(i, y) = d(i, y) + d(i + 1, u) * w(i, y, u)

Next

Next

Next

For i = 0 To kl - 1

For y = 0 To l(i) - 1

For u = 0 To l(i + 1) - 1

w(i, y, u) = w(i, y, u) + d(i + 1, u) * f(i + 1, u) * (1 - f(i + 1, u)) * f(i, y) * so

Next

Next

Next

For i = 1 To kl

For y = 0 To l(i) - 1

b(i, y) = b(i, y) + d(i, y) * f(i, y) * (1 - f(i, y)) * so

Next

Next

есть, на  VB6, надо?