Calcul d'un angleRésolu

Question

Salut, je cherche &#224; calculer l'angle d'un vecteur vitesse &#224; partir de la norme de cette vitesse et de ces coordonn&#233;es...mais ArcTan et ArcTan2 sont un peu foireuse et j'ai perdu mes notions de trigo pour arriver &#224; faire la demarche de chaque cas....merci pour l'aide.

WhiteHippo · Accepted Answer

function CalculAngle(x, y: extended): extended;
const
  EPSILON =  0.0000001 ; // au choix

begin
  Result := 0.0;
  if ( ABS(x) < EPSILON ) 
then 
    begin 

    Result : = PI/2; // 90 degr&#233;s
    if ( y < 0 ) 
then R
esult := -Result ; 
// -90 degr&#233;s
  
end else
  begin
    if ( x < 0 ) then Result := PI - ArcTan(-Y / X)   // 2eme ou 3&#232;me quadrant
                 else
 Result :=      ArcTan( Y / X) ; // 1er ou 4&#232;me quadrant
  end;
end;

Cordialement.

cs_Gimli · Answer

salut,
voici 1 r&#233;ponse qui, j'espere, te satisfera:
soit V(Vx, Vy, Vz) les coordonnes de ton vecteur et A l'angle que tu cherche:
tan(A) = a/bavec a Vy, b racine(Vx&#178; + Vz&#178;)
ou sinon: cos(A) = (b&#178; + c&#178; - a&#178;)/(2bc)avec a Vy, b racine(Vx&#178; + Vz&#178;) et c = ||V||
essaye ca, cependant je ne suis pas sur d'avoir bien compris ta question car quand on a les coordonnes d'un vecteur, on a pas besoin de sa norme (ma formule ne correspondrait peut etre pas a ce que tu cherche en fait, a voir)
en tout cas cette 2e formule s'appelle le th&#233;oreme d'Al-Kashi et permet de calculer les angles dans un triangle.
@+

akhria · Answer

Ah zut j'ai oubli&#233; de dire que c'&#233;tait de la 2D, j'ai un vecteur vitesse V(Vx,Vy) donc avec V sa norme, et je cherche l'angle d'orientation en radian, mais qui fonctionne dans les 4 quadrans du cercle trigo sans exception...et ArcTan et ArcTan2 ne renvoient pas pr&#233;cisement dans les bons quadrans, ex : Tan X= Sin(u)/Cos(v) mais aussi = -Sin(u)/-Cos(u)....Merci

akhria · Answer

An fait je fesai un ArcCos(Vx/V) et un ArcSin(Vy/V) et je reutilisai les valeurs direct, mais en fait j'ai vraiment besoin de faire un ArcTan(Vy/Vx) pour trouver l'angle exact...Merci !

cs_Kenavo · Answer

X := ArcTan(Vy/Vx); if (Vx < 0) then if Vy > 0 X := X + pi else X := X - pi; enfin, je crois ! Ken@vo

Code, Code, Codec ! http://www.pourflorenceethussein.org/ [%3C/body ]

akhria · Answer

la ca me renvoi les bonnes valeurs de 90 &#224; 180 degr&#233;s mais pas pour les 3 autres cadrans
jai trouv&#233; un bout de code

If dX > 0.0001 then
        CalculAngle := ArcTan(dY / dX)
    else if dX < -0.0001 Then
        CalculAngle := PI - ArcTan(-dY / dX)
    else
        CalculAngle := Sign(dY) * PI / 2;

mais ca ne calcul bien que de 0 &#224; 270&#176;, quelquun a une id&#233;e pour le dernier cadran? lol merci

Claude1985 · Answer

J'ai une petite question a cette  discussion, si on fait le truc suivant pour trouver l'angle : A = acos((b² + c² - a²)/(2bc)), alors A est -il donné en degrés ou en radien?

merci

Bacterius · Answer

Ben sachant que la fonction "acos" attend probablement un angle en radians et fait donc ses calculs en radians, il y a de très ([très] très) fortes chances pour que A soit donné en degrés radians. 
Dans Delphi, si c'est pas précisé, c'est du radian !

Cordialement, Bacterius !

Calcul d'un angle

8 réponses

Votre réponse

Discussions similaires