Figure convexe a partir d'un nuage de point

Question

Bonjour,
J'essaie de faire un petit programme qui me permettrait a partir d'un nuage de points cr&#233;er dans une picture, de r&#233;aliser la figure convexe, donc il y a des points qui seront bon, et d'autre non

Alors en fait, j'emploie une m&#233;thode qui consiste a s&#233;lectionner comme premier point, le point extreme le plus en bas de ma picture, ensuite je calcul l'angle, par rapport a l'horizontal, que forme toutes les droites partant de mon premier point, jusqu'a chaque point, et la droite qui a l'angle le plus grand fait partie donc de la figure convexe, ensuite je passe au point que je viens de trouver, je recalcul les angles de toutes les droites ayant pour origine ce nouveau point et allant aux autre points, et la droite qui a le plus grand angle est la bonne

Donc j'ai un petit soucis pour l'instant, les angles que je calcul ne sont pas bon
pour ce faire, j'ai cr&#233;er cette petite fonction

Function CalcAngle(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
    Dim angle, DimX, DimY As Double
    vX = x2 - x1
    vY = y1 - y2
    angle = (Atn(vY / vX) * 180) / Pi
    If vX < 0 Then angle = 180 + angle
    If vY < 0 Then angle = angle - 180
    If angle>pi then
    CalcAngle = angle
    End If

End Function

Donc voila, j'aurais voulu savoir d'o&#249; viens mon probl&#232;me si vous savez et si vous avez une m&#233;thode plus simple, je suis preneur &#233;galement

Merci

ps: peut &#234;tre qu'il y a une API qui le fait, mais &#231;a ne m'interesse pas, il faut absolument que j'ai un algo pour le faire

boulacmoi · Answer

Oups, j'ai copier des trucs que j'avais en commentaire, et qui &#233;tait faux dans ma fonction
je remet la bonne

Function CalcAngle(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
    Dim angle, DimX, DimY As Double
    vX = x2 - x1
    vY = y1 - y2
    angle = (Atn(vY / vX) * 180) / Pi
    CalcAngle = angle
    End If

End Function

Cacophrene · Answer

Salut !

Une m&#233;thode assez rapide consiste &#224; exploiter le concept math&#233;matique de d&#233;terminant. Je suis s&#251;r que tu pourras trouver sur Internet des exemples 1. de d&#233;terminants (sauf si tu connais, mais comme je ne le sais pas...) 2. d'application des d&#233;terminants aux enveloppes convexes. En g&#233;n&#233;ral cette m&#233;thode fonctionne bien.

Cordialement,
Cacophr&#232;ne

boulacmoi · Answer

Merci, je vais de se pas faire quelque recherche

Cacophrene · Answer

Salut !

Va voir ma source sur http://www.vbfrance.com/code.aspx?ID=36614

Je t'ai fait un exemple

Cacophr&#232;ne

Figure convexe a partir d'un nuage de point

4 réponses

Discussions similaires