Как найти угол между отрезком и осью(любой )

← →
TRyaSS © (2006-04-25 09:49) [0]

хоть Х, хоть У.Подскажите плз. Даны только координаты точек...

← →
AbrosimovA © (2006-04-25 12:14) [1]

procedure TForm1.Button1Click(Sender: TObject); var a: extended; // óãîë â ãðàäóñàõ y1,x1,y2,x2: extended; //êîîðäèíàòû òî÷åê begin (* y1 = k*x1 + b; y2 = k*x2 + b -> -> b = y1 - k*x1; b = y2 - k*x2 -> -> y1 - k*x1 = y2 - k*x2 -> -> y1 - y2 = k * (x1 - x2) -> -> k:=(y1-y2) / (x1-x2) = tan(a) -> -> a = arctan(k) = arctan((y1-y2) / (x1-x2)) *) DecimalSeparator:="."; y1:=0.0; x1:=0.0; y2:=4.0; x2:=3.0; a:=RadToGrad(arctan((y1-y2) / (x1-x2))); Caption:=FloatToStr(a) // ~ èñêîìûé óãîë ñ îñüþ X end;

← →
AbrosimovA © (2006-04-25 12:18) [2]

uses Math; procedure TForm1.Button1Click(Sender: TObject); var a: extended; // угол в градусах y1,x1,y2,x2: extended; //координаты точек begin (* y1 = k*x1 + b; y2 = k*x2 + b -> -> b = y1 - k*x1; b = y2 - k*x2 -> -> y1 - k*x1 = y2 - k*x2 -> -> y1 - y2 = k * (x1 - x2) -> -> k:=(y1-y2) / (x1-x2) = tan(a) -> -> a = arctan(k) = arctan((y1-y2) / (x1-x2)) *) DecimalSeparator:="."; y1:=0.0; x1:=0.0; y2:=4.0; x2:=3.0; a:=RadToGrad(arctan((y1-y2) / (x1-x2))); Caption:=FloatToStr(a) // ~ искомый угол к оси X end;

← →
a22 © (2006-04-25 16:06) [3]

нет, ну это ж за 8 или 9 класс математика

/|
c/ | b
/g_|
a

c, a, b - стороны треугольника, g - угол... вот ежели есть точки отрезка, значит есть и a, b
далее tg(g) = b/c -> g = arctg(b/c)
это угол с осью Х, есть нужен с осью Y - ну, картинку треугольника мысленно перевернуть надо. наоборот в частном получится

Спасибо. че-то из головы вылетело ...

млин я вообще еще и очепятался со сторонами, b/a

Как найти угол между отрезком и осью(любой ) Найти похожие ветки