3-Amaliy mashg’ulot: Bir noma`lumli algebraik va transsendent tenlamalarni vatarlar va urunmalar usulida taqriban yechish. Ishning maqsadi

Kesmani ikkiga bo`lish qanday?

Urunmalar metodi qanday?

Vatarlar va birlashgan metodlar qanday?



Foydalanadigan darsliklar va o’quv qo’llanmalar

1. 
   A.A.Abduqodirov va boshqalar. Hisoblash matematikasi va dasturlash. O`quv qo`llanma. Toshkent, “O`qituvchi”, 1996.
   
2. 
   A.A.Abduqodirov va boshqalar. Hisoblash matematikasi va dasturlashdan laboratoriya ishlari. O`quv qo`llanma. Toshkent, “O`qituvchi”, 1990.
   
3. 
   F.B.Badalov Optemallash nazariyasi va matematik programmalashtirish. Darslik. Toshkent. O`qituvchi, 1990.
   
4. 
   K.Safoeva Matematik programmalash. O’quv qo’llanma. T.:UAJBHT, 2004 y.
   
5. 
   K.Safoeva, N.Beknazarova Operasiyalarni tekshirishning matematik usullari, 2-qism. O`quv qo`llanma. Toshkent. O`qituvchi, 1990 y.
   

tenglamaning ildizlarini Vatarlar usulida hisoblash dasturni qaraymiz.

Masalaning Paskal dasturi
Program Tenglama;
Uses Crt;
const
n=3; Eps=0.001;
var
i,j: integer;
a1,a2,a3,a4: real;
a,b : array[1..5] of real;
x : array[0..100] of real;
f1 : text;
Function F(x1:real): real;
Begin
F:=sqr(sqr(x1))+a1*sqr(x1)*x1+a2*sqr(x1)+a3*x1+a4;
end;
Begin
ClrScr;
assign(f1,'c:\L.otv'); rewrite(f1);
a1:=-4; a2:=-40; a3:=-56; a4:=-20;
a[1]:=-4; a[2]:=-2; a[3]:=-1; a[4]:=0;
For j:=1 to n do BEGIN
if F(a[j])<0 then Begin
x[0]:=a[j]; i:=0;
Repeat
x[i+1]:=x[i]-(F(x[i])/(F(a[j+1])-F(x[i])))*(a[j+1]-x[i]);
i:=i+1;
until Abs(x[i]-x[i-1])>Eps; End
else Begin
x[0]:=a[j+1]; i:=0;
Repeat
x[i+1]:=x[i]-(F(x[i])/(F(x[i])-F(a[j])))*(x[i]-a[j]);
i:=i+1;
until Abs(x[i]-x[i-1])>Eps; End;
Writeln(f1,'Ildiz yotgan oraliq [',a[j]:6:4,' ; ',a[j+1]:6:4,']');
Writeln(f1,'Tenglamaning ildizi = ',x[i]);
END;
Close(f1);
End.