| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Умножение матрицы на вектор с небольшой загвоздкой [D7, WinXP]
jagr © (2005-07-01 18:00:00)Мне нужно умножить матрицу 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;
jagr (2005-07-01 18:49:00) [1]Спасибо, что помог :) Я уже сделал.
MacroDenS (2005-07-01 18:14:00) [2]Перечитай свой вопрос еще раз, одгатка в нем же!
| |
