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

Она целесообразна, если требуется экспортировать только те данные, которые удовлетворяют условиям.

Примеры использования 2-й формы:

@OLE( 'RESULTS.XLS', 'WORKERS') = @WRITEFOR( DAYS( D) | START( DAYS) #GT# 0: DAYS( D), START( D));

Здесь экспортируются в диапазон WORKERS день и число работников, начинающих работать в этот день при условии, что оно не равно нулю. При этом WORKERS определяет 2 столбца.

Другой вариант:

@OLE( 'RESULTS.XLS', 'DAYS', 'START') = @WRITEFOR( DAYS( D) | START( DAYS) #GT# 0: DAYS( D), START( D));

В приведенном примере для каждого экспортируемого объекта определен свой диапазон.

Применим функцию @OLE в задаче Production для получения данных из Excel и экспорта решения в таблицу Excel. Модель исходной задачи с измененным разделом DATA приведена ниже:

MODEL: sets:

PRODUCT: order;

EQUIPMENT /1..3/: TWORK, K; PR_EQ (PRODUCT, EQUIPMENT): T, X; endsets

data:

!Импорт элементов множества, матрицы времен и значений заказов

PRODUCT, T, order= @OLE('C:\LINGO16\Samples\Production.xls');

K = 2 1 3;

!Экспорт решения

@OLE('C:\LINGO16\Samples\Production.xls')=X, TWORK; 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);

81

Как только решатель LINGO найдет оптимальное решение, оно будет отправлено в заготовленную таблицу Excel в диапазоны X и TWORK. В результате таблица решения принимает вид:

При этом в окне отчетов LINGO получим:

Local optimal solution found.

Export Summary Report

---------------------

Transfer Method: OLE BASED

83

Данный отчет отличается от стандартного только вставкой Export Summary Report, в которой приводятся данные о выполненном экспорте (метод, место файла-приемника, специфицированное и найденное число диапазонов и количество экспортированных переменных).

Интересно заметить, что это решение привело к локальному минимуму, который отличается от ранее найденных минимумов, что еще раз свидетельствует о многоэкстремальности исходной (нелинейной) модели.

8.2.2. Встраивание моделей LINGO в Excel

Модель LINGO может встраиваться (внедряться) в Excel в качестве объекта. Как и выше, на листе Excel представляем исходные данные и таблицу-приемник решения. Командой Excel Вставка/Объект получаем перечень доступных объектов и в нем выбира-

ем объект LINGO Document (рис. 5).

Рис. 5

В результате на листе Excel появляется выделенная область модели, которую можно перемещать, и изменять ее размеры (рис. 6).

85

Когда модель становится неактивной, восстанавливаются меню и панель инструментов Excel.

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

8.2.3. Встраивание листов Excel в LINGO

Наряду с встраиванием LINGO в Excel возможен и обратный вариант: встраивание листа Excel в LINGO. Рассмотрим это на примере той же модели Production. Сначала откроем ее в LINGO (рис. 8).

Рис. 8

Затем командой Edit|Insert New Object открывается окно «Вставка объекта», в котором выбирается вариант создания объекта из файла, записывается имя файла Excel и устанавливается флажок «Связь» (рис. 9).

После нажатия кнопки OK увидим наш лист Excel, встроенный в окно модели LINGO (рис. 10).

87

Для доступа к редактированию таблицы достаточно дважды кликнуть по ней. В результате откроется Excel с нашим листом. При сохранении модели сохраняется и связь с Excel.

После решения модели результаты отразятся на встроенном листе Excel. В нашем случае согласно модели появится и текстовый отчет, аналогичный тому, что получен при экспорте решения с помощью функции @OLE.

8.2.4. OLE автоматизация в LINGO

Еще один вариант взаимодействия Excel и LINGO позволяет осуществить OLE автоматизация. Она устанавливает между ними кли- ент-серверное отношение. При этом все данные и модель располагаются в Excel, а для связи с LINGO используются макросы Excel VBA. Как это реализуется, покажем на примере решения задачи PRODUCTION.

На первом листе книги Excel размещаем, как и ранее, таблицу с данными и таблицу для решения, а также для наглядности добавляем диаграмму (рис. 11).

Диапазонам ячеек в обеих таблицах присваиваем соответствующие модели имена. Например, в таблице данных диапазону B4:D7 присвоено имя T, а E4:E7 – ORDER, в таблице Решение диа-

пазон B13:D16 имеет имя X, а B17:D17 – TWORK.

На втором листе записываем командный скрипт решения нашей модели, и соответствующему диапазону ячеек присваиваем имя

MODEL (рис. 12).

Для связи с LINGO добавляем к первому листу макросы Auto_Open и LingoSolve:

Dim LINGO As Object Sub Auto_Open()

Set LINGO = CreateObject("LINGO.Document.4") End Sub

Sub LINGOSolve() Dim iErr As Integer

iErr = LINGO.RunScriptRange("MODEL") If (iErr > 0) Then

MsgBox ("Unable to solve model") End If

End Sub

89