Malinovschi Simona
Test de evaluare
Selectaţi răspunsul corect:
1. A rezolva ecuaţia f(x) = 0 înseamnă a determina punctele:
b) de intersecţie f(x) cu axa 0x;
2. A separa soluţiile ecuaţiei f(x) = 0 înseamnă a determina:
b) toate intervalele pe axa 0x, care au proprietatea de a conţine exact cîte o soluţie a ecuaţiei
f(x) = 0;
3. Metoda bisecţiei de rezolvare a ecuaţiilor algebrice şi transcendente se bazează pe divizarea
intervalului pe care este căutată soluţia ecuaţiei în părţi:
a) egale;
4. Formula recurentă de calcul a aproximării xi a soluţiei ecuaţiei f(x) = 0 prin metoda coardelor
este:
5. Aproximarea iniţială în cazul aplicării metodei tangentelor este acea extremitate e a inter
valului [a, b] pe care este căutată soluţia, pentru care este adevărată relaţia:
II Calculaţi folosind programele elaborate anterior:
1. Soluţia ecuaţiei pe [10; 15] prin metoda bisecţiei, pentru 10 de divizări ale
segmentului iniţial şi prin metoda coardelor, pentru 10 de iteraţii. Explicaţi diferenţa dintre
rezultatele obţinute.
program p3; uses crt;
var a,b,c:real;
i,n :integer;
function f(x:real):real;
begin
f:=(-6*sqr(x)+exp((x-ln(3*x*x-2*x+7))*ln(3)))/(4*sqr(x)-x+12);
end;
begin a:=10; b:=15; n:=10;
for i:=1 to n do
begin c:=(b+a)/2;
writeln('i=', i:3,' x=',c:10:8,' f(x)=',f(c):12:8);
if f(c)=0 then break
else if f(c)*f(a)>0 then a:=c else b:=c;
end;
end.
Metoda coardelor:
program p3;
var a,b,c,e,x:real;
i,n :integer;
function f(x:real):real;
begin
f:=(-6*sqr(x)+exp((x-ln(3*x*x-2*x+7))*ln(3)))/(4*sqr(x)-x+12);
end;
begin a:=10; b:=15; n:=10;
c:=a-(f(a))/(f(b)-f(a))*(b-a);
if f(c)*f(a)>0 then begin e:=b; x:=a; end
else begin e:=a; x:=b; end;
for i:=1 to n do
begin x:= x-(f(x))/(f(e)-f(x))*(e-x);
writeln('i=',i:3,' x=',x:10:8,' ','f(x)=',f(x):12:8);
end;
readln
end.
2. Soluţia ecuaţiei x2 – sin 5x = 0 pe [0,5; 0,6] prin metoda tangentelor, pentru 2, 4, 6 divizări ale
segmentului iniţial şi cu exactitatea ε: 0,001; 0,00001; 0,0000001. Consideraţi: m1 = 1,2; M2 =
6,2.
Solutia ecuatiei cu exacticitatea de 0.001;
program cn10; uses crt;
var a,b,xn,xv,M2,m1,e,c : real;
function f(z:real):real;
begin
f:=sqr(z)-sin(5*z);
end;
function fd1(z:real):real;
begin
fd1:=2*z-cos(5*z)*5;
end;
begin
a:=0.5; b:=0.6; M2:=6.2; m1:=1.2; e:=0.001;
c:=a-(f(a))/(f(b)-f(a))*(b-a);
if f(c)*f(a)<0 then begin
xn:=a; xv:=b;
end else begin
xn:=b;
xv:=a;
end;
while M2*sqr(xn-xv)/(2*m1)>e do
begin
xv:=xn;
xn:=xv-f(xv)/fd1(xv);
writeln(' x=',xn:15:12, ' f=',f(xn):15:12); end;
readln end.
Solutia ecuatiei cu 6 aproximari succesive;
program cn09;
var a, b, x, c : real;
i, n : integer;
function f(z:real):real;
begin
f:=sqr(z)-sin(5*z);
end;
function fd1(z:real):real;
begin
fd1:=2*z-cos(5*z)*5 ;
end;
begin
a:=0.5; b:=0.6; n:=6; i:=0;
c:=a-(f(a))/(f(b)-f(a))*(b-a);
if f(c)*f(a)<0 then x:=a else x:=b;
while i<n do
begin i:=i+1;
x:=x-f(x)/fd1(x);
writeln('i=',i:2,' x=',x:15:12, ' f=',f(x):15:12);
end;
end.