Que onda.

Continuando con los métodos de ordenamiento (y aprovechando que me los están dejando de tarea jaja) aquí les traigo el Ordenamiento Shell.

Este es una "version mejorada" del ordenamiento por burbuja, ya que también compara dos valores del vector y dependiendo de si uno es mayor que el otro, se intercambian. En si lo que hace el método Shell es, primeramente semiordenar el vector, para despues ordenarlo de bien a bien.

Veamos su funcionamiento:

  1. Únicamente al inicio se obtiene el numero de salto (largo del vector/2). Nota: la división es redondeada al entero próximo inferior.
  2. Un ciclo externo girará mientras el Salto sea diferente de 0
  3. Un ciclo interno irá pasando por cada posición del vector iniciando en 0 hasta que el contador del ciclo interno + el Salto sea igual al tamaño del vector.
  4. Dentro del ciclo interno se irán comparando la posición del vector actual con la posición del vector actual + Salto. Si vec[contador] > vec[contador + salto] entonces se intercambian los números, y de esta manera van quedando los numero de menor valor a la izquierda y los de mayor valor a la derecha del vector.
  5. Al final se checa si hubo algún intercambio, si sí entonces se vuelve a repetir el proceso con el mismo salto, de lo contrario el salto se decrementa y se repite el proceso nuevamente.

Gráficamente sería algo como esto:
Ordenamiento Shell

y el codigo es el siguiente:

PLAIN TEXT
VB.NET:
  1. Public Class Form1
  2.  
  3.     Private Function getMilisegundos(ByVal fecha As Date) As Long
  4.         Dim respuesta As Long = 0
  5.         Dim dteFechaAux As Date = New Date(1970, 1, 1, 0, 0, 0, 0)
  6.         respuesta = DateDiff(DateInterval.Second, dteFechaAux, fecha) * 1000 + fecha.Millisecond
  7.         Return respuesta
  8.     End Function
  9.  
  10.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  11.         Dim vec1(1999) As Integer
  12.         Dim rand As New Random
  13.         Dim a, b, aux, saltos, comp1, flag As Integer
  14.         Dim str1 As String
  15.         Dim tim1I As Long = 0
  16.         Dim tim1F As Long = 0
  17.  
  18.         'llenamos el primer vector de numeros aleatorios
  19.         For a = 0 To vec1.Length - 1
  20.             vec1(a) = rand.Next(0, 101)
  21.         Next
  22.  
  23.         'ordenamos primer vector con metodo de Shell y contamos el tiempo trancurrido y total de intercambios
  24.         comp1 = 0
  25.         tim1I = getMilisegundos(DateTime.Now)
  26.  
  27.         saltos = CType(vec1.Length / 2, Integer) 'obtenemos el valor del primero salto
  28.         While (saltos <> 0) 'mientras que saltos sea diferente de cero (0)
  29.             a = 0
  30.             flag = 0 'cada vuelta externa se tiene que reinciar la bandera
  31.             While (a + saltos <vec1.Length)
  32.                 comp1 += 1 'incrementamos el contador de comparaciones
  33.                 If vec1(a)> vec1(a + saltos) Then 'intercambiamos numeros
  34.                     aux = vec1(a)
  35.                     vec1(a) = vec1(a + saltos)
  36.                     vec1(a + saltos) = aux
  37.                     flag = 1 'activamos bandera que nos indica que hubo intercambio
  38.                 End If
  39.                 a += 1
  40.             End While
  41.             If (flag <> 1) Then saltos -= 1 'si NO hubo intercambio, entonces decrementamos los saltos
  42.         End While
  43.  
  44.         tim1F = getMilisegundos(DateTime.Now)
  45.  
  46.         'imprimimos vectores 1,2 y 3 ordenados
  47.         txt1.Text = ""
  48.         str1 = ""
  49.         For a = 0 To vec1.Length - 1
  50.             str1 &= vec1(a) & vbNewLine
  51.         Next
  52.  
  53.         txt1.Text = str1
  54.  
  55.         'imprimimos resultados
  56.         lblcomp1.Text = ""
  57.         lblinter1.Text = ""
  58.         lbltime1.Text = ""
  59.  
  60.         lblcomp1.Text = "Comparaciones: " & comp1
  61.         lbltime1.Text = "Tiempo: " & CType((tim1F - tim1I), String) & " ms"
  62.     End Sub
  63. End Class

y aquí te dejo los archivos para que los descargues.

Descarga