Биссектрисса угла треугольника

[Igoressicus]

Задание в следующем - имееются координаты вершин треугольника.
Необходимо построить биссектриссу от вершины А. Гугление и поиск по форуму пока ни к чему не привели, жду Вашей помощи, Господа.
Хотя бы намёк что-ли..

[sabbathist]

Намек: нормирование векторов, между которыми ищется ищется биссектриса. Потом поиск синуса угла через векторное произведение. ну и поворот вектора на угол в половину от полученного

[eoln]

Можно использовать свойство деления стороны на пропорциональные отрезки

procedure TForm1.Button1Click(Sender: TObject);
var
  x1, x2, x3, y1, y2, y3, x, y: integer;
  k: single;
begin     randomize;
  x1:=random(800); y1:=random(600);//координаты вершин
  x2:=random(800); y2:=random(600);
  x3:=random(800); y3:=random(600);
  k := sqrt( (sqr(x1-x3) + sqr(y1-y3))/(sqr(x1-x2) + sqr(y1-y2)) );//соотношение длин сторон
  x := round((x3+k*x2)/(1+k));//деление отрезка в заданном соотношении
  y := round((y3+k*y2)/(1+k));
  with PaintBox1.Canvas do begin//рисование
    MoveTo(x1, y1);
    LineTo(x2, y2);
    LineTo(x3, y3);
    LineTo(x1, y1);
    LineTo(x, y)
  end
end;

[Z1000000]

http://www.opita.net/node/52