Курсовая работа: Вычисление характеристических многочленов собственных значений и собственных векторов

for jj:=ww downto i do

begin

tt:=tt-1;

write(-p[jj]:2:2,'*l^',tt,' + ');

end;

ww:=i-1;

writeln;

end;

end;

for i:=1 to n1 do

begin

for j:=1 to n1 do

read(R[i,j]);

readln;

end;

EdMatr(R1,n1);

ObrMatr(R,R1,n1);

Umnogenie(R1,A1,n1,A);

Umnogenie(A,R,n1,M1);

for i:=1 to n1 do

begin

for j:=1 to n1 do

write(' ',M1[i,j]:2:3,' ');

writeln;

end;

end.

Анализ программы

Протестируем работу программы на примере. Пусть имеем матрицу А

Характеристический полином имеет вид: