Дали задачку получить матрицу B из матрицы A размерностью m таким вот спосбом:
B=A^1 + A^2 + A^3 + ... + A^n
Очень надеюсь на вашу помощь, да и самому хочется разобраться...
(* Возведение матрицы в степень *)Где искать процедуру перемножения матриц, я сказал выше...
procedure matrixPower(var m: TMatrix; a: TMatrix; pow: integer);
var
i, j: Integer;
T: TMatrix;
begin
if pow = 0 then begin
for i := 1 to size do
for j := 1 to size do m[i, j] := Byte(i = j);
exit
end;
move(a, T, sizeof(T));
for i := 1 To Pred(pow) do matrixMult(T, T, a);
move(T, m, sizeof(T))
end;