,,,
:
, 2010
. . , . . . , .
, , , .
, . 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
Copyright (c) 2024 Stud-Baza.ru , , , .