| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Lisp программа прорисовки оптимальной конфигурации незамкнутого графа с центром

Lisp программа прорисовки оптимальной конфигурации незамкнутого графа с центром

Ответ
Поиск в этой теме
Непрочитано 16.09.2022, 17:53 #1
Lisp программа прорисовки оптимальной конфигурации незамкнутого графа с центром
[MTL]
 
Санкт-Петербург
Регистрация: 09.01.2018
Сообщений: 22

Доброго времени суток,
Во-вложении программа для расчёта оптимальной структуры древовидного графа с явно выраженным центром . Это незамкнутый граф, сумма длин ветвей которого минимальна. Программа простая, но с большой вероятностью чертит такой граф. Однако не идеальный, спорить не буду. Может пригодится сетевикам.

Работает так:
1. Загружаете. Вызов из командной строки - ГРАФ.
2. Выбираете объекты. Типы объектов могут быть разные: тексты, окружности, прямоугольники, блоки (с корректно указанным центром). Возможен выбор рамкой.
3. Определяете какой объект является центром графа, т.е. откуда растут ветви. Кликаете него.
4. Программа чертит подходящую на её взгляд структуру.

PS: Необходимо понимать, что это задача похожа на задачу коммивояжёра, т.е. алгоритмически довольно сложная. При увеличении количества точек найти идеальное решение всё сложнее. Если кто может напишите.

Вложения
Тип файла: lsp graf_v.2.0.LSP (4.8 Кб, 29 просмотров)

Просмотров: 1398
 
Непрочитано 16.09.2022, 22:23
#2
NWest


 
Регистрация: 28.02.2013
Сообщений: 25


Очень интересно.

С какой целью создавался лисп?

Есть ли возможность малыми усилиями откорректировать его, чтобы тупиковые участки (не только одиночные, но и стебли ветвей) учитывались дважды, другими словами, чтобы скрипт считал минимально возможный путь по всем точкам с возвращением в центр?

Сейчас скрипт строит путь по картинке слева, получаем длинный путь 0-1-0-2-0-3.
Возможно ли построение по пути 0-1-2-3, который намного короче?
NWest вне форума  
 
Автор темы   Непрочитано 20.09.2022, 10:23
#3
[MTL]


 
Регистрация: 09.01.2018
Санкт-Петербург
Сообщений: 22


Цитата:
Сообщение от NWest Посмотреть сообщение
С какой целью создавался лисп?
Да просто вдохновение нашло. А кроме того, мне по работе ближе такие сети.

Цитата:
Сообщение от NWest Посмотреть сообщение
Есть ли возможность малыми усилиями откорректировать его, чтобы тупиковые участки (не только одиночные, но и стебли ветвей) учитывались дважды, другими словами, чтобы скрипт считал минимально возможный путь по всем точкам с возвращением в центр?

Сейчас скрипт строит путь по картинке слева, получаем длинный путь 0-1-0-2-0-3.
Возможно ли построение по пути 0-1-2-3, который намного короче?
Судя по рисунку, если я правильно понял, вы хотите замкнутый граф с минимально возможной длиной пути. Т.е. должна получится кольцевая структура. Это "Задача коммивояжёра". https://ru.wikipedia.org/wiki/%D0%97...91%D1%80%D0%B0
На досуге можно подумать. Но там роевой интеллект надо прогать. Не обещаю.

Последний раз редактировалось [MTL], 21.09.2022 в 09:09.
[MTL] вне форума  
 
Непрочитано 07.10.2022, 17:06
#4
NWest


 
Регистрация: 28.02.2013
Сообщений: 25


Есть ли успехи?
NWest вне форума  
 
Автор темы   Непрочитано 21.12.2022, 17:00
1 | #5
[MTL]


 
Регистрация: 09.01.2018
Санкт-Петербург
Сообщений: 22


NWest, добрый день.
Извини, давно не заходил. Вроде сделал как просил. См. https://forum.dwg.ru/showthread.php?...38#post2016938
[MTL] вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > Lisp программа прорисовки оптимальной конфигурации незамкнутого графа с центром

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание листа и вписывание в него объекта на LISP [igrik] LISP 19 14.04.2021 17:17
Программа обработки dwg файлов lpopov Готовые программы 29 19.02.2012 18:11
Умер разработчик языка программирования Lisp andr_g LISP 1 27.10.2011 08:36
Требуется макрос на lisp или diesel - для выделенной дуги строит концентрическую с тем же центром, радиусом +х. jay_bee LISP 2 02.04.2009 09:53
загрузка DOS прог через LISP Gaa LISP 15 12.08.2005 19:19