[[MTL]]

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

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

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

[NWest]

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

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

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

Сейчас скрипт строит путь по картинке слева, получаем длинный путь 0-1-0-2-0-3.
Возможно ли построение по пути 0-1-2-3, который намного короче?

[[MTL]]

Сообщение от NWest С какой целью создавался лисп?

Да просто вдохновение нашло. А кроме того, мне по работе ближе такие сети.

Сообщение от NWest Есть ли возможность малыми усилиями откорректировать его, чтобы тупиковые участки (не только одиночные, но и стебли ветвей) учитывались дважды, другими словами, чтобы скрипт считал минимально возможный путь по всем точкам с возвращением в центр? Сейчас скрипт строит путь по картинке слева, получаем длинный путь 0-1-0-2-0-3. Возможно ли построение по пути 0-1-2-3, который намного короче?

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

[NWest]

Есть ли успехи?

[[MTL]]

NWest, добрый день.
Извини, давно не заходил. Вроде сделал как просил. См. https://forum.dwg.ru/showthread.php?...38#post2016938