VBA ベクトルの内積(関数)
Function InnerProd(x() As Integer, y() As Integer) As Double
Dim I As Integer
Dim a As Integer
For I = 0 To UBound(x())
a = a + x(I) * y(I)
Next I
InnerProd = a
End Function
Function InnerProd(x() As Integer, y() As Integer) As Double
Dim I As Integer
Dim a As Integer
For I = 0 To UBound(x())
a = a + x(I) * y(I)
Next I
InnerProd = a
End Function