3*3 matris carpımı

[onselder]

S.a. 3*3 matris çarpımı için kod bilen var mı arkadaşlar yarın bi ödevim var da yardm edenlere teşekkurler...

[mkysoft]

valla çok yazdım hem delphide hem vb'de. kağıt üzerine yaz çok rahat çıkarırsın algoritmayı. zaten 3*3 lük çok kolay. ben sınırsız yapmıştım. 3*3* için algoritmaya bile gerek yok direk çarptır gitsin. bulursam link atarım

[mkysoft]

VB kodlarını bulabildim. umarım işine yarar.

Kod: Tümünü seç

If Val(a) < 0 Then Exit Sub
'---- iki boyutlu için
If Val(a) = 2 Then
With m
Text1.Text = Val(.TextMatrix(1, 1)) * Val(.TextMatrix(2, 2)) - Val(.TextMatrix(1, 2)) * Val(.TextMatrix(2, 1))
End With
Exit Sub
End If
'--- çok boyutlu matris için
atoplam = 0
For i = 1 To a
carpim = 1
For j = 1 To a
b = j + i - 1
If b > Val(a) Then b = b - Val(a)
carpim = carpim * Val(m.TextMatrix(j, b))
Next j
atoplam = atoplam + carpim
Next i
MsgBox atoplam
'---eksi tarafın toplanması
etoplam = 0
For i = 1 To a
carpim = 1
For j = a To 1 Step -1
b = j + i - 1
If b > Val(a) Then b = b - Val(a)
carpim = carpim * Val(m.TextMatrix(a - j + 1, b))
Next j
etoplam = etoplam + carpim
Next i
MsgBox etoplam
Text1.Text = atoplam - etoplam

m burada bir stringgrid (vbde flex grid oalrak geçer.)

Kod: Tümünü seç

texmatrix

hücreye ulaşmak için.

Kod: Tümünü seç

val

metni sayıya çevirmek için. a değişkeni satır ve sütün sayısını tutuyor.