Hisoblash usullari fanidan laboratoriya ishlari

EMBED Equation.3

EMBED Equation.3	EMBED Equation.3	EMBED Equation.3	EMBED Equation.3	EMBED Equation.3	EMBED Equation.3	EMBED Equation.3	EMBED Equation.3
2 -0,4 1,6 1	4,2 3 -0,8 -2	1,6 -2 1 -1	-3 0 -1 1,5	1 0 0 0	0 1 0 0	0 0 1 0	0 0 0 1	5,8 1,6 1,8 2,5
1	2,1	0,8	-1,5	0,5	0	0	0	2,9
	3,84 -4,16 -4,1	-1,68 -0,28 -1,8	-0,6 1,4 3	0,2 -0,8 -0,5	1 0 0	0 1 0	0 0 1	2,76 -2,84 -2,4
	1	-0,43750	-0,15625	0,05208	0,26042	0	0	0,71875
		-2,10000 -3,59375	0,75000 2,35937	-0,58335 -0,28647	1,08334 1,06772	1 0	0 1	0,14999 -3,52085
		1	-0,35714	0,27779	-0,51588	-0,47619	0	0,07142
			1,07590	0,71184	-0,78622	-1,71131	1	0,29022
				0,66162 0,51408 0,38037 0,28239	-0,73076 -0,77686 -0,19364 -0,06801	-1,59058 -1,04425 -0,70539 -0,06915	0,92945 0,33195 0,29046 0,51865	-0,73027 -0,97508 -0,22820 0,66388

B) Gauss-Jordan usuli yordamida EMBED Equation.3 matritsaga teskari bo’lgan EMBED Equation.3 matritsa elementlarini hisoblash mumkin.
Teskari matritsa elementlarini hisoblash uchun EMBED Equation.3 matritsa birlik matritsa bilan kengaytiriladi, ya’ni

EMBED Equation.3

matritsa tuziladi. Bu matritsa ustida Gauss-Jordan almashtirishlari bajariladi. Natijada birlik matritsa o’rnida teskari matritsa hosil bo’ladi.
( EMBED Equation.3 matritsa maxsus bo’lmagan matritsa ya’ni determinanti noldan farqli bo’lishi kerak). Quyida teskari matritsani Gauss-Jordan usuli yordamida topish algoritmi va blok-sxemasi keltirilgan.

Detirminantni hisoblash algoritmining blok sxemasi.

10 REM "Determinantlarni hisoblash"

20 INPUT "n=", n

30 DIM d(n, n), b(n)

40 FOR i = 1 TO n: FOR j = 1 TO n

50 PRINT "d("; i; ","; j; ")=";

60 INPUT d(i, j): NEXT j, i

70 det = 1: ik = 1: FOR k = 1 TO n - 1

80 IF d(k, k) = 0 THEN 130

90 det = ik * det * d(k, k): ik = 1: FOR j = k + 1 TO n

100 b(j) = d(k, j) / d(k, k): NEXT j

110 FOR i = k + 1 TO n: FOR j = k + 1 TO n

120 d(i, j) = d(i, j) - b(j) * d(i, k): NEXT j, i: GOTO 180

130 FOR i = k + 1 TO n: IF d(i, k) = 0 THEN 170

140 L = i: ik = -ik: FOR j = k TO n

150 c = d(k, j): d(k, j) = d(L, j)

160 d(L, j) = c: NEXT j: GOTO 90

170 NEXT i: det = 0: GOTO 190

180 NEXT k: det = det * d(n, n)

190 PRINT "Determinantni qiymati="; det

200END

Teskari matritsani topish algoritmining blok sxemasi

10 REM "TESKARI MATRITSA TOPISH"

20 INPUT "n=", N
30 DIM A(N, 2 * N)
40 FOR I = 1 TO N: FOR J = 1 TO N
50 PRINT "A("; I; ","; J; ")=";
60 INPUT A(I, J): NEXT J, I
70 N1 = N + 1: N2 = 2 * N
80 FOR I = 1 TO N: FOR J = N1 TO N2: IF J = N + I THEN 100
90 A(I, J) = 0: GOTO 110
100 A(I, J) = 1
110 NEXT J, I
120 FOR K = 1 TO N: IF A(K, K) = 0 THEN 190
130 P = A(K, K): FOR J = K TO N2
140 A(K, J) = A(K, J) / P: NEXT J
150 FOR I = 1 TO N: P = A(I, K): IF I = K THEN 180
160 FOR J = K TO N2
170 A(I, J) = A(I, J) - A(K, J) * P: NEXT J
180 NEXT I: GOTO 230
190 FOR I = K + 1 TO N: IF A(I, K) = 0 THEN 220
200 L = I: FOR J = K TO N2: C = A(K, J): A(K, J) = A(L, J)
210 A(L, J) = C: NEXT J: GOTO 130
220 NEXT I: GOTO 260
230 NEXT K
240 FOR I = 1 TO N: FOR J = N1 TO N2: L = J - N
250 PRINT "A("; I; ","; L; ")="; A(I, J): NEXT J, I: GOTO 270
260 PRINT "A-MAXSUS MATRITSA"
270 END


LABORATORIYA TOPSHIRIQLARI

1. A= EMBED Equation.3 , 2. A= EMBED Equation.3 ,

3. A= EMBED Equation.3 , 4. A= EMBED Equation.3 ,

5. A= EMBED Equation.3 , 6. A= EMBED Equation.3 ,

7. A= EMBED Equation.3 , 8. A= EMBED Equation.3 ,

9. A= EMBED Equation.3 ,10. A= EMBED Equation.3 ,