Планирование уроков на учебный год (по учебнику Н.Д. Угриновича, профильный уровень)



Уроки 17 - 19
§1.6. Оптимизационное моделирование в экономике




Содержание урока

1.6.1. Информационные оптимизационные модели
1.6.2. Построение и исследование оптимизационной модели на языке Visual Basic

Проект «Оптимизация раскроя» на языке Visual Basic

Контрольные вопросы

1.6.3. Построение и исследование оптимизационной модели на языке Turbo Delphi
1.6.4. Построение и исследование оптимизационной модели в электронных таблицах

1.6.2. Построение и исследование оптимизационной модели на языке Visual Basic


Проект «Оптимизация раскроя» на языке Visual Basic


Набор параметров Х1, Х2 и Х3 (количества листов материала, которые должны быть раскроены разными способами) должен удовлетворять одновременно двум условиям, что на языке Visual Basic запишется следующим образом:

10*X1+3*X2+8*X3=500 And 3*Х1+6*Х2+4*ХЗ=300


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

Проект «Оптимизация раскроя» на языке Visual Basic

1. Поместить на форму (рис. 1.28):

• три надписи Label1, Label2 и Label3 для вывода значений параметров;
• надпись Label4 для вывода значения целевой функции;
• надписи для вывода обозначений;
• кнопку Button1 для запуска обработчика события.

2. Создать обработчик события:


Dim XI, X2, X3, F As Byte
Private Sub Buttonl_Click (...)
   F=250
   For X1=0 To 100
     For X2=0 To 100
       For X3=0 To 100
         If 10*X1+3*X2+8*X3=500 And 3*X1+6*X2+4*X3=300
           Then If X1+X2+X3<F
                       Then
                           F=X1+X2+X3
                           Label1.Text=X1
                           Label2.Text=X2
                           Label3.Text=X3
                           Label4.Text=F
           End If
         End If
       Next X3
     Next X2
   Next X1
End Sub

3. Запустить проект и щелкнуть по кнопке Оптимизировать.

На надписи будет выведен набор параметров (см. рис. 1.28):

X1 (количество листов, раскроенное способом 1) — 20;
Х2 (количество листов, раскроенное способом 2) — 20;
Х3 (количество листов, раскроенное способом 3) — 30.
Значение целевой функции (количество листов материала)— 70.

Рис. 1.28. Проект «Оптимизация раскроя» на языке Visual Basic



Следующая страница Контрольные вопросы



Cкачать материалы урока





Наверх