книги / Моделирование и оптимизация в LINGO

ство ее нулю означает, что новая карта, как и последующие, не может улучшить решение (их оценки не меньше нуля). Выход из цикла означает, что все возможные перспективные карты получены и на них найдено оптимальное решение непрерывной задачи. Наконец, чтобы получить целочисленное решение задачи, снова ищется минимум основной модели на том же наборе карт, но с добавлением условия целочисленности переменных (совместное решение подмоделей MASTER_PROB и INTEGER_REQ как единой модели). Тем самым завершается итерационный процесс оптимизации.

Вычисление итоговых показателей раскроя и формирование вывода решения в табличной форме представлены в отдельном раз-

деле CALC.

Теперь, выполнив команду Solver/Solve либо нажав кнопку в виде мишени, получаем на дисплее отчет решения модели раскроя:

ЗАДАЧА РАСКРОЯ РУЛОНОВ

===========================================================

===========================================================

Отчет показывает, что в решении участвовало 8 из допустимых 15 карт (сгенерировано 7), из них в оптимальный набор вошли только 5. Все потребности удовлетворяются полностью раскроем 666 рулонов, и при этом остатки составляют всего 2 %.

71

endsets data:

PRODUCT=@FILE('c:\GAL\production.txt'); order= @FILE('c:\GAL\production.txt'); T = @FILE('c:\GAL\production.txt');

K = 2 1 3; enddata

MIN = TIME;

@FOR(PRODUCT(I)|order #NE# 0: @SUM(EQUIPMENT(J): X(I,J))=order);

@FOR(EQUIPMENT(J): @SUM(PRODUCT(I)|order #NE# 0: T(I,J)*X(I,J))- TWORK(J)=0);

TIME = @MAX(EQUIPMENT: TWORK); @FOR(PR_EQ(I,J)|order(I) #NE# 0: @GIN(X));

@FOR( EQUIPMENT(J): @CARD( 'name'+ EQUIPMENT(J), K); @FOR(PRODUCT(I)|order #NE# 0: @CARD('name'+ EQUIP-

MENT(J), X(I,J))

)

); END

Здесь в файл production.txt записываются как элементы множества, так и данные в следующем виде:

!Оборудование; 1 . . 3 ~ !Продукция; pr1 . . pr4~ !Потребность; 75 123 0 62~ !Время; 7 11 9 14 8 10 12 7 13 10 9 11

Заметим, что в файле допустим комментарий.

Функция @TEXT( ['filename', [‘a’]]) позволяет выводить данные из LINGO во внешний файл или на экран. Второй вариант имеет место при отсутствии аргументов. При указании только имени файла запись идет в создаваемый файл или, если такой файл существует, то поверх его. При добавлении аргумента ‘a’данные записываются в конец существующего файла. Функция может быть использована только в секции DATA и при этом она записывается на левой стороне выражения вывода.

73

14 8 10

12 7 13

10 9 11; K = 2 1 3; enddata

MIN = TIME;

@FOR(PRODUCT(I)|order #NE# 0: @SUM(EQUIPMENT(J): X(I,J))=order);

@FOR(EQUIPMENT(J): @SUM(PRODUCT(I)|order #NE# 0: T(I,J)*X(I,J))- TWORK(J)=0);

TIME = @MAX(EQUIPMENT: TWORK); @FOR(PR_EQ(I,J)|order(I) #NE# 0: @GIN(X));

@FOR( EQUIPMENT(J): @CARD( 'name'+ EQUIPMENT(J), K); @FOR(PRODUCT(I)|order #NE# 0: @CARD('name'+ EQUIP-

MENT(J), X(I,J))

)

); END

SET TERSEO 1 GO

NONZ X

!Открытие файла

DIVERT SOLU.TXT

!Запись решения в файл

NONZ X

!Закрытие файла решения

RVRT

Теперь с помощью команды меню File|Take Commands открываем файл Myscript.ltf, что приводит к выполнению нашего скрипта и выводу на дисплей отчета в следующем виде:

: SET ECHOIN 1

Parameter Old Value New Value ECHOIN 1 1

: MODEL:

?sets:

?PRODUCT: order;

?EQUIPMENT /1..3/: TWORK, K;

?PR_EQ (PRODUCT, EQUIPMENT): T, X;

?endsets

?data:

?PRODUCT=pr1.. pr4;

?order= 75 123 0 62;

?T = 7 11 9

?14 8 10

75

:! Запись решения в файл

:NONZ X

:! Закрытие файла решения

:RVRT

:

При этом в файл Solu.txt записываются только результаты решения задачи:

Заметим, что в отличие от данных, записанных в файл, на дисплей выводится как отчет, так и весь скрипт. Скрипт не выведется, если не введена команда SET ECHOIN 1 или в ней задано значение 0.

Если скрипт сохранить в файле с именем AUTOLG.DAT в рабочей папке LINGO, то при каждом запуске LINGO он будет выполняться.

Имеется другой способ автоматического выполнения скрипта при запуске LINGO. Для этого в командную строку запуска LINGO добавляется имя файла, содержащего скрипт, с префиксом –T.

Например, чтобы выполнялся скрипт из файла Myscript.ltf, достаточно в свойствах ярлыка LINGO в поле Объект добавить строку -tMyscript.ltf, как показано на скриншоте окна свойств

(рис. 4).

Теперь при запуске LINGO будет выполнена команда File|Take Commands, и мы автоматически получим отчет о решении, точно такой же, как в файле Solu.txt (см. выше).

77

ется из командной строки, где записывается вместе с файлом сцена-

рия, например: C:\LINGO16>runlingo myscript.ltf. Результаты выпол-

нения программа направляет в стандартное устройство вывода. Завершая рассмотрение работы с файлами, приведем стан-

дартные типы файлов (их расширений), принятые в LINGO:

.LG4 Файлы модели, только в Windows,

.LNG Файлы модели в текстовом формате,

.LTF Файлы скриптов,

.LDT Файлы включенных данных,

.LGR Файлы отчета.

Файлы .LG4 записываются в бинарном формате и правильно читаются только под Windows. Файл с любым другим расширением воспринимается LINGO как текстовый. Файлы .LNG могут использоваться для переноса модели на другую платформу или в приложение. Следует иметь в виду, что эти файлы не сохраняют специальное форматирование модели и, в отличие от файлов .LG4, могут не работать как контейнеры или серверы OLE.

8.2. Взаимодействие с электронной таблицей

Удобным средством хранения и манипулирования данными являются электронные таблицы. LINGO предоставляет широкие возможности взаимодействия с таблицей: импорт данных из таблицы, экспорт в нее решений, создание ссылок OLE на Excel, управление LINGO из Excel, импортирование функциональных возможно-

стей LINGO в Excel и др.

8.2.1. Импорт и экспорт данных между LINGO и Excel

Импорт данных из таблицы выполняется с помощью интерфейсной функции @OLE, которая доступна только в версии под Windows. Она обеспечивает прямую OLE передачу данных между LINGO и Excel (передачу памяти), что исключает использование промежуточных файлов. Функция применима в секциях DATA

и INIT.

79