VBA 固有値を求める(関数)
Function ramda(a() As Double) As Double
Dim n As Integer
Dim v() As Double
Dim y() As Double
n = UBound(a, 1)
ReDim y(n)
ReDim v(n)
v() = vk(a())
y() = Ax(a(), v())
ramda = y(1) / v(1) '最初だけ見れば良い
End Function
使った関数 ↓
Function ramda(a() As Double) As Double
Dim n As Integer
Dim v() As Double
Dim y() As Double
n = UBound(a, 1)
ReDim y(n)
ReDim v(n)
v() = vk(a())
y() = Ax(a(), v())
ramda = y(1) / v(1) '最初だけ見れば良い
End Function
使った関数 ↓