. , , ,

,,,

-


:

, 2010


. . , . . . , .

, , , .

 


1. 

, . Y0 A A, .  :

Y0, Y1=A*Y0, Y2=A2*Y0, , Yk=Ak*Y0, (1)

Y0, Y1=A*Y0, Y2=A2*Y0, , Yk=Ak*Y0, (2)

b1, , bn Y0 X1, , Xn, a1, , an Y0 X1, , Xn. , , X1, X2, , Xn X1, , Xn .

(Yk, Yk):

(Yk, Yk)=(Ak*Y0, Ak*Y0)=(Y0, A2k*Y0)=(b1*X1+ +bn*Xn, a1*l2k1*X1+ + + an*l2kn*Xn)

:

(Yk, Yk)=a1*b1*l2k1+ + an*bn*l2kn (3).

:

(Yk-1, Yk)=a1*b1*l2k-11+ + an*bn*l2k-1n (4).

, (3) (4) :


(Yk, Yk)/(Yk-1, Yk) = l1 + O(l2/l1)2k.

, , l1, , . (2).

, , (1) (2) , . , l1 .

2. 

, , 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 %

m=m+1;%

Lout=[Lout; L1]; %

mout=[mout; m];

yout=[yout; y'];

end

t1=fix(clock); %

t=t1-t0%

pause;

fun.m

a.

:

function a=fun

%

a=[1.255 1.340 -1.316 0;

1.340 2.526 0 0.516;

-1.316 0 -1.743 4.628;

0 0.516 4.628 0.552];

3. 

, . () . .

, eig.

L1= -5.5251

0.2841

3.4399

4.3911

 

:

yn=[1,1,1,1];

ed=0.00001;

a=[1.255 1.340 -1.316 0;

1.340 2.526 0 0.516;

-1.316 0 -1.743 4.628;

0 0.516 4.628 0.552];

, :

y = -0.1501 m = 34 L1 = -5.5251 t = 0

-0.0135

-0.7853

0.6005


,

 


:

yn=[1,1,1,1];

ed=0.0001;

a=[1.255 1.340 -1.316 0;

1.340 2.526 0 0.516;

-1.316 0 -1.743 4.628;

0 0.516 4.628 0.552];

, :

y = 0.1491 m = 29 L1 = -5.5253 t = 0

0.0136

0.7880

-0.5972

/


,

:

yn=[1,1,1,1];

ed=0.000001;

a=[1.255 1.340 -1.316 0;

1.340 2.526 0 0.516;

-1.316 0 -1.743 4.628;

0 0.516 4.628 0.552];

, :

y = 0.1498 m = 39 L1 = -5.5251 t = 0

0.0135

0.7862

-0.5994

,


, .. .

:

yn=[2,3,3,2];

ed=0.00001;

a=[1.255 1.340 -1.316 0;

1.340 2.526 0 0.516;

-1.316 0 -1.743 4.628;

0 0.516 4.628 0.552];

, :

y = -0.1501 m = 32 L1 = -5.5251 t = 1

-0.0135

-0.7853

0.6004

/


,

, .. .

:

yn=[1,0,1,0];

ed=0.00001;

a=[1.255 1.340 -1.316 0;

1.340 2.526 0 0.516;

-1.316 0 -1.743 4.628;

0 0.516 4.628 0.552];

, :

y = 0.1496 m = 25 L1 = -5.5251 t = 0

0.0135

0.7866

-0.5989

/

,


:

:

yn=[1,1,1];

L1= 0.01

edop=0.00001;

a=[1 1 1;

2 3 4;

0 4 0];

, eig.

L1= 6.2085

0.4794

-2.6879

:

y = 0.2565 m =13 L1 =6.2085 t =0

0.8125

0.5235


,

, , . , , , .

, . , . , , , .


. , .


1.   ..  : / , 1995. 65 .

2.   ..  .  , . 1970.

3.   .., ..  . , 1963.

: , 2010

 

 

 

! , , , .
. , :