Определить, являются ли n векторов n -мерного линейного пространства линейно независимыми - VB
Формулировка задачи:
4.4. Программа. Даны координаты n векторов n-мерного линейного пространства (n=7). Определить, являются ли они линейно независимыми.
Помогите пожалуйста сделать эту задачу)
Забыл все про VB((
Решение задачи: «Определить, являются ли n векторов n -мерного линейного пространства линейно независимыми»
textual
Листинг программы
Function Det(A() As Double) As Double n% = UBound(A, 1) If n% = 2 Then Det = A(1, 1) * A(2, 2) - A(1, 2) * A(2, 1) Else S# = 1 For j% = 1 To n% Det = Det + Det(Minor(A(), 1, j%)) * S# S# = -S# Next j% End If End Function Function Minor(A() As Double, m As Integer, k As Integer) As Double() Dim B() As Double nn% = UBound(A, 1) ReDim B(1 To nn% - 1, 1 To nn% - 1) As Double ii% = 1 jj% = 1 For i% = 1 To nn% For j% = 1 To nn% If i% <> m And j% <> k Then B(ii%, jj%) = A(i%, j%) jj% = jj% + 1 If jj% > nn% - 1 Then ii% = ii% + 1 jj% = 1 End If End If Next j% Next i% Minor = B End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д