вычисление списка точек на объекте расстояния между которыми равны (Страница 2 из 2)

Господа профессионалы, а не сможете ли подкорректировать код таким образом, чтобы вместо одного фиксированного расстояния был бы список расстояний через которые нужно размечать выбранный объектну например (1000 200 100)?

Плохо, что на этом форуме нельзя корректировать свои сообщения, поэтому новый, более корректный вариант:

(defun test (lst / test test1 pl)
  (defun test (a b f d p)
    (if (= a b)
      nil
      ((lambda (r)
         (if (equal (f r p) 0. d)
           r
           (if (minusp (* (f a p) (f r p)))
             (test a r f d p)
             (test r b f d p)
           ) ;_  if
         ) ;_  if
       ) ;_  lambda
        (/ (+ a b) 2.)
      )
    ) ;_  if
  ) ;_  defun
  (defun test1 (par step)
    (if par
      (cons (vlax-curve-getPointAtParam pl par)
            (test1 (test
                     par
                     (vlax-curve-getEndParam pl)
                     (lambda (x y)
                       (- (car step)
                          (distance (vlax-curve-getPointAtParam pl y)
                                    (vlax-curve-getPointAtParam pl x)
                          ) ;_ end of distance
                       ) ;_ end of -
                     ) ;_ end of lambda
                     1e-6
                     par
                   ) ;_ end of test
                   (if (cadr step)
                     (cdr step)
                     lst
                   ) ;_ end of if
            ) ;_ end of test1
      ) ;_ end of cons
    ) ;_ end of if
  ) ;_ end of defun
  (if (and (setq pl (car (entsel "\nВыберите pline: ")))
           (setq pl (vlax-ename->vla-object pl))
      ) ;_ end of and
    (test1 (vlax-curve-getStartParam pl) lst)
  ) ;_ end of if
) ;_ end of defun
;;;(test '(5 10 5))

> Student
нарисуй сплайн змейкой, подели его на несколько частей методом "DIVIDE", хотя бы на три части и расскажи, как ты это сделал. Единственное условие, части должны быть равные до некоторой точности. Потом можно будет говорить о программах...
Все дело в том, что во многих случаях, такая задача не имеет решений.

> Vovka
Программа задумалась, но отработала!
" у вас какая частота процессора? надо побольше :)
или нужно оптимизировать мой код."
Может у Евгения или СВ получится оптимизировать.

> Евгений Елпанов
" нарисуй сплайн змейкой, подели его на несколько частей методом "DIVIDE", хотя бы на три части и расскажи, как ты это сделал."
Обычно я просто применяю команду Divide.
" Все дело в том, что во многих случаях, такая задача не имеет решений. "
Но у ведь программа от Vovka (2008-10-09 00:51:18)справилась, только не быстро(((
А алгоритм наверное сл.:
- поделить общую длину объекта на кол-во частей получив отсчетный шаг.
- Этим шагом разметить объект предыдущим алгоритмом и если последняя вычисленная точка не совпадает с конечной точкой объекта то откорректировать шаг и поновой пока последняя вычесленная точка не совпадет с конечной точкой объекта.
Важно наверное только правильно применить метод бисекции, чтобы как и в предыдущем алгоритме реализовалась высокая скорость выполнения программы.

p.p.s. то что моя функция "справилась" - это скорее счастливое исключение :)

> Vovka
"а можно поинтерисоваться для каких прикладных целей вы используете эти функции?"
например для ограждений - есть стандартные секции ограждения определенной длины и необходимо их расставить по криволинейному пути.
Для распределения отделочных стеновых панелей по криволинейным стенам.
если панели или секции определяются типоразмером то использую метод "Measure", если может быть любой но желательно равный то "Divide"

> Student
А ты посмотрел, что получилось? Тебя этот результат устраивает?

И не смущает, что если поделить этот контур на одинаковые сегменты с длинной 104.11 то получится девять, а не два сегмента?

> Student
Одно пока ясно, что функцию от Vovka буду применять до появления более совершенной.

Ты упорно отказываешься объяснить, что надо и как, в моем понимании, результат с моим примером недопустим, а для тебя он подходит...
Лучше расскажи, как должна работать программа в общем случае и в частных тоже.
Про однозначный результат, я уже писал, он не всегда возможен.

> Евгений Елпанов
" Лучше расскажи, как должна работать программа в общем случае и в частных тоже. "
Одна из практических задач.
Исходные данные -
1. Инеются два типа отделочных стеновых панелей
первый тип панелей имеет фиксированную длину (например 1000м.) и укорачивать ее нелья
второй тип панелей не привязан к фиксированной длине (они могут нарезаться в зависимости от требуемой длины)
2. имеется на чертеже сложный контур проектируемой стены (с линейными и криволинейными участками)
Задача 1
Распределить отделочные панели первого типа с фиксированной длиной (1000м.) вдоль контура стены.
при этом можно игнорировать последний участок стены если он не равен 1000 м. (т.к. он будет отделан индивидуальной панелью)
Задача 2
Распределить отделочные панели второго типа с примерной длиной (1000м.) вдоль контура стены.
----------------
Учитывая, что стена(перегородка) проектируемая,
проектировщик может изменять ее контур в зависимости от характера распределения панелей
----------------
Первая задача решается, мне кажется "на ура", при помощи функций от Евгения и СВ
А вторая в ряде случаев решается при помощи функции от Vovka. Если контур без сильных изломов, то пока все срабатывает. Попробовал поделить эллипс (как полилинейный так и математический) получилось что-то непонятное ((
Отрезал половину сработало как надо.
--------------------

> Student
Если углубиться в математику, то можно пойти другим путем - можно заранее вычислить график возможных решений. Это сложная система уравнений с размерностью, равной количеству прямолинейных сегментов. Дуговые, нужно будет заранее аппроксимировать с необходимой точностью но максимальной длинной...
ps. Данную задачку никогда не решал.