Умножение матрицы на вектор - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.222 из 5
Похожие ответы