[a2000]

Originariamente inviato da lombardp
Parole, parole, parole... ma finora non ho visto nessun codice completo!

Fateli vedere questi algoritmi !!!

che impazienza, to' per ora solo il bulk:

 i = 1: j = 5
 For k = 1 To iMax * jMax
  v(i, j) = 100
  Call ConnMin(i, j, 0, hMin, vMin)
  If vMin > 8 Then Exit For
  i = i + Di(hMin): j = j + Dj(hMin)
  For h = 1 To 8
   ih = i + Di(h): jh = j + Dj(h)   
   v(ih, jh) = v(ih, jh) - 1
  Next h
 Next k



Sub ConnMin(i, j, n, hMin, vMin)
 
 vMin = v(i + Di(1), j + Dj(1)): hMin = 1
 For h = 2 To 8
  vx = v(i + Di(h), j + Dj(h))
  If vx < vMin Then: vMin = vx: hMin = h
 Next h
 
End Sub