BP神经网络VB程序汇总.docx

Private SubCommand2_Click()Label2.Caption = 样本训练中…Dim i As Integer, j As Integer, k As Integer, p As Integer, s As SingleDim Maxx(1 To 3) As Single, Minx(1 To 3) As Single, Meanx(1 To 3) As SingleDim x(1 To 3, 1 To 100) As Single, sumx(1 To 3) As Single, Temp As SingleDim Datex(1 To 3, 1 To 100) As Single, inputx(1 To 3) As Single, outputx(1 To 100) As SingleDim Ex(1 To 100) As SingleDim time(1 To 5000) As Integer, cishu(1 To 100) As IntegerDim Dv_1(1 To 5, 1 To 3) As Single, Dw_1(1 To 5) As SingleDim R As SingleDim Maxd As Single, Mind As SingleDim s1(1 To 5) As Single, y1(1 To 5, 1 To 100) As Single, s2 As Single, y2(1 To 100) As SingleDim deltW(1 To 100) As Single, deltV(1 To 5, 1 To 100) As SingleDim Dw(1 To 5) As Single, Dv(1 To 5, 1 To 3) As SingleDim MyIn(1 To 3) As SingleDim Errorx(1 To 5000) As SingleRandomizeFor i = 1 To 3Maxx(i) = 0Minx(i) = 0Meanx(i) = 0Next iTemp = 0Maxd = 0Mind = 0For i = 1 To 5 For j = 1 To 3 Dv_1(i, j) = 0v(i, j) = 2 * Rnd - 1 Next j Dw_1(i) = 0w(i) = 2 * Rnd - 1Next iFor j = 1 To 3 For i = 1 To 100x(j, i) = 4 * (2 * Rnd - 1) Next isumx(j) = 0Next j求最值For j = 1 To 3 For i = 1 To 100 If x(j, i) = Maxx(j) ThenMaxx(j) = x(j, i) End If If x(j, i) = Minx(j) ThenMinx(j) = x(j, i) Temp = Temp + x(j, i) End If Next isumx(j) = Temp Temp = 0Meanx(j) = sumx(j) / 100Next j归一化For j = 1 To 3 For i = 1 To 100 If Maxx(j) - x(j, i) = x(j, i) - Minx(j) Then R = Maxx(j) - x(j, i) Else R = x(j, i) - Minx(j) End IfDatex(j, i) = (x(j, i) - Meanx(j)) / R Next iNext j期望输出For i = 1 To 100 For j = 1 To 3inputx(j) = Datex(j, i) Next joutputx(i) = 2 * (inputx(1) + Sin(inputx(2)) + Exp(inputx(3)))Next i输出归一化For i = 1 To 100 If Maxd = outputx(i) Then Maxd = outputx(i) End If If Mind = outputx(i) Then Mind = outputx(i) End IfNext iFor i = 1 To 100Ex(i) = (outputx(i) - Mind) / (Maxd - Mind)Next i训练For s = 1 To 5000 S