подскажите формулу как найти угол между двумя отрезками , ...

[v1m]

задано 2 отрезка (х1,у1)-(х2,у2) и (х2,у2)-(х3,у3)
у этих отрезков есть 1 общая точка.
и как найти угол?

[volvo877]

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

[v1m]

сор

[Da$aD]

Общая точка является концом отрезка, или может быть где угодно?

[v1m]

не работает(

ИСХОДНИК

должно в Form1.Caption писать размер угла

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Math, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
  x2=200;
  y2=200;
  x1=300;
  y1=200;
var
  Form1: TForm1;
   a : single;
implementation
 
 
{$R *.dfm}
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  xa,ya,xb,yb : longint;
begin
  xa:=x1-x2;
  ya:=y1-y2;
  xb:=x-x2;
  yb:=y-y2;
  a:=arccos((xa*xb+ya*yb)/sqrt((sqr(xa)+sqr(ya))*(sqr(xb)+sqr(yb))));
  Form1.Caption:=FloatToStr(a);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Canvas.Ellipse(100,100,300,300);  
  Canvas.MoveTo(200,200);
  Canvas.LineTo(300,200);
  Timer1.Enabled:=false;  
end;
 
end.

Сообщение отредактировано: v1m - 20.03.10, 18:34

[v1m]

я там выложил свой исходник посмотри плиз...

[Fts]

Всё правильно, должно работать, осталось угол в градусы перевести для красоты.

[Fts]

А я вижу только одну ситуацию возможного обрушения
Все же подозреваю, что "не работает" связано или с тем, что автор ожидал увидеть угол в градусах, или что автор вообще хотел получить угол в диапазоне от 0 до 360 градусов, а не 0-180 градусов.
Впору писать алгоритм расшифровывания мыслей авторов

[amk]

Вот еще вариант

dx₁ = x₁ - x₂
dy₁ = y₁ - y₂
dx₂ = x₃ - x₂
dy₂ = y₃ - y₂

a = dx₁*dy₂ - dy₁*dx₂
b = dx₁*dx₂ + dy₁*dy₂

θ = arctan (a/b)
или лучше (при наличии нужной функции)
θ = atan2 (a, b)
Второй вариант дает угол в диапазоне ±π

Со знаком только надо разобраться

[andrew.virus]

Цитата v1m @ 20.03.10, 13:37

задано 2 отрезка (х1,у1)-(х2,у2) и (х2,у2)-(х3,у3)
у этих отрезков есть 1 общая точка.
и как найти угол?

один из вариантов найти проходящие через отрезки прямые и найти угол между ними ...

[v1m]

сор что не написал что не работает))))
я понял как перевести это в градусы
ток у меня максимально 180 а не 360
перевожу так
Градусы = Радианы * 180 / pi

[v1m]

не ты меня не так понял ну это уже неважно)))
я уже сам все решил)))
спс за формулу)))

Сообщение отредактировано: v1m - 21.03.10, 18:13