OPERASI MATRIK VB

Operasi Matrik

Aljabar matrik mempunyai peranan yang sangat penting di bidang teknik dan sain untuk penyelesaian masalah, khususnya di bidang terapan yang mana memerlukan operasi dan sifat matrik. Operasi matrik tersebut antara lain adalah operasi dasar yaitu operasi penjumlahan, pengurangan, perkalian, transpose dan invers matrik.



Penjumlahan atau pengurangan Matrik

Penjumlahan dua buah matrik A dan B dapat berlangsung jika kedua matrik tersebut berordo sama. Ordo sebuah matrik ditentukan oleh banyaknya baris dan kolomnya. Jadi dua buah matrik dapat dijumlahkan (atau dikurangkan) jika keduanya mempunyai jumlah baris dan jumlah kolom yang sama.



Kode Program untuk penjumlahan dan pengurangan matrik :


view plaincopy to clipboardprint?

1. b = 5 'baris
2. k = 8 'kolom
3. Dim A(b,k), B(b,k), C(b,k)
4. For i = 1 to b
5. For j = 1 to k
6. 'jika pengurangan ganti tanda plus jadi minus
7. C(i,j) = A(i,j) + B(i,j)
8. Next j
9. Next i

b = 5 'baris k = 8 'kolom Dim A(b,k), B(b,k), C(b,k) For i = 1 to b For j = 1 to k 'jika pengurangan ganti tanda plus jadi minus C(i,j) = A(i,j) + B(i,j) Next j Next i



Transpose Matrik

Transpose matrik A atau matrik AT dihasilkan dari matrik A dengan memindahkan baris-baris dan kolom-kolom dari matrik A, yaitu baris pertama dari matrik A menjadi kolom pertama dari matrik AT, baris kolom matrik A menjadi kolom kedua matrik AT dan seterusnya.



Kode program untuk transpose matrik adalah :


view plaincopy to clipboardprint?

1. baris = 5
2. kolom = 8
3. Dim A(baris,kolom), AT(kolom,baris)
4. For i=1 to baris
5. For j=1 to kolom
6. AT(j,i) = A(i,j)
7. Next j
8. Next i

baris = 5 kolom = 8 Dim A(baris,kolom), AT(kolom,baris) For i=1 to baris For j=1 to kolom AT(j,i) = A(i,j) Next j Next i



Perkalian Matrik

Perkalian matrik A dengan matrik B dapat dilakukan jika jumlah kolom matrik A sama dengan jumlah baris matik B, dan menghasilkan matrik baru yaitu matrik C.



Untuk Pemrograman diperlukan tiga tingkatan looping sebagai berikut :


view plaincopy to clipboardprint?

1. L = 5
2. M = 5
3. N = 5
4. Dim A(L,M) B(M,N), C(L,N)
5. For i = 1 to L
6. For j = 1 to N
7. Sum = 0.0
8. For k=1 to M
9. Sum = Sum + A(i,k) * B(k,j)
10. Next k
11. C(i,j) = Sum
12. Next j
13. Next i