Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541721 Sun, 21 Mar 2010 18:12:12 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541721 я уже сам все решил)))
спс за формулу))) :D]]> v1m Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541436 Sun, 21 Mar 2010 10:09:24 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541436 я понял как перевести это в градусы :rolleyes:
ток у меня максимально 180 а не 360
перевожу так
Градусы = Радианы * 180 / pi]]> v1m Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541348 Sun, 21 Mar 2010 06:14:11 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541348 Цитата v1m @
задано 2 отрезка (х1,у1)-(х2,у2) и (х2,у2)-(х3,у3)
у этих отрезков есть 1 общая точка.
и как найти угол?

один из вариантов найти проходящие через отрезки прямые и найти угол между ними ... 8-)]]> andrew.virus Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541322 Sat, 20 Mar 2010 23:20:34 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541322
dx1 = x1 - x2
dy1 = y1 - y2
dx2 = x3 - x2
dy2 = y3 - y2

a = dx1*dy2 - dy1*dx2
b = dx1*dx2 + dy1*dy2

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

Со знаком только надо разобраться]]> amk Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541297 Sat, 20 Mar 2010 21:45:45 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541297 Все же подозреваю, что "не работает" связано или с тем, что автор ожидал увидеть угол в градусах, или что автор вообще хотел получить угол в диапазоне от 0 до 360 градусов, а не 0-180 градусов.
Впору писать алгоритм расшифровывания мыслей авторов :D]]> Fts Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541275 Sat, 20 Mar 2010 21:21:22 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541275 Fts Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541179 Sat, 20 Mar 2010 18:50:59 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541179 v1m Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541170 Sat, 20 Mar 2010 18:31:24 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2541170
ИСХОДНИК

должно в 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 Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540970 Sat, 20 Mar 2010 14:13:39 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540970 Da$aD Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540948 Sat, 20 Mar 2010 13:49:23 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540948 v1m Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540946 Sat, 20 Mar 2010 13:48:27 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540946 volvo877 Алгоритмы https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540938 Sat, 20 Mar 2010 13:37:27 +0000 подскажите формулу как найти угол между двумя отрезками https://forum.sources.ru/index.php?showtopic=298138&view=findpost&p=2540938 у этих отрезков есть 1 общая точка.
и как найти угол?]]> v1m Алгоритмы