Умножение матрицы на вектор - VB (58808)
Формулировка задачи:
Помогите написать программу умножение заданной матрицы(3 строки и 2 столбца) на заданный вектор
Буду очень благодарен тому кто поможет
Печально(((
Решение задачи: «Умножение матрицы на вектор»
textual
Листинг программы
Private Sub CommandButton1_Click() Dim V(1 To 3) As Double Dim M(1 To 3, 1 To 2) As Double Dim X() As Double V(1) = CInt(Text1.Text) V(2) = CInt(Text2.Text) V(3) = CInt(Text3.Text) M(1, 1) = CInt(Text4.Text) M(2, 1) = CInt(Text5.Text) M(3, 1) = CInt(Text6.Text) M(1, 2) = CInt(Text7.Text) M(2, 2) = CInt(Text8.Text) M(3, 2) = CInt(Text9.Text) Dim R() As Double n% = UBound(V, 1) k% = UBound(M, 2) ReDim R(1 To k%) As Double For i% = 1 To k% For j% = 1 To n% R(i%) = R(i%) + V(j%) * M(j%, i%) Next j% Next i% Vec_by_matr = R Text10.Text = Vec_by_matr(1) & vbNewLine & Vec_by_matr(2) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д