scrib3
03-22-2013, 04:42 AM
hi
im trying to write a generic matrix multiplier without using the mmult function. Any help on how i would adjust this code ive written for multiplying two 2x2 matrices? thanks :)
Sub task9()
Dim z(2, 2)
Dim y(2, 2)
Dim zy(2, 2)
For i = 1 To 2
For j = 1 To 2
z(i, j) = Range("A6").Cells(i, j)
y(i, j) = Range("D6").Cells(i, j)
Next j
Next i
For zyrow = 1 To 2
For zycolumn = 1 To 2
For zcolumn = 1 To 2
zy(zyrow, zycolumn) = zy(zyrow, zycolumn) + z(zyrow, zcolumn) * y(zcolumn, zycolumn)
Next zcolumn
Next zycolumn
Next zyrow
For i = 1 To 2
For j = 1 To 2
Range("G6").Cells(i, j) = zy(i, j)
Next j
Next i
End Sub
im trying to write a generic matrix multiplier without using the mmult function. Any help on how i would adjust this code ive written for multiplying two 2x2 matrices? thanks :)
Sub task9()
Dim z(2, 2)
Dim y(2, 2)
Dim zy(2, 2)
For i = 1 To 2
For j = 1 To 2
z(i, j) = Range("A6").Cells(i, j)
y(i, j) = Range("D6").Cells(i, j)
Next j
Next i
For zyrow = 1 To 2
For zycolumn = 1 To 2
For zcolumn = 1 To 2
zy(zyrow, zycolumn) = zy(zyrow, zycolumn) + z(zyrow, zcolumn) * y(zcolumn, zycolumn)
Next zcolumn
Next zycolumn
Next zyrow
For i = 1 To 2
For j = 1 To 2
Range("G6").Cells(i, j) = zy(i, j)
Next j
Next i
End Sub