Hi friends,

I want to ask a question about finding matrix which is type 5x5 inversion. These my code. This was formed by gauss jordan elimination method.

I get overflow error in this line "Dizi(i, j) = Dizi(i, j) / y".




vb Code:
  1. 'the variants were defined and assigned

  2.  
  3. For i = 1 To 5

  4.     Dizi(i, i + 5) = 1

  5. Next

  6.  
  7. For i = 1 To 4

  8. For j = i + 1 To 5

  9.     If Dizi(i, i) = 0 Then

  10.         For k = i + 1 To 5

  11.         If Dizi(k, i) <> 0 Then

  12.             For l = 1 To 10

  13.                 Dizi(i, l) = Dizi(i, l) + Dizi(k, l)

  14.             Next l

  15.         End If

  16.         Next k

  17.     End If

  18.     

  19.     w = Dizi(j, i) / Dizi(i, i)

  20.     For l = 1 To 10

  21.         Dizi(j, l) = Dizi(j, l) - w * Dizi(i, l)

  22.     Next l

  23. Next j

  24. Next i

  25.  
  26.  
  27.     For i = 5 To 2 Step -1

  28.     For j = 4 To 1 Step -1

  29.         If Dizi(i, i) = 0 Then

  30.             For k = i - 1 To 1 Step -1

  31.                 If Dizi(k, i) <> 0 Then

  32.                     For l = 1 To 10

  33.                         Dizi(i, l) = Dizi(i, l) + Dizi(k, l)

  34.                     Next l

  35.                 End If

  36.             Next k

  37.         End If

  38.         

  39.     w = Dizi(j, i) / Dizi(i, i)

  40.         For l = 1 To 10

  41.             Dizi(j, l) = Dizi(j, l) - w * Dizi(i, l)

  42.         Next l

  43.     Next j

  44.     Next i

  45.     

  46.     For i = 1 To 5

  47.         If Dizi(i, i) <> 1 Then y = Dizi(i, i)

  48.     For j = 1 To 10

  49.         Dizi(i, j) = Dizi(i, j) / y

  50.     Next j

  51.     Next i



Could you say where the mistake is?