[tehkonst]

Есть список точек, которые лежат на окружности.
На рисунке - центры белых кругов.

Нужно из них выбрать 2 ближайшие точки к заданной точке (центру желтого круга).

На рисунке две нужные ближайшие точки выделены красным.

Я предполагаю, что нужно найти точку соответствующую минимальному и максимальному углу относительно заданной точки. Помогите, пожалуйста, с кодом.

[gomer]

Во первых не точки, а углы, во вторых что значит помочь?

[tehkonst]

Да верно. На выходе мне нужно 2 точки получить, соответствующие углам.
Спрашиваю, как их проще извлечь? Функциями max и min это возможно?

[ciril]

возможно, только не проще ли оперировать не углами, а расстояниями.

[Кулик Алексей aka kpblc]

Offtop: Мне кажется, что "к центру желтого круга" ближайшими будут не указанные точки, а 2 точки в направлении "против часовой стрелки от круга". Это так, к вопросу о ТЗ

[tehkonst]

Сообщение от ciril возможно, только не проще ли оперировать не углами, а расстояниями.

Я сначала тоже так подумал, но тогда получится то, что написал Алексей. Не те точки скрипт найдет.

[gomer]

Код:

[Выделить все]

 ((lambda (f w) (mapcar f (list (car w) (cadr w))))
  '(lambda (x) (polar c x r))
  (vl-sort (mapcar 'abs (mapcar '- alist (nlist ang))'<)
)

[tehkonst]

gomer, расшифруй, пожалуйста, вот этот кусок

Код:

[Выделить все]

 (mapcar '- alist (nlist ang))

[gomer]

Сообщение от tehkonst расшифруй

ну что ты как дите малое, ей-богу

Код:

[Выделить все]

 (defun nlist (n a)
  (if (< 0 n) (cons a (nlist (1- n) a))))

[tehkonst]

Делает то что этот код? Словами расшифруй.

[gomer]

находит разницу между заданным углом и и углами из списка

[tehkonst]

Спасибо. Сразу видно, когда код настоящий инженер пишет.

[Эдуард]

Здравствуйте коллеги.
Параметр точки лежащей на окружности равен углу в радианах ,

Поэтому предлагаю следующий вариант:
1.Сортировка выбранных точек vl-sort применяя в функции сравнения vlax-curve-getParamAtPoint
2.Выбор 2-х смежных элементов списка с требуемой точкой.