求夹角

nxy_918

已知A(xa,ya)、B(xb,yb)、C（xc，yc）三点坐标，如何求取角<ABC得角度？

fjfhgdwfn

数学问题啊。看下高中的书就是了。

nxy_918

高中没学好

fjfhgdwfn

fwj(Xa-Xb,YA-YB)-fwj(...)

再判断下大小180度就是了。

Public Function fwj(ByVal x As Double, ByVal y As Double) As Double
If x = 0 Then
    If y > 0 Then
    fwj = 3.14159265358979 / 2
    Else
    fwj = 3.14159265358979 * 1.5
    End If
Else
    fwj = Atn(y / x)
    If x > 0 And y > 0 Then fwj = fwj
    If x > 0 And y <= 0 Then fwj = 2 * 3.14159265358979 + fwj
  
    If x < 0 Then fwj = fwj + 3.14159265358979
End If
End Function