VBA 特殊な行列(関数)

Function Tn(ByVal n As Integer) As Double()

Dim T_n() As Double
ReDim T_n(n, n)
Dim i As Integer
Dim j As Integer

For i = 1 To n
For j = 1 To n

If i = j Then
T_n(i, j) = 2
ElseIf Abs(i - j) = 1 Then
T_n(i, j) = -1
End If

Next j
Next i

Tn = T_n

End Function

Function Un(ByVal n As Integer) As Double()

Dim U_n() As Double
ReDim U_n(n, n)
Dim i As Integer
Dim j As Integer

For i = 1 To n
For j = 1 To i

U_n(i - j + 1, i) = j 'i - j + 1 とは、列をiで固定したとき、i行目を１として、上に行くと２，３…と増えていくことを示す。
Next j
Next i

Un = U_n

End Function