Скачать: CL | DM;

Угол поворота точек   Найти похожие ветки 

← →
Vin_Ghost ©   (2003-05-21 23:05) [0]

Как получить угол, под которым точка 1 направлена к точке 2? Центр поворота - точка 1, а точка 2 меняется.
Пример: если координаты точки 1 (2,2), а точки 2 - (6,6), то угол поворота точки 2 к точке 1 составляет 45 градусов. А если координаты точки 2 - (6, 2), то угол поворота равен 90 градусов и т.д. Дело происходит на плоскости - координата Z не нужна.
Заранее спасибо.

---

← →
Юрий Зотов ©   (2003-05-22 00:38) [1]

Вопрос, достойный Пифагора...
Тем более, что на него уже отвечали...
Извините, а Вы в школе вообще учились, человек с высшим образованием?

procedure TForm1.Button1Click(Sender: TObject);
var
X1, Y1, X2, Y2: integer;
R: Extended;
begin
X1 := StrToInt(Edit1.Text);
Y1 := StrToInt(Edit2.Text);
X2 := StrToInt(Edit3.Text);
Y2 := StrToInt(Edit4.Text);
if X1 = X2 then
if Y2 > Y1 then
R := 0
else if Y2 < Y1 then
R := 180
else raise EMathError.Create ("Duplicated point")
else begin
R := 90 - RadToDeg(ArcTan((Y2 - Y1)/(X2 - X1)));
if X2 < X1 then R := R + 180
end;
Caption := FloatToStr(R)
end;

---

← →
Думкин ©   (2003-05-22 05:01) [2]

Относительно чего направлена?
Относительно оси Ох? Оу? или биссектриссы первой четверти?
Далее - плоскости - а геометрия Евклида, а координаты Декартовы?
И - точки не направляются и направлений не имеют.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c