Hisoblash usullari fanidan laboratoriya ishlari



Download 3,72 Mb.
bet10/24
Sana13.07.2022
Hajmi3,72 Mb.
#790760
1   ...   6   7   8   9   10   11   12   13   ...   24
Bog'liq
6.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 ,


Download 3,72 Mb.

Do'stlaringiz bilan baham:
1   ...   6   7   8   9   10   11   12   13   ...   24




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish