XL 2013 les machistes (utilisateurs de Mac OS peuvent ils tester ceci

[patricktoulon]

Bonjour à tous
@RyuAutodidacte m' a rappelé un lien vers un amis de l'autre monde concernant une classe pseudo dictionnaire pour MAC
malgré que j'apprécie beaucoup l'auteur (avec qui j'ai même collaboré sur l’accélérateur de requête entre autres ) ,je trouve que c'est un peu usine à gaz

j'ai donc fait les choses à ma façon
mais avant d'aller plus loin car des idées j'en ai plein ,si vous êtes un utilisateur sur MAC pouvez vous tester ce pseudo dictionnaire
sur Windows ça match il me faut confirmation sur MAC

Merci pour vos retours

 

[laurent950]

Oui il y a un pivot comme le quicksort et il est très rapide, de toute manière je ne suis pas à une seconde prés car avec 60 000 il met moins de 1 seconde

Je pense que le temps et variable en fonction des ordinateurs ?
tu as le fichier pour que je teste le temps que cela met chez moi ?

 

[RyuAutodidacte]

Hello Laurent,
tu as le lien dans le post# 176

 

[laurent950]

Bonsoir @RyuAutodidacte

Merci pour le lien
je viens de regarder il n'y a pas les 60000 données pour faire le teste avec le fichier, il y a juste le code. j'avais envie de tester avec un de mes code pour voir ce que cela donne.

 

[patricktoulon]

oui Laurent 5 minute j'ajoute le trishellmetsner

 

[laurent950]

oui Laurent 5 minute j'ajoute le trishellmetsner

Avec plaisir de le tester en tris croissant et décroissant et tester sur les mêmes valeurs, je pense avoir trouver un code assez performant.
j'ai déjà tester sur 10 000 valeurs mais avec les mêmes valeurs que toi c'est mieux
on fait le teste que sur le tris uniquement
' le tableau est envoyer pour être trié et on compare le temps sur les mêmes valeurs
tt = Timer()
IntroSortDescending t
MsgBox Timer() - tt

 

[patricktoulon]

voila le recueil est a jour
les modules sont classés de la méthode la plus lente à la plus rapide
testées sur une série de 10 000 nombres aléatoires sans doublons

 

[laurent950]

Re @patricktoulon

juste pour info tu as mis combien en temps pour la plus rapide ?
Voila j'ai les temps dans l'odre avec ton fichier et tes codes

les modules sont classés de la méthode la plus lente à la plus rapide

Le plus rapide chez moi avec ton code le plus rapide c'est 0,05 sec est chez toi ?

Ensuite avec le mien je te montre comme cela ont peux vraiment comparer.

 

[patricktoulon]

chez moi la plus rapide c'est la quicksort 0.015 / 0.02

 

[patricktoulon]

par contre les bubbles chez toi sont plus rapide chez moi c'est 09.xxxxx et 11.64xxx
autrment dit plus de 40% de mieux
par contre les plus rapide chez moi sont un peu plus lentes chez toi
et ben donne le ton code saucisse !!!!!!

 

[laurent950]

Re @patricktoulon

je t'offre mon code. je divise le temps le plus rapide chez toi par 3,3

Module Standard (TrisCroissant)

Sub TestQuickSortCroissant()
    Dim t() As Variant
    Range(Cells(1, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3)).Clear
    t = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
  
    tt = Timer()
    IntroSort t
    MsgBox Timer() - tt
  
    ' Afficher le tableau tris Croissant
    Cells(1, 3).Resize(UBound(t, 1), UBound(t, 2)) = t
    'Dim i As Long
    'For i = LBound(t) To UBound(t)
        'Debug.Print t(i)
    'Next i
End Sub

Sub IntroSort(arr() As Variant)
    Dim low As Long, high As Long
    low = LBound(arr)
    high = UBound(arr)
    IntroSortRecursive arr, low, high, 2 * Log2(high - low + 1)
End Sub

Sub IntroSortRecursive(arr() As Variant, ByVal low As Long, ByVal high As Long, ByVal maxDepth As Long)
    If high <= low Then Exit Sub
    If maxDepth = 0 Then
        ' Si la profondeur maximale est atteinte, utilisez un algorithme de tri plus simple (par exemple, le tri par insertion).
        InsertionSort arr, low, high
    Else
        Dim pivotIndex As Long
        pivotIndex = Partition(arr, low, high)
        IntroSortRecursive arr, low, pivotIndex - 1, maxDepth - 1
        IntroSortRecursive arr, pivotIndex + 1, high, maxDepth - 1
    End If
End Sub

Function Partition(arr() As Variant, ByVal low As Long, ByVal high As Long) As Long
    Dim pivot As Variant
    Dim i As Long, j As Long
    Dim temp As Variant
  
    ' Choisissez un pivot médian
    Dim mid As Long
    mid = (low + high) \ 2
    pivot = arr(mid, 1)
  
    i = low
    j = high
  
    Do
        While arr(i, 1) < pivot
            i = i + 1
        Wend
        While arr(j, 1) > pivot
            j = j - 1
        Wend
      
        If i <= j Then
            ' Échange les éléments
            temp = arr(i, 1)
            arr(i, 1) = arr(j, 1)
            arr(j, 1) = temp
            i = i + 1
            j = j - 1
        End If
    Loop While i <= j
  
    Partition = i
End Function

Sub InsertionSort(arr() As Variant, ByVal low As Long, ByVal high As Long)
    Dim i As Long, j As Long
    For i = low + 1 To high
        j = i
        While j > low And arr(j, 1) < arr(j - 1, 1)
            Swap arr(j, 1), arr(j - 1, 1)
            j = j - 1
        Wend
    Next
End Sub

Sub Swap(ByRef a As Variant, ByRef b As Variant)
    Dim temp As Variant
    temp = a
    a = b
    b = temp
End Sub

Function Log2(ByVal x As Double) As Long
    Log2 = WorksheetFunction.RoundDown(Log(x) / Log(2), 0)
End Function

Module Standard (TrisDecroissant)

Sub TestQuickSortDeCroissant()
    Dim t() As Variant
    Range(Cells(1, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3)).Clear
    t = Range(Cells(1, 1), Cells(Cells(65536, 1).End(xlUp).Row, 1))
    
    tt = Timer()
    IntroSort t
    MsgBox Timer() - tt
    
    ' Afficher le tableau tris Croissant
    Cells(1, 3).Resize(UBound(t, 1), UBound(t, 2)) = t
    'Dim i As Long
    'For i = LBound(t) To UBound(t)
        'Debug.Print t(i)
    'Next i
End Sub

Sub IntroSort(arr() As Variant)
    Dim low As Long, high As Long
    low = LBound(arr)
    high = UBound(arr)
    IntroSortRecursive arr, low, high, 2 * Log2(high - low + 1)
End Sub

Sub IntroSortRecursive(arr() As Variant, ByVal low As Long, ByVal high As Long, ByVal maxDepth As Long)
    If high <= low Then Exit Sub
    If maxDepth = 0 Then
        ' Si la profondeur maximale est atteinte, utilisez un algorithme de tri plus simple (par exemple, le tri par insertion).
        InsertionSort arr, low, high
    Else
        Dim pivotIndex As Long
        pivotIndex = Partition(arr, low, high)
        IntroSortRecursive arr, low, pivotIndex - 1, maxDepth - 1
        IntroSortRecursive arr, pivotIndex + 1, high, maxDepth - 1
    End If
End Sub

Function Partition(arr() As Variant, ByVal low As Long, ByVal high As Long) As Long
    Dim pivot As Variant
    Dim i As Long, j As Long
    Dim temp As Variant
    
    ' Choisissez un pivot médian
    Dim mid As Long
    mid = (low + high) \ 2
    pivot = arr(mid, 1)
    
    i = low
    j = high
    
    Do
        While arr(i, 1) > pivot
            i = i + 1
        Wend
        While arr(j, 1) < pivot
            j = j - 1
        Wend
        
        If i <= j Then
            ' Échange les éléments
            temp = arr(i, 1)
            arr(i, 1) = arr(j, 1)
            arr(j, 1) = temp
            i = i + 1
            j = j - 1
        End If
    Loop While i <= j
    
    Partition = i
End Function

Sub InsertionSort(arr() As Variant, ByVal low As Long, ByVal high As Long)
    Dim i As Long, j As Long
    For i = low + 1 To high
        j = i
        While j > low And arr(j, 1) < arr(j - 1, 1)
            Swap arr(j, 1), arr(j - 1, 1)
            j = j - 1
        Wend
    Next
End Sub

Sub Swap(ByRef a As Variant, ByRef b As Variant)
    Dim temp As Variant
    temp = a
    a = b
    b = temp
End Sub

Function Log2(ByVal x As Double) As Long
    Log2 = WorksheetFunction.RoundDown(Log(x) / Log(2), 0)
End Function

 

[patricktoulon]

on pauvre Laurent tu dis n'importe quoi c'est la quicksort
exactement la même que moi sauf que tu la découpe en plusieur fonction
par contre utiliser des terme vba pour des variable c'est pas top
et la log2 elle est ou ???

 

[laurent950]

Re @patricktoulon

je viens de corrigé le tris décroissant c'est bon les deux fonctionnes bien maintenant j'ai vérifié

 

[patricktoulon]

elle est ou !! la log2??????????

 

[patricktoulon]

re
ok chez moi ta macro pareil que ma quicksort 0.015 / 0.02
mais attention ton résultat de temps est fausser tu emploie des sub
et le return pour le msgbox se déclenche un peu avant la fin

 

[patricktoulon]

bon ok si tu veux que la mette dans le recueil met moi des commentaires dans le code dignes de ce nom