Comment faire pour déterminer l'angle nécessaire pour le voyage à partir de X1,Y1 et X2, Y2).
angles Relatifs
Dessin d'une ligne à partir de 100, de 100 à 200, 200 signifierait que vous êtes
lent de votre ligne à 135 degrés.
Cette fonction détermine l'angle.
fonction de RelativeAngle(X1,Y1, X2,Y2 : Integer) : Integer
var
& nbsp & nbsp Thêta : Extended
& nbsp & nbsp XDist,
& nbsp & nbsp YDist : Integer
begin
& nbsp & nbsp Result := 0
& nbsp & nbsp //arctan((y2-y1)/(x2-x1))
& nbsp & nbsp XDist := X2 - X1
& nbsp & nbsp YDist := Y1 - Y2
& nbsp & nbsp si (XDist = 0) et (YDist=0) then exit
& nbsp & nbsp si YDist=0, alors
& ! & ! & ! & nbsp Thêta := arctan((X2-X1))
& nbsp & nbsp else
& ! & ! & ! & nbsp Thêta := arctan((X2-X1)/(Y1-Y2))
& nbsp & nbsp Résultat := Round(RadToDeg(Theta))
& nbsp & nbsp si (X2 >= X1) et (Y2 >= Y1) alors //Quadrant = 2
& ! & ! & ! & nbsp Résultat := 90 (90-Abs(Result))
& nbsp & nbsp else
& nbsp & nbsp si (X2 <= X1) et (Y2 >= Y1) alors //Quadrant = 3
& ! & ! & ! & nbsp Résultat := 180 Résultat
& nbsp & nbsp else
& nbsp & nbsp si (X2 <= X1) et (Y2 <= Y1) puis //Quadrant = 4
& ! & ! & ! & nbsp Résultat := 270 90-Abs(Suite)
fin
Angle relatif
Angle relatif : Plusieurs milliers de conseils pour vous faciliter la vie.
Comment faire pour determiner l'angle necessaire pour le voyage a partir de X1,Y1 et X2, Y2).
angles Relatifs
Dessin d'une ligne a partir de 100, de 100 a 200, 200 signifierait que vous etes
lent de votre ligne a 135 degres.
Cette fonction determine l'angle.
fonction de RelativeAngle(X1,Y1, X2,Y2 : Integer) : Integer
var
& nbsp & nbsp Theta : Extended
& nbsp & nbsp XDist,
& nbsp & nbsp YDist : Integer
begin
& nbsp & nbsp Result := 0
& nbsp & nbsp //arctan((y2-y1)/(x2-x1))
& nbsp & nbsp XDist := X2 - X1
& nbsp & nbsp YDist := Y1 - Y2
& nbsp & nbsp si (XDist = 0) et (YDist=0) then exit
& nbsp & nbsp si YDist=0, alors
& ! & ! & ! & nbsp Theta := arctan((X2-X1))
& nbsp & nbsp else
& ! & ! & ! & nbsp Theta := arctan((X2-X1)/(Y1-Y2))
& nbsp & nbsp Resultat := Round(RadToDeg(Theta))
& nbsp & nbsp si (X2 >= X1) et (Y2 >= Y1) alors //Quadrant = 2
& ! & ! & ! & nbsp Resultat := 90 (90-Abs(Result))
& nbsp & nbsp else
& nbsp & nbsp si (X2 <= X1) et (Y2 >= Y1) alors //Quadrant = 3
& ! & ! & ! & nbsp Resultat := 180 Resultat
& nbsp & nbsp else
& nbsp & nbsp si (X2 <= X1) et (Y2 <= Y1) puis //Quadrant = 4
& ! & ! & ! & nbsp Resultat := 270 90-Abs(Suite)
fin