Chiziqli algebraik tenglamalar
Download 63.84 Kb.
|
0XjbMwbyM1wOBYfmHOJMiHIIGUBr0MDO6Futvzau
- Bu sahifa navigatsiya:
- Zeydel usuli
- x x
Teorema. Agar (6.4.2) sistema uchun
ij j 1 1 yoki ij i1 1 shartlardan tanlashga bog’liq bo’lmagan holda yagona echimga yaqinlashadi. Natija. Agar (6.4.1) tenglamalar sistemasi uchun |aij || a11 |, i1 j 2 j 2 j 1 | a2 j || a22 |, ..., | anj || ann | j n j 1 tengsizliklar bajarilsa, u holda iteratsiya jarayoni yaqinlashuvchi bo’ladi. Misol. Ushbu 4x1 0,24x2 0,08x3 8 0,09x1 3x2 0,15x3 9 0,04x 0,08x 4x 20 1 2 3 sistemani =0,001 aniqlikda iteratsiya usuli bilan eching. Echish: Sistema koifisientlari uchun 0,24 0,08 0,32 0,09 0,15 0,24 a11 a22 4 3 0,04 0,08 0,12 a33 4 shart bajariladi. Demak, yuqorida keltirilgan teoremaga asosan iteratsiya jarayoni yaqinlashadi. Yuqoridagi sistemadan x1 2 0,06x2 0,02x3 x 2 3 0,03x1 x 5 0,01x 0,05x3 . 0,02x 3 1 2 ga ega bo’lib, nolinchi yaqinlashish sifatida 2 X ( 0 ) 3 , x0 2, x0 3, x0 5, 1 2 3 5 α ko’rinishga ega bo’ladi. 0,03 0,01 0 0,02 0,05 0 (5.4.9) formula yordamida hisoblashlarni bajaramiz: X 1 β αX 0 1,92 1 3,19 , 5,04 2 3 x , 1,90 x1 1,92; x1 3 0 X 2 X 1 2 1 1,9094; x2 3,1944; x2 5,0446. X 3 X 2 1,909 1 , x3 1,90923; x3 3,19 3 Natijada ushbu jadvalni hosil qilamiz:
Bu erda x3 x2 0,00017 , x3 x2 0,00055 , x3 x2 0,00025 1 1 2 2 3 3 shartlar bajariladi. Demak, X X ( 3 ) berilgan chiziqli algebraik tenglamalar sistemasining =0,001 aniqlikdagi taqribiy echimi bo’ladi. Tenglamalar sistemasini iteratsiya usulida echish uchun tuzilgan dastur matni: label 1,2; const n=3; { tenglamalar soni } type matrisa=array[1..n,1..n] of real; vektor=array[1..n] of real; var a,a1:matrisa; x,x0,b,b1:vektor; eps,s:real; i,j,k:integer; begin clrscr; for i:=1 to n do begin for j:=1 to n do begin end; write('a[',i:1,',',j:1,']='); read(a[i,j]) end; {Sistema koifisientlarini kiritish} write('b[',i:1,']='); read(b[i]); eps:=0.0001; { Echish aniqligini berish} for i:=1 to n do begin b1[i]:=b[i]/a[i,i]; for j:=1 to n do a1[i,j]:=-a[i,j]/a[i,i] end; for i:=1 to n do begin x0[i]:=b1[i]; a1[i,i]:=0; end; 2: for i:=1 to n do begin s:=0.0; for j:=1 to n do s:=s+a1[i,j]*x0[j]; x[i]:=b1[i]+s; end; k:=0; for i:=1 to n do if abs(x[i]-x0[i]) then begin k:=k+1; if k=n then goto 1 end else begin for j:=1 to n do x0[j]:=x[j]; goto 2 end; 1: writeln('Sistemaning taqribiy yechimi:'); for i:=1 to n do writeln('x[',i:1,']=',x[i]:8:6); end. Bu usul algoritmini quyidagi tenglamalar sistemasini echishda ko’rib chiqamiz: a11 x1 a12 x2 a13 x3 b1 ,
|
Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling
ma'muriyatiga murojaat qiling