VBA 最小の固有値を求める
Function ramda_min(a() As Double) As Double
Dim n As Integer
Dim a_inv() As Double
Dim v() As Double
Dim y() As Double
n = UBound(a, 1)
ReDim y(n)
ReDim v(n)
ReDim a_inv(n, n)
a_inv() = A_inverse(a())
v() = vk(a_inv())
y() = Ax(a_inv(), v())
ramda_min = 1 / (y(1) / v(1))
End Function
使った関数 ↓