REM Berilgan matritsaning determinantini hisoblash
D1=A(1,2)*A(2,3)*A(3,1)
D2=A(1,1)*A(2,2)*A(3,3)
D3=A(2,1)*A(3,2)*A(1,3)
D4=A(1,3)*A(2,2)*A(3,1)
D5=A(1,2)*A(2,1)*A(3,3)
D6=A(2,3)*A(3,2)*A(1,1)
D=D1+D2+D3-D4-D5-D6:?‖ d=‖d
FOR I=1 TO 3 : FOR J=1 TO 3
M (I,J)= M (I,J)/D: AT(i,j)= M (I,J)
NEXT J : NEXT I
PRINT “Teskari matritsa elementlari:”
FOR I=1 TO 3 : FOR J=1 TO 3
PRINT “ A1(“;I;”,”J”)=”;USING “###.####”;AT(j,i);
NEXT J :‘RINT :NEXT I
REM Berilgan matritsa elementlari:
DATA 1,-1,1
DATA 2,1,1
DATA 1,1,2
END
RUN
d= 5
Teskari matritsa elementlari:
AT( 1 , 1 )= 0.2000 AT( 1 , 2 )= 0.6000 AT( 1 , 3 )= -0.4000
AT( 2 , 1 )= -0.6000 AT( 2 , 2 )= 0.2000 AT( 2 , 3 )= 0.2000
AT( 3 , 1 )= 0.2000 AT( 3 , 2 )= -0.4000 AT( 3 , 3 )= 0.6000
5.Gauss usuli .
Berilgan sistemaning kengaytirilgan matritsasini yozib olamiz. Gauss usuli bilan bu matritsani bosh diogonal elementlarini a11=1≠0 ga va uning ostidagi elementlarini nolga aylantiramiz. Bu amallarni nazorat qilib borish uchun kengaytirilgan matritsa satrlarini mos ravishda A1, A2, A3, A4 kabi belgillab olamiz. A1 satrni 1-(etakchi) elementi 1 bo’lganligi uchun 1- satrni o’zgarishsiz qoldiramiz. Agar bu yetakchi element 1 va 0 dan farqli son bo’lsa, 1 -satr elementlarini shu songa bo’lamiz.
Hosil bo’lgan 1-satr 1-elimentdagi 1 dan foydalanib, uning ostidagi 2,3,4-satr elementlari bo’lgan x1 ning koeffitsientlarini nolga aylantiramiz:
V2 ni 2 ga bo’lib -1 ga ko’paytiramiz.
Hosil bo’lgan 2-satr 2- elimentdagi 1 dan foydalanib uning ostidagi 3,4-satr elementlari bo’lgan x2 ning koeffitsientlarini nolga aylantiramiz:
Hosil bo’lgan 3-satr 3- elimentdagi 1 dan foydalanib uning ostidagi 4-satr elementlari bo’lgan x3 ning koeffitsientini nolga aylantiramiz:
Bu ohirgi matritsa asosida hosil bo’lgan sistemani yozamiz.
bu sistemaning yechim
Do'stlaringiz bilan baham: |