Угол поворота

[KoBRaAndrey]

Нужно вычислить угол поворота, есть мои координаты XY и координаты цели.

Пример:
Мой:
-1950.26 - x
-4258.09 - y
Цель:
-2330.00 - x
-4144.75 - y
Угол поворота должен выйти 163

Судя по всему тут нужен косинус и синус но у меня не выходит Помогите

[puporev]

http://gis-lab.info/qa/aveazimuth.html

[KoBRaAndrey]

А на Delphi?

[puporev]

procedure TForm1.Button1Click(Sender: TObject);
var x1,y1,x2,y2,dx,dy,dist,dxa,beta,angle,sc:real;
    gr,mn:integer;
begin
x1:=Strtofloat(Edit1.Text);
y1:=Strtofloat(Edit2.Text);
x2:=Strtofloat(Edit3.Text);
y2:=Strtofloat(Edit4.Text);
dx:= x1 - x2;
dy:= y1 - y2;
dist:= sqrt((dx*dx) + (dy*dy));
dxa:= abs(dx);
beta:= arccos(dxa / dist)*180/pi;
Edit5.Text:=FloattostrF(beta,fffixed,5,2);
if (dx > 0) then
 if (dy < 0) then  angle:= 270 + beta
 else angle:= 270 - beta
else if (dy < 0) then angle:= 90 - beta
 else angle:= 90 + beta;
gr:=trunc(angle);
mn:=trunc(frac(angle)*60);
sc:=frac(frac(angle)*60);
Edit5.Text:=inttostr(gr)+' gr '+inttostr(mn)+' min '
                      +floattostrF(sc,ffFixed,3,1)+' sec';
end;

Только по вашим данным азимут будет не 163, а 106 градусов, проверьте на калькуляторе или графически.

[Sibedir]

Ахтунг, puporev

Сообщение от AutoCAD

AutoCAD.jpg

В компьюторе угол отсчитывается от вектора OX против часовой стрелки.

[Sibedir]

uses
  Math;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  x1, y1, x2, y2, dx, dy, beta: Real;
begin
  x1 := StrToFloat (Edit1.Text);
  y1 := StrToFloat (Edit2.Text);
  x2 := StrToFloat (Edit3.Text);
  y2 := StrToFloat (Edit4.Text);
  dx := x2 - x1;
  dy := y2 - y1;
  beta := ArcTan2 (dy, dx) * 180 / pi;
  Edit5.Text := FloatToStrF (beta, ffFixed, 5, 2);
end;

[puporev]

В компьюторе угол отсчитывается от вектора OX против часовой стрелки.

Да типа слышал где-то про это, но я подумал что нужно реальный азимут, типа как в артиллерии.

[KoBRaAndrey]

Sibedir - спасибо! Все отлично работает, то что нужно!
puporev спасибо! да я делаю куча китайский артиллерий :D
Всем по +