Внешняя компонента Симплекс-метод

17.01.07

Разработка - Разработка внешних компонент

Внешняя компонента 1С для решения задач оптимизации (задачи линейного программирования) с помощью симплекс-метода.

Скачать исходный код

Наименование Файл Версия Размер
vk_simplex.zip
.1169038007 76,01Kb
908
.1169038007 76,01Kb 908 Скачать бесплатно
Представим себе такую задачу.
Фирма, производящая некоторую продукцию осуществляет её рекламу двумя способами через радиосеть и через телевидение. Стоимость рекламы на радио обходится фирме в 5$, а стоимость телерекламы - в 100$ за минуту.
Фирма готова тратить на рекламу по 1000$ в месяц. Так же известно, что фирма готова рекламировать свою продукцию по радио по крайней мере в 2 раза чаще, чем по телевидению.
Опыт предыдущих лет показал, что телереклама приносит в 25 раз больший сбыт продукции, нежели радиореклама.
Задача заключается в правильном распределении финансовых средств фирмы.
Это и есть пример задачи оптимизации. В данном случае в задаче всего две неизвестных и она может быть решена с помощью, например, графического метода. В общем случае решаются такие задачи с помощью методов линейного программирования. Симплекс-метод – наиболее популярный среди них.

См. также

Медиадисплей. Рекламный информационный монитор для покупателя.

Разработка внешних компонент POS терминал Рабочее место Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Реклама, PR и маркетинг Управленческий учет Платные (руб)

Монитор покупателя может отображать текущую покупку на кассовом месте, показывать видеорекламу, баннеры, во время простоя разворачивать рекламу на весь экран. Можно использовать в качестве графического меню-борда в кафе и видеовывески. Управление выводом на телевизор через hdmi-приставку на базе Windows или Android. В качестве устройства отображения можно использовать Android-планшеты, фоторамки с Android, монитор любого Windows-компьютера, доступного по сети. Настраивается ЛЮБОЙ ДИЗАЙН экрана!

16800 руб.

30.05.2017    52210    34    69    

43

Внешняя компонента для сканирования (замена TWAIN-компоненты БСП) (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).

2400 руб.

12.05.2020    26381    132    99    

84

Внешняя компонента печати PDF (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет печатать PDF файлы непосредственно из 1С, не используя при этом сторонних программ. Прекрасно работает на сервере, тонком клиенте и веб-клиенте. Основана на проекте PDFium из состава проекта Chromium/Chrome

1500 руб.

17.09.2018    35213    105    127    

111

Внешняя компонента для подключения 1С к телефонии Asterisk

Разработка внешних компонент Телефония, SIP Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)

2400 руб.

04.05.2018    45115    117    66    

61

Мастер создания внешних компонент 1С (технология COM) для DELPHI 6/7/8/2005/2006/2007/2008/2010/XE/XE2/XE3

Разработка внешних компонент Платформа 1С v8.3 Платные (руб)

Средство для сверхбыстрой разработки внешних компонент 1С:Предприятия 7.7 и 8 по технологии COM на всех версиях DELPHI, начиная с 6.

2000 руб.

28.03.2013    54057    35    14    

68

QR-код с логотипом компании (обычная и управляемая форма)

Разработка внешних компонент Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Как известно, стремление сделать свою рекламную продукцию запоминающейся и выделяющейся — верный путь к успеху. Сегодня, мы поговорим с вами о том, что можно сделать с обычным черно-белым QR-кодом, чтобы он стал более живым и привлекательным. Если вам не терпится попробовать сделать QR-код с логотипом компании, то эта обработка для вас!

2400 руб.

22.06.2016    30878    4    4    

8

Внешняя компонента GraphQL клиент для 1С

Разработка внешних компонент Платформа 1С v8.3 Платформа 1C v8.2 Платные (руб)

Внешняя компонента, позволяющая посылать команды и получать ответы по GraphQL протоколу из 1С.Может быть использована при интеграции. В 1С работает на стороне "клиента".

4600 руб.

27.06.2023    2750    1    0    

2

Компонента ExchangeStruc (Структура Обмена). Прямой обмен данными между потоками, сессиями и окнами.

Разработка внешних компонент Платформа 1С v7.7 Платформа 1С v8.3 Платформа 1C v8.2 Платформа 1С v8.1 Россия Платные (руб)

Аддон "Структура Обмена" (ExchangeStruc) - это компонента, которая обеспечивает доступ к разделяемым процессом структурам, аналогичным структурам 1С. Обеспечивает прозрачную передачу данных примитивных типов, в том числе Двоичных данных, в режиме Реального времени между разными контекстами (формами) или потоками одного процесса. В перспективе функционал будет расширен для обмена между процессами, даже разных версий платформ. Совместим с версиями Windows рабочих станций и серверов, с платформами 1С разных версий и релизов в режиме Native начиная с 8.2, и в режиме COM начиная с версий 7.7. По скорости чтения и записи лишь немногим уступает стандартной структуре 1С. НОВОЕ: Добавлен функционал регистрации компоненты COM в качестве OLE Auto (COMОбъект) для поддержки её работы в серверах старых версий 1С: 8.0 и 8.1, где работа с компонентами исключена. Теперь можно коммуникацию с Фоновыми заданиями на этих версиях проводить.

7200 руб.

19.04.2023    4819    1    0    

3
Комментарии
Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. IgorMgn 1 09.03.07 12:58 Сейчас в теме
Реальная компонента. Конечно совсем уж "Поиск решения" Excel не заменит, но кое-что можно сделать без выгрузки данных в Excel! +1, несомненно!
2. gelotus 01.06.07 17:29 Сейчас в теме
А можно исходный код компоненты?
3. savonov 01.06.07 19:08 Сейчас в теме
4. Myst_ 65 12.12.08 00:38 Сейчас в теме
5. Pavlovsky 56 28.09.10 16:54 Сейчас в теме
Чего то у меня возникли проблемы с ВК.
Вот такая задача:
36 17
0 0 1 1 1 0 0 1 1 1 0 0 1 1 1 1 -9 = 4
1 1 0 0 -1 0 1 1 1 0 0 0 0 1 1 0 -5 >= 22
-2 -1 0 0 1 -1 -2 -1 0 1 -1 -1 -1 -1 0 1 9 >= 22
1 0 0 0 -1 0 0 -1 -1 -1 1 0 -1 -1 -1 -1 7 >= 22
-1 -1 -1 0 1 0 -1 -1 -1 0 -1 0 0 -1 -1 0 9 >= 58
1 1 0 -1 -1 1 2 1 0 -1 1 1 1 1 0 -1 -5 >= 58
-1 -1 -1 0 0 0 -1 -2 -1 0 0 0 -1 -1 -1 0 11 >= 58
0 -1 -1 -1 0 0 0 -1 -2 -1 0 0 0 -1 -1 -1 11 >= 22
1 1 0 0 0 1 1 1 0 -1 1 1 1 1 0 0 -7 >= 22
1 1 1 0 0 1 2 2 2 1 0 0 1 1 1 0 -13 >= 22
0 1 1 1 0 -1 0 1 1 1 0 0 0 1 1 1 -7 >= 58
-1 -1 0 0 0 -1 -2 -1 0 0 -1 -1 -1 -1 0 0 11 >= 58
2 2 1 0 -1 1 2 2 1 0 1 1 1 1 1 0 -14 >= 58
-1 0 1 1 1 -1 -1 0 1 1 -1 -1 0 0 0 1 0 >= 58
0 0 0 0 -1 0 0 0 0 0 0 0 -1 0 0 -1 4 >= 22
-2 -2 -1 0 1 -1 -2 -2 -1 0 -1 0 0 -1 0 1 12 >= 22
1 0 -1 -1 -1 1 1 0 -1 -1 1 0 0 0 -1 -1 4 >= 58
0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 >= 58
-1 -1 -1 -1 0 0 0 0 0 0 -1 0 0 0 0 0 6 >= 58
0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 >= 58
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 >= 58
0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 >= 22
0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 >= 58
0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 >= 58
0 0 0 0 0 -1 -1 -1 -1 -1 0 0 0 0 0 0 6 >= 58
0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 >= 58
0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 >= 58
0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 >= 58
0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 >= 58
0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 >= 58
0 0 0 0 0 0 0 0 0 0 0 -1 -1 -1 -1 -1 6 >= 58
0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 >= 58
0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 >= 58
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 >= 58
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 >= 58
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 >= 58
min
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1

решение у нее есть стопудово

58, 197/2, 58, 58, 58, 58, 259/4, 58, 259/4, 58, 58, 58, 58, 58, 58, 58, 259/4

А ВК отказывается решать эту задачу выдает результат 0 и все.
6. lavrik 45 29.09.10 09:50 Сейчас в теме
Pavlovsky: пришлите, пожалуйста, Вашу реализацию в 1с на эл. адрес, указанный в описании к компоненте, постараюсь рассмотреть Ваш пример.
7. Pavlovsky 56 29.09.10 11:00 Сейчас в теме
Спасибо за оперативный ответ. В прикрепленном файле обработка, где все команды прописаны в явном виде. Дело может в том, что для заданных ограничений существует бесконечно много решений где достигается минимум.
Прикрепленные файлы:
симплекс.ert
8. Pavlovsky 56 29.09.10 11:43 Сейчас в теме
максимально локализовал баг

Попытка
ЗагрузитьВнешнююКомпоненту("vk_simplex.dll");
Исключение
Сообщить("Не удалось загрузить внешнюю компоненту vk_simplex", "!");
СтатусВозврата(0);
Возврат;
КонецПопытки;
// создаем объект Симплекс
Симплекс = СоздатьОбъект("AddIn.vk_simplex");
// можно на всякий случай очистить исходные данные и результаты предыдущих расчетов
Симплекс.Очистить();
//целевая функция
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(1);
//формирование ограничений
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(6);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
// выполняем расчет
Симплекс.ВыполнитьРасчет(0);
// вывод результатов
Симплекс.ВыбратьРезультаты();
Инд=0;
Пока Симплекс.ПолучитьРезультат() = 1 Цикл
Сообщить(Окр(Симплекс.Результат,0));
КонецЦикла;
Сообщить("Сумма " + Окр(Симплекс.РезультатФункции,0));

Решение очевидно 58, а выдает 0
9. Pavlovsky 56 29.09.10 11:45 Сейчас в теме
Хм. Если убрать еще одну переменную, то выдает правльный ответ

//целевая функция
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(0);
Симплекс.ДобавитьКоэффициентФункции(1);
//формирование ограничений
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(-1);
Симплекс.ДобавитьКоэффициентОграничения(5);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.НовоеОграничение(1, 58);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(0);
Симплекс.ДобавитьКоэффициентОграничения(1);
10. Stepan_1c 27.09.11 15:02 Сейчас в теме
11. gorneev 12.11.11 18:32 Сейчас в теме
Огромное спасибо за компоненту!!! Помогло в конфигурации по комбикормам!!!
Оставьте свое сообщение