Question

好的，所以我开始在excel vba上编写神经网络的代码。训练数据集在excel表中 - 两个输入和两个输出。我正在努力将数据导入vba，以便可以训练网络......

以下是我的培训部分代码

`Private Sub Train_Click()
alpha = 0.3
mu = 0.8
n = 4
m = 4
Dim I, J, K As Integer
Dim TrainError As Double
Dim TrainingData As String
NumCases = 123
For J = 0 To NumCases - 1
For I = 0 To m
X1(J, I) = Sheets("Sheet1").Cells(I, J).String
Next I
targval(J) = X1(J, n)
Next J

Call Init(n, m)
J = 0
Do Until J = 1000 And TrainError = 0
For I = 0 To NumCases - 1
For K = 0 To n - 1
InputNeuron(K) = X1(I, K)
Next
Call HiddenInput(n, m)
Call HiddenTransfer(m)
Call OutputInput(m)
Call OutputTransfer
Call UpdateOut(I, m)
Call UpdateHidden(n, m)
TrainError = TrainError + (targval(I) - oout) ^ 2
Next I
TrainError = Sqrt(TrainError / NumCases)
If TrainError < 0.01 Then
Exit Do
End If
J = J + 1
Loop
End Sub

任何人都可以帮忙吗？

Answer 1

如果您的问题是导入数据，我认为问题出在第一个循环中：

X1(J, I) = Sheets("Sheet1").Cells(I, J).String

如果是这样，您可以尝试使用一种方法来读取Range给出的数据。声明一个数组来保存输入层：

Public inputv() As Double   '// the input layer data

然后在给定数据范围的情况下填充它，用这种方法说“C19：C27”：

Private Sub loadInput(ByRef r As Range)

    Dim s As Range
    Set s = r.Resize(1, 1)

    // this way you can even evaluate the number of trainning examples, m
    m = r.Rows.Count


    ReDim inputv(0 To m - 1, 0 To n - 1)
    Dim i, j As Integer

    For i = 0 To m - 1
        For j = 0 To n - 1
            inputv(i, j) = s(i + 1, j + 1).Value
        Next j
    Next i

End Sub

Excel VBA人工神经网络训练代码

1 个答案: