Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function PI() As Double PI = 4 * Atn(1) End Function Function RadDeg(x As Double) As Double '------------------------------------------------------------------- ' Pretvara radiane u stepene '------------------------------------------------------------------- RadDeg = x / PI() * 180 End Function Function Azimut(X1 As Single, Y1 As Single, X2 As Single, Y2 As Single) As Single Dim Dx As Single Dim DY As Single Dim Ugao As Double Dx = X1 - X2 DY = Y1 - Y2 Ugao = Atn(Abs(DY) / Abs(Dx)) If Dx < 0 Then If DY < 0 Then Ugao = Abs(Ugao) + PI Else Ugao = PI - Abs(Ugao) End If Else If DY < 0