[Математика] Определение угла по координатам

be_CoordsToRotation($tX, $tY, $cX, $cY)*45/ATan(1)

Func be_CoordsToRotation($bectr_X1, $bectr_Y1, $bectr_X2, $bectr_Y2) ;Author: dwerf
    Local $bectr_DX = $bectr_X2-$bectr_X1
    Local $bectr_DY = $bectr_Y2-$bectr_Y1
    Local $bectr_AXY = Abs(ATan($bectr_DX/$bectr_DY))
    Local $bectr_AYX = Abs(ATan($bectr_DY/$bectr_DX))
    Local $bectr_hpi = ATan(1)*2
    Local $bectr_Angle = 0
   If $bectr_X1 > $bectr_X2 Then
        $bectr_Angle += 2*$bectr_hpi
        If $bectr_Y1 > $bectr_Y2 Then
            $bectr_Angle += $bectr_AXY
        ElseIf $bectr_Y1 = $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
        ElseIf $bectr_Y1 < $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
            $bectr_Angle += $bectr_AYX
        EndIf
    ElseIf $bectr_X1 = $bectr_X2 Then
        If $bectr_Y1 > $bectr_Y2 Then
            $bectr_Angle += 2*$bectr_hpi
;~      ElseIf $bectr_Y1 = $bectr_Y2 Then
;~      ElseIf $bectr_Y1 < $bectr_Y2 Then
        EndIf
    ElseIf $bectr_X1 < $bectr_X2 Then
        If $bectr_Y1 > $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
            $bectr_Angle += $bectr_AYX
        ElseIf $bectr_Y1 = $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
        ElseIf $bectr_Y1 < $bectr_Y2 Then
            $bectr_Angle += $bectr_AXY
        EndIf
    EndIf
    Return $bectr_Angle
EndFunc

$tX = $cX + $R * Sin($A)
$tY = $cY - $R * Cos($A)

$R = Sqrt(($cX - $tX) ^ 2 + ($cY - $tY) ^ 2)

$A = ASin(($tX - $cX) / $R)

$A = ACos(($cY - $tY) / $R)

$cX = 0
$cY = 0
$tX = 1
$tY = 1

$Pi = 4 * ATan(1)
$R = Sqrt(($cX - $tX) ^ 2 + ($cY - $tY) ^ 2)
$A = ASin(($tX - $cX) / $R)
If $tY > $cY Then
	$A = $Pi - $A
EndIf
If $A < 0 Then
	$A += 2 * $Pi
EndIf

ConsoleWrite(($A * 180 / $Pi) & @CR)

Func be_CoordsToRotation($bectr_X1, $bectr_Y1, $bectr_X2, $bectr_Y2) ;Author: dwerf
    Local $bectr_DX = $bectr_X2-$bectr_X1
    Local $bectr_DY = $bectr_Y2-$bectr_Y1
    Local $bectr_AXY = Abs(ATan($bectr_DX/$bectr_DY))
    Local $bectr_AYX = Abs(ATan($bectr_DY/$bectr_DX))
    Local $bectr_hpi = ATan(1)*2
    Local $bectr_Angle = 0
   If $bectr_X1 > $bectr_X2 Then
        $bectr_Angle += 2*$bectr_hpi
        If $bectr_Y1 < $bectr_Y2 Then
            $bectr_Angle += $bectr_AXY
        ElseIf $bectr_Y1 = $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
        ElseIf $bectr_Y1 > $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
            $bectr_Angle += $bectr_AYX
        EndIf
    ElseIf $bectr_X1 = $bectr_X2 Then
        If $bectr_Y1 < $bectr_Y2 Then
            $bectr_Angle += 2*$bectr_hpi
;~      ElseIf $bectr_Y1 = $bectr_Y2 Then
;~      ElseIf $bectr_Y1 > $bectr_Y2 Then
        EndIf
    ElseIf $bectr_X1 < $bectr_X2 Then
        If $bectr_Y1 < $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
            $bectr_Angle += $bectr_AYX
        ElseIf $bectr_Y1 = $bectr_Y2 Then
            $bectr_Angle += $bectr_hpi
        ElseIf $bectr_Y1 > $bectr_Y2 Then
            $bectr_Angle += $bectr_AXY
        EndIf
    EndIf
    Return $bectr_Angle
EndFunc

$cX = 0
$cY = 0
$tX = 1
$tY = 1

$Pi = 4 * ATan(1)
$R = Sqrt(($cX - $tX) ^ 2 + ($cY - $tY) ^ 2)
$A = ASin(($tX - $cX) / $R)
If $tY > $cY Then
    $A = $Pi - $A
EndIf
If $A < 0 Then
    $A += 2 * $Pi
EndIf

ConsoleWrite(($A * 180 / $Pi) & @CR)

Const $__PI = 4 * ATan(1)

Func _PointToPoint_Angle($x0, $y0, $x, $y)
	If $x0 = $x And $y0 = $y Then Return 0
	; ---
	Local $difX = $x - $x0
	Local $difY = $y - $y0
	Local $tmp = Abs(ATan($difY / $difX))
	; ---
	If $difX < 0 Then $tmp = $__PI - $tmp
	If $difY < 0 Then $tmp = $__PI + ($__PI - $tmp)
	; ---
	Return __GeometryReduceAngle($tmp / ($__PI / 180))
EndFunc

Func __GeometryReduceAngle($iAngle)
	$iAngle = Round($iAngle)
	If $iAngle < 0 Then
		$iAngle = 360 - (Abs($iAngle) - 360)
	EndIf
	While $iAngle >= 360
		$iAngle -= 360
	WEnd
	If $iAngle = 360 Then $iAngle = 0
	Return $iAngle
EndFunc