Поворот круга (алгоритм)

[GreenFirefly]

Есть круг с отверстиями, пронумерованными от 0 до 359.
Есть ранее запомненная позиция A (например, если А = 63 значит было запомнено 63-е отверстие). В любой момент времени мы получаем текущую позицию P, которая может быть любой от 0 до 359.
Как реализовать движение по минимиальному расстоянию от Р к А (т.е. указать как кругу двигаться - по часовой или против часовой стрелки)?

P.S. Когда инкрементируется Р (текущая позиция) то при переходе нулевой позиции Р обнуляется. Т.е. Р - это счетчик позиций: досчитал до 359, сдвинулся еще вперед (+1) и обнулился.

[Аватар]

(p>a и p-a<=180) или (p<a и a-p>180) против часовой иначе по

[evg_m]

1) пишем ДВЕ функции ВЫЧИСЛЕНИЯ расстояний ПО /ПРОТИВ часовой стрелки
function Дистанция по часовой стрелке (A, P)
дистанция :=P-A;
если диcтанция <0 то дистанция :=дистанция+360;

function Дистанция против часовой стрелки(A,P)
дистанция :=A-P;
если диcтанция <0 то дистанция :=дистанция+360;

2) ВЫЧИСЛЯЕМ, СРАВНИВАЕМ и ПРИНИМАЕМ решение.
если Дистанция по часовой(A,P) <Дистанция против часовой(A,P) то
ДВИЖЕНИЕ ПО ЧАСОВОЙ
иначе
ДВИЖЕНИЕ ПРОТИВ ЧАСОВОЙ


0) применяем формулЫ
(P-A +360) mod 360 //расстояние по часовой
(A-P +360) mod 360 //расстояние против часовой

[GreenFirefly]

Сообщение от Аватар

(p>a и p-a<=180) или (p<a и a-p>180) против часовой иначе по

Кажется не сработает. Например, А = 350 и Р = 10 требует поворота по ЧС.

[min@y™]

(т.е. указать как кругу двигаться - по часовой или против часовой стрелки)?

// a0, a = углы поворота (0...359°) - исходный и требуемый
// вернёт 
//   +1 - поворот против ч/с
//   -1 - поворот по ч/с
//    0 - поворот на 180° (пофигу, куда крутить)
function Direction(const a0, a: Integer): TValueRelationship;
begin
  Result:= CompareValue(abs(a - a0), 180);
end;

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!

Возможно, попутал знак (±).

[GreenFirefly]

Сообщение от min@y™

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!

Возможно, попутал знак (±).

Поздно. Микроконтроллер прошит и плата отправлена в производство. Ждите что-нибудь падающее сверху на голову, лол.

[Аватар]

Как реализовать движение по минимиальному расстоянию от Р к А

Например, А = 350 и Р = 10 требует поворота по ЧС.

А если подумать

[GreenFirefly]

Сообщение от Аватар

А если подумать

Мда
Всем спасибо, вопрос закрыт.

[eoln]

Вопрос о безразличии движения и его отсутствии не рассматривается?

var
  A, P, K: integer;
begin
A := 20;
P := 0;
repeat
K := (360 + P - A) mod 360;
write(A:3, ' ==> ', P:3, '  ');
if A = P then writeln('стоим')
  else if  k = 180 then writeln('без разницы')
    else if k > 180 then writeln('против часовой')
      else writeln('по часовой');
p := p+20;
until P>360;
readln;
end.

UPD

вопрос закрыт.

ну раз закрыт, то закрыт