ｋｋおｐ - プログラム倉庫

Function g(m As Integer, alpha, beta As Single, x) As Single
g = alpha(1) * x(m, 1) + alpha(2) * x(m, 2) + beta
End Function

Function met(m As Integer, alpha, beta As Single, x) As Single
Dim m1 As Single
Dim m2 As Single
Dim t As Single
m1 = alpha(1) * alpha(1) + alpha(2) * alpha(2)
m2 = -alpha(1) * x(m, 1) + alpha(2) * x(m, 2) - beta
t = m2 / m1
met = m1 * t ^ 2
End Function
Private Sub Command1_Click()
Dim x(1 To 2, 1 To 2) As Single
Dim y(1 To 2) As Single
Dim alpha(1 To 2) As Single
Dim beta As Single
Dim g1 As Single
Dim g2 As Single
Dim t As Single
Dim m1 As Single
Dim m2 As Single
Dim q1 As Single
Dim q2 As Single

x(1, 1) = 2
x(1, 2) = 1
x(2, 1) = 1
x(2, 2) = 2
y(1) = 1
y(2) = -1

alpha(1) = 3
alpha(2) = 1
beta = -6

g1 = g(1, alpha, beta, x)
g2 = g(2, alpha, beta, x)

q1 = met(1, alpha, beta, x)
q2 = met(2, alpha, beta, x)


Debug.Print q1
Debug.Print q2

End Sub