Не могу понять в чем ошибка (вроде школьная математика)

[Алён@]

Задача посчитать углы между тремя отрезками с общей вершиной. Известны координаты вершин отрезков.
вот код вычисления угла между двумя отрезками (p1 - общая вершина, p2,p3 - несмежные вершины каждого из отрезков:

function CalcAngle(p1,p2,p3:TPoint):extended ;
var
a,b,c:extended;
begin
a:=Length_of_segment(p1.X,p1.Y,p2.X ,p2.Y);
b:=Length_of_segment(p1.X,p1.Y,p3.X ,p3.Y);
c:=Length_of_segment(p2.X,p2.Y,p3.X ,p3.Y);
CalcAngle:=ArcCos((a*a+b*b-c*c)/(2*a*b))*180/pi;
end;

Вроде школьная математика, но не могу понять, в чём дело. Когда все углы между отрезками больше 90град, то всё нормально: сумма всех углов в точности равна 360, а когда хотя бы один из углов меньше 90 градусов, то сумма углов может значительно отклоняться от 360. Почему?

На всякий случай весь код во вложеном файле.

// углы между отрезками от 0 до 180 град

[Greblin]

Ну дык, сумма и не обязана быть равна 360 градусам. Углом между лучами называется НАИМЕНЬШИЙ из углов, образованных прямыми, содержащими эти лучи. И область значений арккосинуса - это [0, pi]
Кстати непонятно зачем вы высчитываете третью сторону, если можно через скалярное произведение

cos(alpha) = (x1*x2 + y1*y2) / (|a1| * |a2|)

[Алён@]

Да, точно, можно и так. Забыла. Со случаем на рис 3 понятно как. Всё норамально в случ на рис 2. А вот на рис 3 (когда только 1 угол острый) проблема: например, получилось 138+ 27+ 165=330 <>360!

[Алён@]

Я не через скалярное произведение шла, т.к у меня координаты вершин отрезков известны. А координаты отрезков нужно тогда вычислять. В итоге не на много короче со скалярным, по-моему.

[Greblin]

Скорее всего, у вас ошибка там, где формируются координаты точек, потому что эта функция с явно переданными данными работает правильно (в аттаче). Возможно, что где-то координаты точки, лежащей ниже общей, берутся так, что она получается выше (по результатам похоже).