[[MTL]]

Доброго времени суток,
Во вложении программа для автоматической балансировки подмножеств. Попробую попытаюсь объяснить.
Задача: Имеется некоторый набор чисел. Hеобходимо распределить числа на заданное число групп таким образом, чтобы суммы чисел в каждой группе были примерно равны, или не превышали заданный коэффициент неравномерности, определяемый как Kн = (Sмакс - Sмин)/Sмин * 100%, где Sмакс, Sмин - соответственно суммы чисел в "перегруженном" и "недогруженном" подмножестве. При распределении количество элементов в группе не ограничивается, т.е. например, в одной группе может быть один "тяжёлый" элемент, а в другой несколько "лёгких" с тем, чтобы максимально уравновесить суммы.
Это одна из задач оптимизации. Может использоваться где угодно. Например, для распределения эл. нагрузок по фазам.

Для тех, кто хоть что-то понял, объясняю как пользоваться.
1. В пространстве модели у вас должно быть некоторое множество чисел в виде элементов TEXT или MTEXT. Цвет - нейтральный (белый или чёрный, для слоя "0" - ПоСлою, "По блоку" и т.д.), почему далее поймёте.
2. Загружаете лисп "Balance_v.x.x.". В командной строке вводите команду: BALANCE.
3. Выбираете элементы. Можно рамкой. [ENTER] - подтверждение выбора.
4. Появляется окно, в котором необходимо заполнить поля:
1) "Число групп" - кол-во групп, на которые необходимо разбить множество.
2) "Предельный коэфф. неравномерности, %" - Кн. формулу см. выше.
3) "Ограничение числа итераций" - ограничение числа попыток уравновешивания. Зависит от величины выборки. На ~30 элементах пробовал до 200, больше смысла нет, т.к. программа находит оптимальное решение (при данных исходных данных).
5. Результатом расчёта будет изменение цвета элементов. Каждому цвету соответствует номер группы. В командной строке будет выведен результирующий коэффициент неравномерности. Просуммировав элементы определённого цвета можете проверить).

31.03.25г. В новой версии исправил обнаруженную ошибку, связанную нулевой суммой группы. Добавил комментарии по тексту программы.

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

*error* в локальные функции забыл засунуть

[[MTL]]

Сообщение от Кулик Алексей aka kpblc *error* в локальные функции забыл засунуть

Спс. Техника страдает. Бегу по огороду, благополучно наступая на разложенные грабли.

[name02]

Как дополнение можно сделать вывод в командную строку информации по группам:
Группа 1 - цвет1 - Сумма1
Группа 2 - цвет2 - Сумма2
...
Группа N - цветN - СуммаN
----------------------------
Итого: Сумма
Макс: Группа B - цветB - СуммаB
Мин: Группа Y - цветY - СуммаY
Knr= X %

А то потом еще суммировать отдельно по цветам нужно будет как-то

[[MTL]]

Учту. Отчёт можно предложить разместить в пространство модели на указанное место, чтобы не затёрся.

[name02]

Ты все-таки позиционируешь как универсальную штуку для равномерного распределения, поэтому в таблицу сводить может и не надо.
Но в командную строку точно я бы добавил вывод.
Или предлагать на выбор - в таблицу или в командную строку.

[[MTL]]

Командная строка перезаписывается. Искать потом придётся. А так на свободном месте в виде текстового блока. Кратенько. Никаких таких отчётов по ГОСТ боже упаси.

[name02]

Тогда можно сделать формирование групп по цвету уже - т.е. найти сумму текстовых объектов с учетом их цветов. И уже на основании этого сделать итоговую таблицу, если вдруг ранее сделанная затерлась

[petro_f]

Хм, идея интересная.
По поводу сводки в табличную форму тоже за... Можно сделать цветом и дополнительно сводить в табличку и предлагать её вставить. Если не надо то просто отказ.

[Yull]

я в екселе сделал, все считается и отображается и цифрами и цветом

[veb86]

Сообщение от Yull я в екселе сделал, все считается и отображается и цифрами и цветом

Здравствуйте.
Если не жалко, можете в личке поделится кодом, я делаю большой бесплатный электрический расчетный модуль на базе экселе, хотелось бы как то быстро решить вопрос равномерного распределения по фазам.

[esp1413]

Сообщение от veb86 Здравствуйте.

https://dwg.ru/b/name02/454

[veb86]

Сообщение от esp1413 https://dwg.ru/b/name02/454

Я произвожу каждый раз генерацию эксель с нуля и поэтому мне не подходит надстройка. Я думал есть программное решение или еще лучше стандартными формулами