COMPARATIF DE METHODES DE TRIS (BULLE, SHELL, SHELL METZNER, A INSERTION....
cs_Arknoth
Messages postés
96
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
22 août 2004
-
8 janv. 2003 à 08:53
cs_bigane Messages postés 46 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 12 février 2004 - 13 janv. 2003 à 19:45
cs_bigane Messages postés 46 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 12 février 2004 - 13 janv. 2003 à 19:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5604-comparatif-de-methodes-de-tris-bulle-shell-shell-metzner-a-insertion
https://codes-sources.commentcamarche.net/source/5604-comparatif-de-methodes-de-tris-bulle-shell-shell-metzner-a-insertion
13 janv. 2003 à 19:45
Lire
Partitions = Partitions "anti-slash" 2
l'anti-slash permet une division entrière d'un entier, c'est plus rapide que la division normale.
A+
bigane
13 janv. 2003 à 19:39
C'est une approche et cela représente bien les différences.
Mais le code est loin d'être optimisé.
J'ai trouvé une description du Shell Mezner sur un autre site :
http://www.devparadise.com/technoweb/code/vb/A121.asp
Là encore, c'est loin d'être optimisé, mais on s'approche.
Quelque chose de plus optimisé, pour un tri d'un tableau de long serait :
Sub Tri_Shell_Metzner(ByVal nbreelemtab As Long)
Dim Partitions As Long, j As Long, i As Long
'On considère que l'on trie des long
Dim temp As Long
Partitions = nbreelemtab
While Partitions ' >= 1
Partitions = Partitions 2
For j = 1 To nbreelemtab - Partitions
i = j
Do While i >= 1
temp = Atrier(i)
If temp > Atrier(i + Partitions) Then
Atrier(i) = Atrier(i + Partitions)
Atrier(i + Partitions) = temp
i = i - Partitions
Else
Exit Do
End If
Loop
Next ' j
ProgressBar1.Value = ProgressBar1.Value + Partitions
Wend
LitTableau
End Sub
9 janv. 2003 à 20:58
je vais ajouter un autre methode, un shell metzner modifie par un prof de math dont la source m'a ete fourni par Rene38 , merci a lui!
encore plus rapide...
9 janv. 2003 à 19:15
8 janv. 2003 à 20:03
try again, and tell me
Salut. wink**
8 janv. 2003 à 08:53
Bravo pour le contrôle ActiveX ProgressBar qui n'en est pas un (PictureBox, joli, forcément ca marche pas).
Autre chose, le VBP est bloqué sur ton répertoire de création, donc il faut utiliser le FRM... arf, ca partait d'un bon sentiment ;-)