Итерационный метод решения проблемы собственных значений

Курсовой проект - Экономика

; , (1) (2) , . , 1 .

, , tLab, . 2 , .

(main.m)

yn, L1 ed.

clc %

yn=[1; 1; 1; 1]; %

L1= -5.5251;%

ed=0.00001; %

trace=1; %

[mout, Lout, yout]= sobstv (fun, yn, L1, ed, trace);% ,

plot (mout, Lout) %

pause;

plot (mout, yout)% ,

sobstv.m

. L, yn. t, m.

function [mout, Lout, yout]=sobstv (fun, yn, L1, ed, trace);

a=feval(fun);% , matrsp

m=0; %

Lout=L1; mout=m; yout=yn;

L=0; %

if trace

clc, yn, m, L1%

end

t0=fix(clock); %

while (abs (L1-L)>ed) %

yn1=yn;

yn=a*yn;

L=L1;

L1=(yn*yn)/(yn1*yn); %

y=yn/sqrt (yn*yn);%

if trace

home, y, m, L1%

end %