Дано дві точки Aі B, знайдіть кут від прямої AOдо лінії BOпро точку, Oде Oпоходження ( (0,0)). Крім того, кут може бути позитивним чи негативним залежно від позицій точок (див. Приклади). Вхідні дані будуть балами Aта Bможуть бути подані у будь-якій зручній формі. Вихідним буде кут у градусах (але він позитивний, якщо AOйого повернути проти годинникової стрілки щодо початку, щоб отримати, BOі негативним, якщо повернути його за годинниковою стрілкою). Якщо кут становить 180 градусів, ви можете повернути негативний чи позитивний вихід. Аналогічно, кут може бути позитивним або негативним варіантом того ж кута ( 90 degдорівнює -270 deg). Приклади:

• Вхід: A(5,5) B(5,-5)Вихід: -90( AOповертається на -90градуси для отримання BO).

• Вхід: A(5,-5) B(5,5)Вихід: 90( AOповертається на 90градуси для отримання BO).

Це код-гольф , тому найкоротший код у байтах виграє!

Pyth, 11 байт

.t-FPM.jMQ6

Демонстрація

Введення подано у форматі:

[[Bx, By], [Ax, Ay]]

Якщо бажано, щоб A вийшов першим, це можна змінити на 1 байт.

Пояснення:

.t-FPM.jMQ6
               Implicit: Q = eval(input())
      .jMQ     Convert input pairs to complex numbers.
    PM         Take their phases (angles in the complex plane).
  -F           Take the difference.
.t        6    Convert to degrees

TI-BASIC, 13 байт

Для калькуляторів серії TI-83 + / 84 +.

Degree
Input Y
min(ΔList(R►Pθ(Ans,∟Y

Щоб скористатися цією програмою, введіть список {x1,x2}через змінну Ans і {y1,y2}під запитом.

CJam, 14 байт

q~::ma:-P/180*

Це повна програма, яка читає вхідні дані [[Ax Ay] [Bx By]]від STDIN.

Спробуйте його в Інтернеті в інтерпретаторі CJam .

Як це працює

q~             e# Read and evaluate all input.
  ::ma         e# Replace each point (x, y) with atan2(x, y).
               e# This returns its angle with the positive y axis, measured clockwise.
      :-       e# Compute the difference of the two resulting angles.
               e# This returns the angle between the points, measured counter-clockwise.
        P/180* e# Divide by Pi and multiply by 180 to convert to degrees.

Міньколанг 0,9 , 112 байт

Мені дуже хочеться реалізувати функції триггера як вбудовані зараз ... але це було весело! (Caveat: це дає позитивну різницю кутів, а не підписану різницю кутів. Враховуючи мої обмеження, я думаю, що це виправдано.)

4[n]0c2c*1c3c*+r4[2;1R]r+1R+0g*12$:;$:8[0ci2*3+d1R;0g$:1i1+[i2*1+d1+$:*]*]$+'3.141592654'25*9;$:$:12$:r-66*5**N.

Спробуйте тут.

Пояснення

Я опублікую більш повне пояснення, якщо хтось цього хоче, але суть його:

4[n]                                    Take in 4 integers from input
0c2c*1c3c*+                             dot product
r4[2;1R]r+1R+0g*12$:;                   magnitudes of vectors
$:                                      dot product divided by magnitudes (z)
8[0ci2*3+d1R;0g$:1i1+             *]    Taylor series for arccos
                     [i2*1+d1+$:*]      In particular, the coefficient (1/2 * 3/4 * ...)
$+                                      Add them all up!
'3.141592654'25*9;$:$:                  Divide by pi for converting to degrees
12$:r-                                  Subtract from 1/2 - I now have arccos(z)
66*5**                                  Convert to degrees
N.                                      Output as number and stop.

Математика, 22 байти

{-1,1.}.ArcTan@@@#/°&

Приклад:

In[1]:= {-1,1.}.ArcTan@@@#/°&[{{5,5},{5,-5}}]

Out[1]= -90.

In[2]:= {-1,1.}.ArcTan@@@#/°&[{{5,-5},{5,5}}]

Out[2]= 90.

Javascript, 66 байт

let f=(a,b)=>(Math.atan2(b.y,b.x)-Math.atan2(a.y,a.x))*180/Math.PI;

демонстрація

Джулія, 18 25 байт

f(A,B)=angle(B/A)/pi*180

Це передбачає, що "будь-яка зручна форма" вже дозволяє Aі Bнадаватись як складні числа. Тоді комплексна арифметика чисел робить усі важкі підйоми.

Редагувати: перетворений фрагмент у функцію. 18-байтна версія працює лише в системі REPL-версія Julia.

Python 2.7, 73 байт

from math import*
f=lambda A,B:degrees(atan2(B[1],B[0])-atan2(A[1],A[0]))

Тест:

f((5,5),(5,-5)) #-90.0
f((5,-5),(5,5)) #90.0

Октава, 43 байти

f=@(a,b)(cart2pol(b)-cart2pol(a))(1)*180/pi

Введення-виведення:

octave:40> f([5,5],[5,-5])
ans = -90

octave:41> f([1,0],[0,1])
ans = 90

CJam, 15 байт

l~ma@@ma-P/180*

Думав, що я потрапляю і в гру CJam. Спробуйте в Інтернеті . Введення здійснюється у формі bx by ax ay. На жаль, це найкоротший метод вирішити цей виклик без копіювання відповіді Денніса.

TeaScript, 28 байт

Я дійсно повинен реалізувати триггерні функції ...

$.atan2(_[3]-y,z-x)*180/$.PI

Спробуйте це введення в Інтернетa.x a.y b.x b.y

Пояснення

$.atan2(       // Arc Tangent of...
    _[3] - y,  // 4th input - 2nd input
       z - x,  // 3rd input - 1st input
) * 180 / $.PI // Converts rad -> deg

Рубі, 64 , 58 байт

a=->(b){b.map{|c|Math.atan2(*c)}.reduce(:-)*180/Math::PI}

Використання

a.call [[5, 5], [5, -5]] # => -90.0
a.call [[5, -5], [5, 5]] # => 90.0

JavaScript, 49 байт

(a,b)=>((c=Math.atan2)(...b)-c(...a))/Math.PI*180

Введення приймається у формі: [aY, aX], [bY, bX](зверніть увагу на зворотний х / у)

Simplex v.0.7 , 13 байт

Я радий, що додав mathrelations: D На жаль, не можу взяти точне введення. Отже, я ввожу кожну точку як окреме число (Ax, Ay, Bx, By). (Я використовував це як ресурс.)

(iRi~^fR)2LSo
(       )2    ~~ repeat inner twice
 iRi          ~~ take two chars of input (x,y)
    ~         ~~ switch top 2 on stack
     ^f       ~~ apply atan2 on (y,x)
       R      ~~ go right
          L   ~~ go left
           S  ~~ subtract result
            o ~~ output as number

Я можу зберегти знак, якщо я можу взяти дані як (Ay, Axe, By, Bx):

(iRi^fR)2LSo

C, 88 байт

#include<math.h>
typedef double d;d g(d x,d y,d a,d b){return atan2(b-y,a-x)*180/M_PI;}

Вимагає компілювання з GCC, щоб скористатися M_PIтим, що його визначають math.hяк частину вбудованих математичних констант GCC . Спробуйте в Інтернеті - оскільки ideone не використовує GCC (мабуть), потрібно кілька додаткових байтів, щоб достатньо точних цифр π.