Умножение матрицы на вектор с небольшой загвоздкой

← →
jagr © (2005-07-01 18:00) [0]

Мне нужно умножить матрицу 3х3 на вектор. Например
1 2 3 3
4 5 6 * 1
7 8 9 15
8
9
10

Как записать такой зикл, который будет умножать мне по 3 элемента,
тоесть: |A|ij * bj = cj = Sum(aij*bj)
Чтобы после того, как третий элент столбца bj, все начиналось заного, но с 4-го элемента. Не могу понять, что нужно сделать с переменной L, чтобы цикл работал правильно

L:=1;
Sum2:=0;
For i:=1 to 3 do
For j:=1 to 3 do begin
Sum1:=S5[i,j]*S4[L];
Sum2:=Sum2+Sum1;
L:=L+1;
If j=3 Then begin
p:=p+1;
S6[p]:=Sum2;
Sum2:=0;
end;
end;

← →
MacroDenS © (2005-07-01 18:14) [1]

Перечитай свой вопрос еще раз, одгатка в нем же!

Спасибо, что помог :) Я уже сделал.

Умножение матрицы на вектор с небольшой загвоздкой Найти похожие ветки