Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
метод ИС в экономике.doc
Скачиваний:
13
Добавлен:
28.09.2019
Размер:
1.6 Mб
Скачать

Работа 8. Модель управления запасами

Рассмотрим простую модель управления запасами. Уличный продавец покупает журналы у издательства по цене 20 руб. за штуку, а продает – по 23. В случае, если товар не удается продать, продавец возвращает его издательству по цене 17 руб за штуку. Необходимо определить, сколько журналов следует закупать продавцу, чтобы его ожидаемая прибыль была максимальной.

Продавцу никогда не удавалось продать боле 20 журналов, а в среднем за 37 дней объемы реализации и число соответствующих событий выглядят так, как показано на рисунке (для простоты учитываются пачки по пять журналов).

Формализация

Адрес

Имя

Назначение

Исходные данные

D2

продажа

Цена продажи

E2

покупка

Цена покупки

F2

возврат

Цена возврата

F7:J7

Объем_реализации

Объем реализации

F8:J8

Число_событий

Число событий

Расчетные данные

J17

Максимальная_прибыль

Максимальная прибыль

I18

Оптимальный_Объем

Оптимальный объем

L13:L17

Прибыль

F12:J16

Расчет

Массив для расчета

E12:E16

ПокупкаМас

Массив «Покупка»

F11:J11

ПродМас

Массив «Продаж»

D5

Кол_Пач

Количество пачек

F9:J9

Вероятность

Рассчитанная вероятность продаж

Рекомендуемая последовательность выполнения лабораторной работы

  1. Для удобства восприятия вы можете выделить разными цветами исходные данные и расчетные (рис.21).

  2. Введите значения, соответствующие объему реализации и числу событий (количество купленных журналов).

  3. Занесите формулу для расчета вероятности событий: =F8/СУММ($F8:$J8) и скопируйте ее на блок с именем Вероятность.

  4. Поместите на экран управляющий элемент-кнопку Start.

  5. Запишите макрос, вычисляющий прибыль (Выч_Приб):

    • Выделите блок Прибыль и введите формулу массива {=MУМНОЖ(Расчет;ТРАНСП(Вероятность))}

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

Рис.23. Задача «Модель управления запасами» во время выполнения

  • Выделите ячейку Максимальная_прибыль и введите формулу массива {=НАИБОЛЬШИЙ(Прибыль;1)}

  • Выделите ячейку Оптимальный_Объем и введите формулу массива {=(ПОИСКПОЗ(Максимальная_прибыль;Прибыль;0)-1)*5}

  • В редакторе VBA создайте процедуру Calc(), для выполнения макроса Выч_Приб и вывода значения максимальной прибыли и оптимального объема закупки журналов в соответствующее диалоговое окно.

  • Добавьте процедуру для обнуления расчетных данных, присвойте ей имя Nach_Znach.