ENVELOPPE CONVEXE D'UN NUAGE DE POINTS

Commentaire de boulacmoi le 19/03/2006 14:41:04

Merci,
Personnellement je suis arrivé a appliqué la méthode dont j'avais parlé sur le forum, a ce que j'ai vu c'est la méthode Jarvis, mais légerement modifié
Je prend le point le plus en bas et je tourne dans le sens trigo en prenant comme point suivant, celui qui m'offre le plus petit angle par rapport a un repère arbitraire

Commentaire de jean_marc_n2 le 19/03/2006 19:56:18

Hello, très sympa, le code est nicekl et bien commenté. Le tout fonctionne parfaitement et l'exemple d'utilisation est très sympa, avec un joli rendu.
Je mets un 10/10, bien mérité.

Commentaire de baka02 le 21/03/2006 11:19:32

Bonjour,
Je ne connais pas votre intérêt pour les algorithmes de calcul d'enveloppes convexes, mais si vous êtes intéressés, vous pouvez chercher (sur Google ou yahoo) des algorithmes de type "divide and conquer" qui ont donné naissance à des algo comme "quick hull". Bon maintenant de là à le coder en VB ...
C'est pas aussi simple que Jarvis mais très intéressant à comprendre et ça introduit des notions de compléxité des algorithmes.
J'ai trouvé ça qui est pas mal :
http://www-timc.imag.fr/Antoine.Leroy/tutoriaux/convexHull/CH.html

Bonne lecture.

Commentaire de Zakata le 28/05/2007 21:48:10

Salut

Je suis en train de regardre ta source car c'est exactement ce qu'il me faut.

J'ai cependant noter une différence entre ce que fesait ton algo et ce que dit ton commentaire et je voulais savoir si ca avait une grande importande:

Tu as écrit :
    '1. Recherche du point situé le plus en bas à gauche
    For i = 0 To UBound(iAbscisses)
        If i = 0 Then
            'Pour faire des comparaisons, il faut bien assigner des valeurs au départ !
            xMin = iAbscisses(0)
            yMin = iOrdonnées(0)
        Else
            'L'abscisse est inférieure : le point est plus à gauche !
            If iAbscisses(i) < xMin Then
                xMin = iAbscisses(i)
                yMin = iOrdonnées(i)
            'L'abscisse est identique mais l'ordonnée est inférieure :
            'le point est plus bas !
            ElseIf iAbscisses(i) = xMin And iOrdonnées(i) < yMin Then
                xMin = iAbscisses(i)
                yMin = iOrdonnées(i)
            End If
        End If
    Next

Or ce bout de code trouve en fait le point le plus a gauche mais pas le plus en bas. Pour le voir j'ai essayer cette suite de points : 3,2,4,4,4,1,1,4,2,1 et il me donne xMin=1 et yMin=4.
Puisque ton code marche, j'imagine que ce ne doit pas être important mais ca veut dire aussi qu'il est possible d'optimiser le programme en suprimant quelques lignes de la boucle cidessus :

    '1. Recherche du point situé le plus à gauche
    'Pour faire des comparaisons, il faut bien assigner des valeurs au départ !
    xMin = iAbscisses(0)
    yMin = iOrdonnées(0)

    For i = 0 To UBound(iAbscisses)
       'L'abscisse est inférieure : le point est plus à gauche !
       If iAbscisses(i) < xMin Then
           xMin = iAbscisses(i)
           yMin = iOrdonnées(i)
        End If
    Next


Voila en gros ma question : l'algo marchera t'il toujours si je le modifi ainsi ?

Merci a plus
Damien

Commentaire de jarodjarod le 28/03/2010 19:43:32

EnveloppeConvexe.exe

prjEnveloppeConvexe.exe

ce sont deux fichiers manquant, et j'en ai besoin !!

SOS help plz.

Commentaire de jarodjarod le 28/03/2010 20:10:05

ok, merci

Commentaire de jarodjarod le 29/03/2010 16:18:08

enfait, je viens de trouver un projet vb Rey_XpBasics, mais je ne sais pas comment proceder pour le faire marcher, il contient un fichier ReyXp.ocx, est ce qu'il faut le copier qqpart ?

PLZ help