2.
1
()
: , .
1. . , .
2. ( , 5-7 ).
3. athCAD, if .
4. MATLAB.
5. . . .
. , .
. (1.1)
(1.1) ( ), . . , . , , . , (1.1).
:
) , (1.1);
) , .. .
.
. (1.1). : , .. ,
. , .
.
1. ( ).
, , , . , . , . , ( ).
2. .
, , .. . , . , , , , , .
|
|
n- ():
, (1.2)
, .
: n- ( , P(x)) n , , , , .
1. (1.2) , -, .. ( ) (1.2) s, s.
. .
(1.2) 2.
2. , (1.2). (1.2)
,
.. .
. , . . . , . , . , .. - , ,, ,. , . , . :
.
: , . , . , ,
.
.
.( f(x)=0).
[1;2], .. f(1)=-3 f(2)=6.
, [1, 2] , .. >0 .
0=1, b0=2. , .
. 1.1 ( 5 ).
1.1
1.25 1.375 1.4375 | 1.5 1.5 1.5 1.5 | 0.5 0.25 0.125 0.0625 | 1.5 1.25 1.375 1.4375 1.46875 | 0.37 -1.58 -0.65 -0.15 |
: .
, f(x) , .. , an f(x) , bn - .
|
|
MATHCAD
e =10-5.
1. :
:
2. if:
. n
3. :
, , :
4. .
root:
polyroots:
MATLAB
1. MATHCAD MATLAB .1.1.
.1.1.
MATHCAD | MATLAB |
function res = f(x) res=x^5-2*x-10 end | |
function [rez, k] =R(a, b, eps) if f(a)*f(b)>0 error('error'); else i=0; while abs(b-a)>2* eps c=(a+b)/2; if f(c)*f(a)>0 a=c; end if f(c)*f(b)>0 b=c; end if f(c)==0 break; end i=i+1; end rez=c k=i end | |
>> R(0,2,0.00000); rez = 1.6794 k =52 |
2. .
function RTS=dixotomia(pol,eps);
%
%
%
% ,
A0=-1-max(abs(pol))/(abs(pol(1)));
disp(A0)
% ,
A1=-A0;
disp(A1)
d=A0;
d1=d;
i=1;
while d<=A1 % ( 0.1)
d=d+0.1;
if polyval(pol,d)*polyval(pol,d1)<0
K(i)=d1;K(i+1)=d;
i=i+2;
end;
d1=d;
end;
disp(K);
%
nrts=i-1;
i=1; j=1;
while i<nrts %
X=K(i); X1=K(i+1); x=X; x1=X1;
%
while abs(polyval(pol,x)-polyval(pol,x1))>eps
x1=X; x=(X+X1)/2;
if polyval(pol,x)*polyval(pol,x1)>0
X=(X+X1)/2;
else
X1=(X+X1)/2;
end;
end;
% ,
RTS(j)=x1; i=i+2; j=j+1;
end
RTS;
end
:
>> dixotomia([1 3 -12],0.00001) ;
-13 ,
13 ,
-5.3000 -5.2000 2.2000 2.3000
RTS =
-5.2749 2.2749