Ángulo entre dos puntos

[kotai]

Hola a todos

Necesito calcular el ángulo [0º..360º[ entre dos puntos (x1,y1) y (x2,y2) (el ángulo que tendría una recta que uniera a los dos puntos)

Se que en C++ se puede hacer con la función: atan2(y2-y1,x2-x1); pero en delphi no existe la función Atan2.

¿ algúna función de delphi que haga esto u otro modo de calcularlo ?

Gracias.

[Robert01]

Hay una función llamada arctan, podés usar esa

Saludos

[donald shimoda]

Empezado por Robert01

Hay una función llamada arctan, podés usar esa

Saludos

Si el tema es como alimentas dos puntos. Ahi se le va a complicar al amigo, relacionar esos dos puntos y sacar un número coherente a lo que esta buscando.

[kotai]

El problema de ArcTan es que no diferencia bien los cuadrantes, he hecho:

RadToDeg(ArcTan((y2-y1)/(x2 - x1)))

pero solo devuelve un número entre [0..90] en el 1º y 3º cuadrante y [0..-90] en el 2º y 4º cuadrante por lo que no se realmente el ángulo.

Saludos.

[roman]

Empezado por kotai

en delphi no existe la función Atan2.

Pero sí existe ArcTan2.

// Saludos

[Robert01]

Código Delphi [-]
function AngleRad(x1,y1,x2,y2:double):double;
begin
  result:=ArcTan2(y2-y1,x2-x1);
end;

function AngleDeg(x1,y1,x2,y2:double):double;
begin
  result:=RadToDeg(ArcTan2(y2-y1,x2-x1));
  if result<0 then result:=360.0+result;
  if result>=360.0 then result:=0;
end;

Espero que ande bien

[kotai]

Empezado por roman

Pero sí existe ArcTan2.

// Saludos

Muchas gracias, eso es lo que necesitaba.

Con lo fácil que era y no probarlo... me había metido en la unit pas y allí no estaba esa función, tendría que haber mirado en la unit math.

Saludos