Находит угол, заданный тремя точками.
Visual Basic:
Function VertexAngle(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double, X3 As Double, Y3 As Double) As Double
X1, Y1 - координаты первой точки
X2, Y2 - координаты второй точки (вершины угла)
X3, Y3 - координаты третьей точки
Значение найденного угла возвращается в радианах. Учитывается направление обхода точек, т.е. угол может быть больше 2*Pi