VPF::[Pascal] Возведение матрицы в степень

Tauros

Дата 18.2.2007, 23:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 24.9.2006

Репутация: нет
Всего: нет

Задание такое: "Составить подпрограмму умножения двух матриц произвольной размерности. Используя ее вычислить k-ю степень квадратной матрицы." Вобщем как мне кажется процедуру умножения матрицы я сделал правильную (если нет скажите что не так), но...

Код


type
    massiv=array[1..nmax,1..nmax] of real;
Procedure Proizv(A1:massiv;Var B1:massiv);
     var
       s:integer;
       Es:real;
     Begin
         for i:=1 to n1 do
         for j:=1 to n2 do
       begin
            Es:=0;
            for s:=1 to n1 do
                Es:=Es+A1[i,s]*A1[s,j];
    B1[i,j]:=Es;
       end;
     End;

...потом идет ввод требуемой матрицы, а как ее значения использвать в процедуре я не знаю - не получается. Подскажите что делать!

volvo877

Дата 19.2.2007, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 34
Всего: 116

Ну, давай начнем с того, что нельзя перемножить 2 матрицы произвольной размерности, так? Они в любом случае должны быть "сцепленными", то есть количество столбцов одной и строк второй матрицы должны совпадать.

См. здесь: Вычисление произведения матриц (и квадратные и сцепленные), там же в 9-ом посте есть возведение квадратной матрицы в степень... Если эти 2 поста объединить, то получится именно то, что тебе нужно...

Это сообщение отредактировал(а) volvo877 - 19.2.2007, 01:08

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »