![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - Как найти минимум функции при ограничениях |
|
Delphi - Как найти минимум функции при ограничениях
|
Новый участник Сообщения: 20 |
Как найти минимум функции вида
L=L[1]*x1+L[2]*x2+ .... +L[n]*xn----> min (max) при ограничениях: A1[1]*x1+A1[2]*x2+....+A1[n]*xn <=> B1 ..................... Am[1]*x1+Am[2]*x2+....+Am[n]*xn <=> Bm Где <=> - один из знаков: >= , = , <= |
|
Отправлено: 15:01, 09-05-2012 |
Необычный Сообщения: 4466
|
Профиль | Сайт | Отправить PM | Цитировать Цитата Jenek56Rus:
Смотри формулы в примере Iska. Цитата Jenek56Rus:
|
||
------- Отправлено: 15:14, 13-05-2012 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Не пойму откуда берутся эти значения которые выделены
|
Отправлено: 15:43, 13-05-2012 | #22 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Jenek56Rus, из «ниоткуда». Это и есть искомые величины, подбирая которые, надстройка Microsoft Excel «Поиск решения», ищет оптимальное (в данном случае — минимальное) значение целевой функции (здесь — «Сумма закупки»). Изначально мы волевым решением вводим начальный базисный план — присваиваем этим ячейкам нулевые значения. Затем, в результате решения задачи оптимизации в этих ячейках последовательно меняются значения, вплоть до нахождения минимума целевой функции и, соответственно, оптимального плана.
NB: в приложенном документе Microsoft Excel нет исходного кода алгоритма решения — симплекс-метода — как такового. Алгоритм «зашит» в уже бинарном виде в качестве одного из используемых методов «внутри» самой надстройки «Поиск решения». Не ищите исходный код алгоритма ни там, ни там. Я выложил документ только для того, чтобы показать в схематическом виде, как выглядит постановка задачи. |
Отправлено: 18:11, 13-05-2012 | #23 |
Необычный Сообщения: 4466
|
Профиль | Сайт | Отправить PM | Цитировать Iska, предупреждать надо :)
|
Отправлено: 19:10, 13-05-2012 | #24 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать lxa85, я думал — народ в курсе
![]() Чую, что автору, надо искать нечто такое: Линейное программирование Задача о смесях Алгоритм на Delphi - Поиск в Google. Сам я Delphi пробовал один раз, когда она была версии 3, и решил, что это — не моё, потому толку в конкретном решении от меня будет ноль. |
Отправлено: 19:37, 13-05-2012 | #25 |
Ветеран Сообщения: 1853
|
Профиль | Отправить PM | Цитировать Iska, сия Ёксельская надстройка (поиск решения) работает на удивление эффективно. И там, кстати, не только симплекс-метод, насколько я понимаю. Приводимые Мелкомягкими (в справке) ссылки на труды основоположников меня не убедили. Не знаете ли Вы более внятного описания конкретной реализации алгоритма? Понятно: чтобы нагло содрать. Ибо реально работает.
|
Отправлено: 11:54, 14-05-2012 | #26 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата XPEHOMETP:
![]() Цитата XPEHOMETP:
Может быть стоит попробовать поискать бесплатные библиотеки, реализующие подобный функционал, прежде всего — фортрановские. Вот, навскидку нашёл обзорную статью: Использование пакетов прикладных программ для решения оптимизационных задач. |
||
Отправлено: 16:56, 14-05-2012 | #27 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать Создал новый проэкт но не знаю как его проверить, и еще вопрос как туда добавить ограничения и переменные...?
|
Отправлено: 19:57, 14-05-2012 | #28 |
Необычный Сообщения: 4466
|
Профиль | Сайт | Отправить PM | Цитировать Дома проверять нечем. Почитал записку, прикладываю прокомментированный вариант.
Моя текущая оценка - нормальный рабочий черновик. На защиту пока не тянет. |
------- Отправлено: 21:07, 14-05-2012 | #29 |
Новый участник Сообщения: 20
|
Профиль | Отправить PM | Цитировать lxa85, ну как у нас обстоят дела с проверкой...?
|
Отправлено: 21:26, 15-05-2012 | #30 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Разное - Функции при совпадении имён файлов в процессе копирования. | saneck | Microsoft Windows 2000/XP | 4 | 15-12-2011 05:07 | |
"Мы точно умрем 21 Октября!" как минимум - вот так... | P.M. | Флейм | 8 | 16-10-2011 01:43 | |
[решено] остановка функции при условии. | yukuru | AutoIt | 3 | 26-07-2011 00:01 | |
CMD/BAT - [решено] две функции по mp3 (узнать продолжительность и найти все mp3 файлы в папке) | tor4ok11 | Скриптовые языки администрирования Windows | 5 | 22-11-2010 07:17 | |
[решено] При наличии файла ответов нет функции Восстановления (Repair, [R]) | toai | Автоматическая установка Windows 2000/XP/2003 | 33 | 27-03-2009 11:20 |
|