Курсовая Принятие решений в условиях риска 3

Поможем написать учебную работу

Bukvasha

Содержание

ВВЕДЕНИЕ

1 Математическое обеспечение

1.1 Постановка задачи

1.2 Упрощение матрицы игры

1.3 Критерий Байеса относительно выигрышей

1.4 Критерий Байеса относительно рисков

1.5 Критерий Лапласа относительно выигрышей

1.6 Критерий Лапласа относительно рисков

1.7 Критерий относительных значений вероятностей состояний природы с учетом выигрышей (рисков)

2 Алгоритмическое обеспечение

3 Программное обеспечение

4 Исследовательская часть

Заключение

Список литературы

5. http://www.delphisources.ru/

Приложение

Выберите тип работы:

Работа добавлена на сайт bukvasha.net: 2015-10-25

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Имя

Принимаю Политику конфиденциальности

Скидка 25% при заказе до 8.11.2024

Федеральное агентство по образованию

Новокузнецкий филиал – институт
государственного образовательного учреждения
высшего профессионального образования
“Кемеровский государственный университет”

Кафедра информационных систем и управления имени В.К. Буторина

КУРСОВАЯ РАБОТА

по дисциплине "Исследование операций в экономике"

Тема:"Принятие решений в условиях риска"

Выполнила: студентка

группы ПИЭ-061

Никуленко С.Е.

Проверил: доц. Шипилов С.А.

Новокузнецк 2010

Содержание. 2

ВВЕДЕНИЕ. 3

1 Математическое обеспечение. 4

1.1 Постановка задачи. 4

1.2 Упрощение матрицы игры.. 8

1.3 Критерий Байеса относительно выигрышей. 9

1.4 Критерий Байеса относительно рисков. 11

1.5 Критерий Лапласа относительно выигрышей. 13

1.6 Критерий Лапласа относительно рисков. 15

1.7 Критерий относительных значений вероятностей состояний природы с учетом выигрышей (рисков) 15

2 Алгоритмическое обеспечение. 19

3 Программное обеспечение. 24

4 Исследовательская часть. 27

Заключение. 36

Список литературы.. 37

Приложение. 38

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

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

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

Объектом исследования является процесс принятия решения.

Предмет исследования - процесс выбора оптимального решения в условиях риска.

Задачи

1.   Подробное математическое описание заданного метода и задачи исследования операций.

2.   Выбор и детальное описание алгоритма решения задачи. Иллюстрация работы алгоритма на контрольном примере с использованием стандартных программных средств (Excel) с численным выводом результатов.

3.   Выбор среды программирования, интерфейса пользователя. Описание модульной структуры программного комплекса.

4.   Исследование работоспособности программы на нескольких тестовых примерах.

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

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

Риск - это деятельность, связанная с преодолением неопределенности в ситуации неизбежного выбора, в процессе которой имеется возможность количественно и качественно оценить вероятность достижения предполагаемого результата, неудачи и отклонения от цели.

Выбор стратегии зависит от объективной действительности, называемой в математической модели «природой». Сама же математическая модель подобных ситуаций называется «игрой с природой».

Таким образом, в игре с природой осознанно действует только один игрок, а именно, лицо, принимающее решение (статистик), обозначим его через А. Природа, обозначим ее через П, является вторым игроком.

Пусть игрок А имеет т возможных стратегий А₁, ..., А_т, а природа П может находиться в одном из п состояний П
₁, ..., П_п, которые можно рассматривать как ее «стратегии».

Совокупность { П
₁, ..., П_п } формируется либо на основе имеющегося опыта анализа состояний природы, либо в результате предположений и интуиции экспертов.

Предположим, что статистик может оценить последствия применения каждой своей чистой стратегии А
_i в зависимости от каждого состояния П
_j природы П.

Выигрыш игрока А при выбранной им стратегии А_i, i
= l, ..., m, и при состоянии П_j, j
= l, ..., п, природы П обозначим a_ij , i
i
= l, ..., m, j
= l, ..., п. Из выигрышей игрока А можно сформировать матрицу выигрышей игрока А (матрицу игры, платежную матрицу):

Таблица 1 – Платежная матрица, матрица выигрышей

A=	П _j А _i	П ₁	П ₂	…	П _n
	А₁	a₁₁	a₁₂	…	a_1n
	А₂	a₂₁	a₂₂	…	a_2n
	…	…	…	…	…
	А _m	a_m1	a_m2	…	a_mn

Целью является выбор игроком A чистой или смешанной стратегии, более эффективной, чем остальные.

Смешанная стратегия - такая стратегия, в которой ,в отличие от чистой, игроку следует выбирать ту или иную стратегию с некоторой долей вероятности. В чистой стратегии вероятность ее выбора равна 1, а всех других 0.

При решении вопроса о выборе возможной стратегии в игре с природой игрок A должен исходить из матрицы выигрышей. Однако матрица выигрышей не всегда адекватно отражает имеющуюся ситуацию. На выбор стратегии должны влиять не только выигрыши, составляющие матрицу игры, но и показатели «удачности» или «неудачности» выбора данной стратегии при данном состоянии природы и благоприятности этого состояния для увеличения выигрыша.

Показателем благоприятности состояния П
_j природы П для увеличения выигрыша называется наибольший выигрыш при этом состоянии, т.е. наибольший элемент в j-ом столбце матрицы игры:

                                        β_j = max a_ij, j=1, …, n.                                        (1)

                                               ^1≤ⁱ^≤^m

Таким образом, благоприятность состояния природы рассматривается как фактор, благоприятствующий увеличению выигрыша игрока А при этом состоянии природы.

Для оценки степени удачности применения игроком А стратегии А
_i при состоянии П
_j природы П вводят понятие «риска».

Риск упущенной выгоды – это риск наступления косвенного (побочного) финансового ущерба (неполученная прибыль) в результате неосуществления какого-либо мероприятия.

Риском r_ij игрока А при выборе им стратегии А
_i в условиях состояния природы П называется разность между показателем благоприятности β_j состояния природы П
_j и выигрышем a_ij, т.е. разность между выигрышем, который игрок А получил бы, если бы знал заранее, что природа примет состояние П
_j и выигрышем, который он получит при этом же состоянии П
_j, выбрав стратегию А
_i:

                                  r_ij = β_j - a_ij, i=1, …, m; j=1, …, n.                               (2)

Таким образом, риск r_ij игрока А при применении стратегии А
_i в условиях состояния природы П
_j есть упущенная им возможность максимального выигрыша β_j при этом состоянии природы. Эта упущенная возможность определяется невыигранной частью величины максимального выигрыша β_j.

Величину риска можно интерпретировать как своеобразную плату за отсутствие информации о состоянии природы.

Риск r_ti для любых i=1, …, m и j=1, …, n неотрицателен:

                                    r_ij ≥ 0, i=1, …, m; j=1, …, n.                                     (3)

Можно установить и верхнюю границу рисков для каждого состояния природы П
_j. Для этого введем в рассмотрение величину ω_j:

                                      ω_j = min a_ij, j=1, …, n.                                          (4)

                                             ^1≤ⁱ^≤^m

представляющую собой наименьший выигрыш игрока А при состоянии природы П
_j. Тогда имеем:

                              r_ij ≤ β_j - ω_j, i=1, …, m; j=1, …, n.                                   (5)

Разность β_j - ω_j естественно назвать колебанием выигрышей при состоянии природы П
_j, j
= l, ..., п

Если a_ij = β_j, то r_ij = 0, т.е. стратегия А
_i при состоянии природы П
_j является безрисковой.

Если a_ij = ω_j, то риск r_ij, является максимальным. Следовательно, по критерию риска стратегия А
_i в этом случае наихудшая.

Если β_j = ω_j, то все выигрыши j-столбце матрицы игры равны между собой: ω_j = a₁_j = a₂_j = … = a_mj = β_j и риск r_ij = 0. Поэтому в этом случае любая стратегия игрока А при состоянии природы П
_j безрисковая.

Для матрицы А матрица рисков R_A имеет ту же размерность и следующий вид:

Таблица 2 – Матрица рисков

R_A =	П _j А _i	П ₁	П ₂	…	П _n
	А₁	r₁₁	r₁₂	…	r_1n
	А₂	r₂₁	r₂₂	…	r_2n
	…	…	…	…	…
	А _m	r_m1	r_m2	…	r_mn

Отметим, что матрица выигрышей А однозначно порождает матрицу рисков R_A, поскольку каждый риск r_ij однозначно определяется соответствующими показателем благоприятности β_j состояния природы П
_j, и выигрышем a_ij. Обратное неверно: одна и та же матрица рисков может соответствовать разным матрицам выигрышей.

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

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

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

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

Таким образом, в играх с природой можно и полезно пользоваться принципом доминирования стратегий игрока А (строк матрицы игры). Однако принцип доминирования стратегий (состояний) природы (столбцов матрицы игры) недопустим, поскольку природа не выбирает свои состояния с целью по возможности большего уменьшения выигрышей игрока А, для нее нет более или менее эффективных состояний.

Предположим, что статистик из прошлого опыта известны не только состояния П
_j, j
= l, ..., п, в которых может находиться природа П, но и соответствующие вероятности q₁, ..., q_n с которым природа П реализует эти состояния. Тогда мы находимся в ситуации принятия решения в условиях риска.

Показателем эффективности стратегии А_i по критерию Байеса относительно выигрышей называется среднее значение, или математическое ожидание выигрыша i-й строки с учетом вероятностей всех возможных состояний природы. Обозначая это среднее значение через ā_i, будем иметь:

           ā_i = q₁ a_i₁ + q₂ a_i₂ + … + q_n a_in = , i=1, …, m.                (6)

Таким образом, a_t представляет собой взвешенное среднее выигрышей i-й строки, взятых с весами q₁, ..., q_n.

Оптимальной среди чистых стратегий по критерию Байеса относительно выигрышей считается стратегия А_i₀ с максимальным показателем эффективности, т.е. с максимальным средним выигрышем:

                                        ā_i0 = max ā_i.                                                      (7)

                                                 ^{1≤ i ≤m}

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

Распространим понятие показателя эффективности по критерию Байеса относительно выигрышей на смешанные стратегии игрока П.

Пусть P = ( p₁, ..., p_n) - некоторая смешанная стратегия игрока А, при которой чистая стратегия А_i используется им с вероятностью p_i, i=1, ..., т. Тогда выигрыш игрока А при смешанной стратегии P = ( p₁, ..., p_n) и при состоянии природы П
_j будет равен

                              H (P, П_j) = , j=1, …, n.                                     (8)

Показателем эффективности смешанной стратегии P = ( p₁, ..., p_n) по критерию Байеса относительно выигрышей назовем среднее значение выигрышей, с учетом вероятностей q₁, ..., q_n состояний природы. Обозначим этот показатель через

.

Получим:

= ===

. (9)

Таким образом показатель эффективности смешанной стратегии P = ( p₁, ..., p_n) по критерию Байеса относительно выигрышей представляет собой взвешенное среднее показателей эффективности чистых стратегий А
_i, i
= l, ..., m, по тому же критерию с весами p_i, i
= l, ..., m.

Если, в частности, стратегия P = ( p₁, ..., p_n) является чистой стратегией А
_k, k
= l, ..., m, то p_i = 0 i ≠ k, p_k = 1, и ее показатель эффективности как смешанной стратегии

, превращается в ее показатель эффективности как чистой стратегии ā_k, вычисляемый по формуле (6).

Пусть S_A - множество всех смешанных (в том числе и чистых) стратегий игрока A. Оптимальной среди всех стратегий множества S_Aпо критерию Байеса относительно выигрышей назовем стратегию P⁰, показатель эффективности (9) которой максимален:

max

. (10)

^P^ϵ^S^a

Стратегия А
_i₀ оптимальная среди чистых стратегий по критерию Байеса относительно выигрышей, является оптимальной по тому же критерию и среди всех смешанных стратегий множества S_A.

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

Рассмотрим ту же игру с природой матрицей, в которой известны вероятности состояний природы q₁, ..., q_n. При принятии решений в условиях риска можно пользоваться не только средними выигрышами, но и средними рисками. Составим матрицу рисков для матрицы A, используя формулу рисков (3)

Таблица 3 – Матрица рисков

П _j А _i	П ₁	П ₂	…	П _n
А₁	r₁₁	r₁₂	…	r_1n
А₂	r₂₁	r₂₂	…	r_2n
…	…	…	…	…
А _m	r_m1	r_m2	…	r_mn

Показателем неэффективности стратегии А
_i по критерию Байеса относительно рисков называется среднее значение, или математическое ожидание риска i-й строки матрицы (таблица 3), вероятности которых, очевидно, совпадают с вероятностями состояний природы. Обозначим средний риск при стратегии А
_i через ṝ_i, тогда

ṝ_i = q₁ r_i1+ q₂ r_i2 + … + q_n r_in = , i=1, …, m. (11)

является взвешенной средней рисков i-й строки матрицы (таблица 3) с весами p_i, i=1, ..., т.

Оптимальной среди чистых стратегий по критерию Байеса относительно рисков является стратегия П
_j, показатель неэффективности (11) которой минимален, т.е. минимален средний риск

                                        ṝ_i0 = min ṝ_i.                                                    (12)

                                                 ^1≤ⁱ^≤^m

Определим понятие риска при использовании игроком А смешанной стратегии и при состоянии природы П
_j, j
= l, ..., п, как разность

                     r (P, П
_j) = [max H (U, П_j)] - H (P, П_j), j=1, …, n.                   (13)

                                    ^U^ϵ^S^a

между максимальным выигрышем max H (U, П_j) при всех смешанных стратегиях U = ( u₁, ..., u_n) ϵ S_A и при состоянии природы П
_j и выигрышем H (P, П_j) при смешанной стратегии P = ( p₁, ..., p_n) и при состоянии природы П
_j.

В качестве показателя неэффективности смешанной стратегии P = ( p₁, ..., p_n) по критерию Байеса относительно рисков рассмотрим взвешенную среднюю рисков (13) с весовыми коэффициентами, равными вероятностям q₁, ..., q_n состояний природы:

=. (14)

Оптимальной среди всех смешанных (в том числе и чистых) стратегий по критерию Байеса относительно рисков будем считать стратегию P⁰, показатель неэффективности которой, вычисляемый по формуле (14), минимален:

min

. (15)

^P^ϵ^S^a

Если А
_i₀ - стратегия, оптимальная среди чистых стратегий по критерию Байеса относительно рисков, то она является оптимальной по тому же критерию и среди всех смешанных стратегий множества S_A.

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

Критерии Байеса относительно выигрышей и относительно рисков эквивалентны, т.е. если стратегия А
_i₀ является оптимальной по критерию Байеса относительно выигрышей, то она является оптимальной и по критерию Байеса относительно рисков, и наоборот, стратегия А
_i₀, оптимальная по критерию Байеса относительно рисков, оптимальна и по критерию Байеса относительно выигрышей.

В предыдущих двух критериях Байеса известные вероятности q₁, ..., q_n состояний природы могли быть получены из статистических данных, отражающих многократное решение подобных задач, или в результате наблюдений за поведением природы. Однако, довольно часто складывается такая ситуация, когда мы лишены возможности определить вероятности состояний природы указанными способами. Желая все же принять решение в условиях риска, мы вынуждены оценить вероятности состояний природы субъективно. Существуют различные методы численной субъективной оценки степени правдоподобности состояний природы. Один из них состоит в том, что мы не можем отдать предпочтение ни одному из состояний природы, и потому считаем их равновероятными, т.е. q₁= .. .=q_n =

. Этот принцип называется «принципом недостаточного основания» Лапласа. На нем основан критерий Лапласа относительно выигрышей.

Показателем эффективности стратегии А
_i по критерию Лапласа относительно выигрышей называется среднее арифметическое выигрышей i-й строки:

ā_i= , i=1, …, m. (16)

Оптимальной среди чистых стратегий по критерию Лапласа относительно выигрышей считается стратегия А
_i
₀ показатель эффективности, кот-

орой, вычисляемый по формуле (16), максимален, т.е. ā_i₀ = max ā_i.

^1≤ⁱ^≤^m

Очевидно, что критерий Лапласа относительно выигрышей есть частный случай критерия Байеса относительно выигрышей при q₁= .. .=q_n =

. Поэтому все утверждения на счет критерия Байеса относительно выигрышей, остаются в силе и для критерия Лапласа относительно выигрышей.

Подставляя (16) в (9), получим показатель эффективности смешанной стратегии P = ( p₁, ..., p_n) по критерию Лапласа относительно выигрышей

= . (17)

Стратегия P = ( p₁, ..., p_n) будет оптимальной среди всех смешанных стратегий множества S_A по критерию Лапласа относительно выигрышей, если она максимизирует показатель эффективности (17).

Оптимальная среди чистых стратегия А
_i по критерию Лапласа относительно выигрышей является оптимальной по тому же критерию и среди всех смешанных стратегий.

Критерий Байеса относительно рисков при равновероятных состояниях природы, q₁= .. .=q_n =

, превращается в критерий Лапласа относительно рисков. Тогда величина , получающаяся из (11) при q_j=

, j=1, …, n, или более простая величина представляет собой показатель неэффективности стратегии А
_i по критерию Лапласа относительно рисков. Следовательно, оптимальной среди чистых стратегий по критерию Лапласа относительно рисков является стратегия А
_i
₀, показатель неэффективности которой минимален. Подставляя в (14) значения q_j=

, j=1, …, n, получим показатель неэффективности смешанной стратегии Р по критерию Лапласа относительно рисков, вместо которого можно рассматривать более простую величину

=. Стратегия Р, для которой показатель

принимает минимальное значение, является оптимальной среди всех стратегий множества S_A. Чистая стратегия, оптимальная среди чистых стратегий по критерию Лапласа относительно рисков, оптимальна по тому же критерию и среди всех смешанных стратегий множества S_A.

Критерии Лапласа относительно выигрышей и относительно рисков эквивалентны.

В практике принятия решений часто встречается случай, когда нам неизвестны вероятности состояний природы, но мы имеем представление о том, какие состояния природы более правдоподобны, какие менее правдоподобны, а какие равноправдоподобны. Поэтому мы можем расположить (неизвестные) вероятности состояний природы в виде убывающей или возрастающей последовательности. Для простоты предположим, что расположение q₁, ..., q_n уже и есть монотонная последовательность. Если, например, эта последовательность строго убывает, то правдоподобнее всех состояние П₁ затем по степени правдоподобности следует состояние П₂, и т. д., наименьшей правдоподобностью обладает состояние П_n. Не зная, на сколько одна вероятность состояния природы отличается от другой, мы можем предположительно придать им относительные значения, пропорциональные членам некоторой (подходящей на наш взгляд) монотонной последовательности положительных чисел τ₁, ..., τ_n, т.е.

q₁: q₂: q₃: ... : q_n = τ₁: τ₂: τ₃: ... : τ_n.(18)

Из (18) следует, что если q₁, ..., q_n убывающая, соответственно возрастающая, последовательность, то убывающей, соответственно возрастающей, является и последовательность τ₁, ..., τ_n.

При этом следует учитывать нормировочное равенство

=1 (19)

Вероятность j-ого столбца определяется по формуле:

q_j =

, j=1, …, n (20)

Из (20) и (19) получим:

1 =

. (21)

Из (21) выразим q₁ вероятность возникновения состояния природы П₁:
q₁ =

. (21)

Тогда:

q_j =

. (22)

Мы нашли значения вероятностей q_j, j=1, …, n, состояний природы.

Критерий Байеса относительно выигрышей при вероятностях состояний природы назовем критерием относительных значений вероятностей состояний природы с учетом выигрышей. При этом критерии показателем эффективности стратегии А
_i является величина ā_i, получающаяся из равенства (6) подстановкой в него вероятностей (22):

ā_i=

, i=1, …, m. (23)

Так как множитель

не зависит от номера i,то в качестве показателя эффективности стратегии А
_i вместо величины (23) можно рассматривать величину:

ā_i=

, i=1, …, m. (23)

Оптимальной среди чистых стратегий по рассматриваемому критерию является стратегия с максимальным показателем эффективности (23).

Критерий Байеса относительно рисков при вероятностях состояний природы назовем критерием относительных значений вероятностей состояний природы с учетом рисков. При этом показатель неэффективности стратегии подсчитывается по формуле (6), вероятности q₁, ..., q_n в которой представлены формулой (2.20.31):

ṝ_i=

, i=1, …, m. (24)

Оптимальной среди чистых стратегий по обсуждаемому критерию является стратегия с минимальным показателем неэффективности (24).

Выбор алгоритма решения задачи зависит от поставленных условий. Если вероятность состояний природы не определена и события равновероятны, то следует остановиться на критерии Лапласа. Если вероятность состояний природы не определена, но события имеют различную вероятность, то следует выбрать критерий относительных значений вероятностей состояний природы. В противном случае следует использовать критерий Байеса. Если исходными данными является платежная матрица, то для решения будут использоваться критерии относительно выигрышей, и критерии относительно рисков для матрицы рисков.

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

Рассмотрим игру с природой где игрок имеет 7 (m=7) чистых стратегий A₁, A₂, A₃, A₄, A₅, A₆, A₇, природа П может находиться в одном из четырех (n=5) состояний П
₁, П
₂, П
₃, П₄, П
₅. Статистик оценил последствия применения каждой из своих чистых стратегий A_i, в зависимости от состояний П
_j природы, результаты представлены в платежной матрице 7×5 (таблица 3).

Таблица 3 – Платежная матрица

A=	П _j А _i	П ₁	П ₂	П ₃	П ₄	П ₅
	А₁	5	6	4	3	4
	А₂	7	4	5	2	3
	А₃	2	3	6	4	2
	А ₄	4	8	3	0	1
	А ₅	4	7	4	6	2
	А ₆	7	4	5	2	3
	А ₇	1	3	1	1	1

Упрощение матрицы. У игрока А нет стратегии, доминирующей каждую из остальных его стратегий, следовательно, нужно посмотреть, нет ли у него доминируемых или дублирующих стратегий. При наличии таковых, соответствующие им строки матрицы можно удалить, уменьшив тем самым ее размерность. Стратегия А₂ доминирует стратегию А₇ и потому стратегию А₇ можно отбросить; стратегии А₂ и А₆ дублирующие, следовательно, одну из них, например А₆, можно удалить. В результате получим матрицу (таблица 3) размерности 5x5:

Таблица 4 – Упрощенная платежная матрица

Критерий Лапласа относительно выигрышей. Вероятности q₁, q₂, q₃, q₄, q₅состояний природы равны между собой и имеют значение q_j= 0,2.

Показатель эффективности стратегии А
_i по критерию Байеса относительно выигрышей рассчитывается для i-й строки по формуле (16):

ā₁= = 0,2*(5+6+4+3+4) = 4,4;

ā₂= 4,2;

ā₃= 3,4;

ā₄= 3,2;

ā₅= 4,6.

Как видно из полученных результатов оптимальной среди чистых стратегий по критерию Лапласа относительно выигрышей является ā₅₀ = 4.6, т.к. значение ее максимально.

Критерий Лапласа относительно рисков. Построим на основе матрица выигрышей матрицу рисков, для этого дополним таблицу 4 строкой значений показателей благоприятности β_j(1):

Таблица 5 – Показатели благоприятности

П _j А _i	П₁	П₂	П₃	П₄	П₅
А₁	5	6	4	3	4
А₂	7	4	5	2	3
А₃	2	3	6	4	2
А₄	4	8	3	0	1
А₅	4	7	4	6	2
β_j	7	8	6	6	4

Риск r_ij (2) это разность между показателем благоприятности β_j состояния природы П
_j и выигрышем a_ij. Для матрицы А матрица рисков R_A имеет ту же размерность 5x5:

Таблица 6 – Матрица упущенных возможностей

Показатель неэффективности стратегии А
_i по критерию Байеса относительно рисков рассчитывается по формуле (11):

ṝ₁ = = 0,2*(2+2+2+3+0) = 1,8;

ṝ₂ = 2;

ṝ₃ = 2,8;

ṝ₄ = 3;

ṝ₅ = 1,6.

Оптимальной среди чистых стратегий по критерию Байеса относительно рисков является ṝ₅₀ = 1.6, т.к. значение ее минимально. Как и предполагалось результаты, полученные по матрице выигрышей и по матрице рисков, совпадают. Для следующего критерия расчеты относительно рисков производиться не будут.

Критерий относительных значений вероятностей состояний природы с учетом выигрышей. Как уже известно, этот критерий используется в тех случаях, когда вероятность событий не известна, но статистик имеет представление об отношении вероятности одного состоянии природы к другим. Игрок A решил для себя, что менее правдоподобно возникновение П₁, затем по степени правдоподобности следуют состояния П₂, П₃ и П₄, наибольшей правдоподобностью обладает П₅, последовательность возрастает. Для определения вероятности q₁, q₂, q₃, q₄, q₅ зададим произвольную монотонную возрастающую последовательность положительных чисел τ₁, τ₂, τ₃, τ₄, τ₅: 9, 16, 18, 22, 23. Вероятность состояния природы П₁ определяется по формуле (22):

q₁ =

≈0,1023.

q₂ ≈0,1818;

q₃ ≈ 0,2046;

q₄ = 0,25;

q₅ = 0,2614;

Дополним матрицу игры (таблица 4) строкой с найденными вероятностями:

Таблица 5 – Матрица игры с заданными вероятностями

П _j А _i	П₁	П₂	П₃	П₄	П₅
А₁	5	6	4	3	4
А₂	7	4	5	2	3
А₃	2	3	6	4	2
А₄	4	8	3	0	1
А₅	4	7	4	6	2
q₁	0,102 3	0,1818	0,204 6	0,25	0,261 4

Показатель эффективности стратегии А_i по критерию Байеса относительно выигрышей рассчитывается по формуле (6):

ā₁= = 5*0,1023+6*0,1818+4*0,2046+3*0,25+4*0,2614=4,2159;

ā₂= 3,75;

ā₃= 3,5;

ā₄= 2,7386;

ā₅= 4,5227;

Оптимальной среди чистых стратегий по критерию Байеса относительно выигрышей является ā₅₀ = 4,5227, значение максимально.

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

Результаты, полученные по трем критерия, совпадают.

Для реализации алгоритма принятия решения в условиях риска воспользуемся средой программирования Delphi7.

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

Программа работает в различных режимах, которые зависят от задаваемых параметров:

1)     Тип матрицы:

a)     Матрица игры (без матрицы рисков);

b)    Матрица игры с расчетом матрицы рисков;

c)    Матрица рисков.

2)     Вероятность состояний природы:

a)     Вероятность определена;

b)    Вероятность неопределенна:

i)       События равновероятны;

ii)     События не равновероятны.

В качестве глобальных параметров выступают количество состояний природы (m) и количество стратегий игрока (n). После каждого изменения их значений форма перерисовывается в соответствии с заданной размерностью.

Входными параметрами являются матрица игры либо матрица рисков и вектор вероятности (q). Вектор вероятности вводятся в последнюю строку (если «Вероятность определена»), либо задается произвольной последовательностью чисел (если «События не равновероятны»), либо отсутствует (если «События равновероятны»).

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

Основной модуль служит для ввода данных и необходимых настроек.

Кнопка «Просчитать риски» работает только для матрицы игры, служит для расчета матрицы рисков.

Кнопка «Задать» задает вероятность возникновения определенного состояния природы на основе произвольной последовательности чисел, работает при «События не равновероятны».

Интерфейс основного модуля:

Дополнительные модуль подключается в случае задания параметра «События не равновероятны», где пользователь рассчитывает вероятность по произвольной последовательности чисел. Количество столбцов в основном модуле и в дополнительном взаимосвязаны.

Интерфейс дополнительного модуля:

В модулях реализована проверка на заполнение полей в таблицах, при возникновении такой ситуации пользователю выдается сообщение:

Проверка на деление на ноль:

При нажатии на кнопку «Упростить», возможны два варианта:

и второй, где А с номером убранной строки:

Если в результате упрощения осталась только 1 строка, где А с номером убранной строки:

Проведем исследование работоспособности программы на тестовых примерах. Рассмотрим матрицу игры с заданной вероятностью, матрицу игры и рисков с равной вероятностью и матрицу рисков с относительными значениями вероятностей состояний природы.

Матрица игры с заданной вероятностью. Возможно строительство четырех типов электростанций А₁ - тепловые, А₂ - приплотинные, А₃ - безшлюзовые, А₄ - шлюзовые. Эффективность каждого типов электростанций определяется сочетанием различных факторов, в том числе и факторов , зависящих от различных случайных явлений: погодных условий. режима рек, стоимости топлива и его перевозки, сейсмической обстановки района и т.д. Число возможных сочетаний факторов равно десяти, обозначим их как состояния природы (П₁, П₂, П₃, П₄, П₅, П₆, П₇, П₈, П₉, П₁₀). Вероятности возникновения каждой обстановки равны: q₁=0,12, q₂=0,04, q₃=0,09, q₄=0,1, q₅=0,06, q₆=0,15, q₇=0,07, q₈=0,12, q₉=0,16, q₁₀=0,9. Экономическая эффективность типа электростанций в зависимости состояний природы задается в программном модуле:

Доминирующих либо дублирующих строк нет, упрощение не требуется:

Стратегия А4 является оптимальной:

Матрица игры и построенная на ее основе матрица рисков с равной вероятностью. На промышленном предприятии готовятся к переходу на выпуск новых видов продукции товаров народного потребления. При этом возможны восемь решений А₁, А₂, А₃, А₄, А₅, А₆, А₇, А₈, каждому из которых соответствует определенный вид продукции или их сочетание. Результаты принятых решений существенно зависит от обстановки (степени обеспеченности производства материальными ресурсами), которая может быть семи видов: П₁, П₂, П₃, П₄, П₅, П₆, П₇. Каждому сочетанию А_i, i=1, …, 8 и обстановки П_j, j=1, …, 7, соответствует определенный выигрыш - эффективность выпуска новых видов продукции. Всевозможные выигрыши записываются в программный модуль:

Доминирующих либо дублирующих строк нет, упрощение не требуется:

Рассчитаем матрицу рисков:

Стратегия А3 является оптимальной:

Матрица рисков с относительными значениями вероятностей состояний природы. Крупный инвестор может вложить свою прибыль в семь бизнес проектов A₁, A₂, A₃, A₄, A₅, A₆, A₇, при этом возможны пять состояний рынка П
₁, П
₂, П
₃, П₄, П
₅. Каждому сочетанию А_i, i=1, …, 7 и обстановки П_j, j=1, …, 5, соответствует определенный риск упустить выгоду.

Всевозможные выигрыши записываются в программный модуль:

Строка А7 больше А2, А6 равна А2:

Вероятность возникновения определенных состояний рынка инвестору не известна, но имеет представление, какие события более, а какие менее вероятны. Он решил, что менее правдоподобно возникновение П₁, затем по степени правдоподобности следуют состояния П₂, П₃ и П₄, наибольшей правдоподобностью обладает П₅. Не зная, на сколько одна вероятность состояния природы отличается от другой, он придал им относительные значения, 9: 16: 18: 22: 23 для П
₁, П
₂, П
₃, П₄, П
₅ соответственно. Нажав на кнопку задать вводится последовательность:

Расчет вероятности:

Оптимальное значение А5:

В ходе выполнения курсовой работы был исследован процесс принятия решений в условиях риска. Для поиска оптимального значения были рассмотрены критерии Байеса, Лапласа и критерий оптимальных значений вероятностей состояний природы относительно выигрышей и рисков.

Кроме этого был создан программный модуль, реализующий данные алгоритмы.

В данный работе были выполнены следующие задачи:

1.   Выполнено подробное математическое описание поиска оптимальной стратегии в условиях риска.

2.   Детально описан алгоритм решения задачи. Проиллюстрирована работа алгоритма на контрольном примере с использованием стандартных программных средств (Excel) с численным выводом результатов.

3.   Выбрана среда программирования Delphi7. Описана модульная структуры программного комплекса. Представлен интерфейс.

4.   Исследована работоспособность программы на трех тестовых примерах.

1.       Лабскер Л. Г.Теория критериев оптимальности и экономические решения – М.: Издательство «КноРус», 2005. – 744 с.

2.       Хемди А. Таха Введение в исследование операций. – М.: «Вильямс», 2007. – 903 с.

3.       Шапкин А.С. Экономитческие и финансовые риски. Оценка, управление, портфель инвестиций[Текст]: Учебное пособие для вузов/ А.С. Шапкин – М.: Издательско – торговая корпорация «Дашков и К°», 2003. - 544 с.

4.       Экономико-математическое моделирование: Учебник для студентов вузов/ Под общ. ред. И.Н. Дрогобыцкого.- М.: Издательство “Экзамен”, 2004.- 800 с.

Основной модуль:
unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Spin, Grids;

type

TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    SpinEdit1: TSpinEdit;

    SpinEdit2: TSpinEdit;

    GroupBox2: TGroupBox;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    CheckBox1: TCheckBox;

    CheckBox2: TCheckBox;

    GroupBox3: TGroupBox;

    RadioButton3: TRadioButton;

    Button2: TButton;

    RadioButton4: TRadioButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    StringGrid1: TStringGrid;

    GroupBox4: TGroupBox;

    StringGrid2: TStringGrid;

    StringGrid3: TStringGrid;

    GroupBox5: TGroupBox;

    Button1: TButton;

    procedure CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure CheckBox1KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure CheckBox2KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure CheckBox2MouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure RadioButton4Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure SpinEdit1Change(Sender: TObject);

    procedure SpinEdit2Change(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

    procedure StringGrid2KeyPress(Sender: TObject; var Key: Char);

    procedure StringGrid3KeyPress(Sender: TObject; var Key: Char);

    procedure Button4Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

private

    { Private declarations }

public

    { Public declarations }

end;

var

Form1: TForm1;

otvet:integer;

implementation

     uses unit2;

{$R *.dfm}

procedure TForm1.CheckBox1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

CheckBox2.Checked:=False;

RadioButton1.Enabled:=False;

RadioButton2.Enabled:=False;

Button2.Enabled:=false;

StringGrid2.Enabled:=true;

end;

procedure TForm1.CheckBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = 13 then begin

CheckBox1.Checked:=true;

CheckBox2.Checked:=False;

RadioButton1.Enabled:=False;

RadioButton2.Enabled:=False;

Button2.Enabled:=false;

StringGrid2.Enabled:=true;

end;

end;

procedure TForm1.CheckBox2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if key = 13 then begin

CheckBox2.Checked:=true;

CheckBox1.Checked:=False;

RadioButton1.Enabled:=true;

RadioButton2.Enabled:=true;

StringGrid2.Enabled:=false;

if RadioButton2.Checked=True then

   Button2.Enabled:=true;

end;

end;

procedure TForm1.CheckBox2MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

CheckBox1.Checked:=False;

RadioButton1.Enabled:=true;

RadioButton2.Enabled:=true;

StringGrid2.Enabled:=false;

if RadioButton2.Checked=True then

   Button2.Enabled:=true;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

Button2.Enabled:=true;

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Button2.Enabled:=false;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

GroupBox4.Caption:='Ìàòðèöà èãðû';

Button3.Enabled:=True;

end;

procedure TForm1.RadioButton4Click(Sender: TObject);

begin

Form1.Height:=480;

GroupBox4.Caption:='Ìàòðèöà ðèñêîâ';

Button3.Enabled:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.FormCreate(Sender: TObject);

var i:integer;

begin

Form1.Top:=210;

Form1.Left:=410;

Form1.Height:=480;

StringGrid1.ColCount:=SpinEdit1.Value+1;

StringGrid1.RowCount:=SpinEdit2.Value+1;

StringGrid2.ColCount:=SpinEdit1.Value+1;

StringGrid1.DefaultColWidth:=round((StringGrid1.Width-10)/StringGrid1.ColCount);

StringGrid1.DefaultRowHeight:=round((StringGrid1.Height-10)/StringGrid1.RowCount);

StringGrid2.DefaultColWidth:=round((StringGrid2.Width-10)/StringGrid2.ColCount);

for i:=1 to SpinEdit1.Value do

StringGrid1.Cells[i,0]:='Ï'+inttostr(i);

for i:=1 to SpinEdit2.Value do

StringGrid1.Cells[0,i]:='A'+inttostr(i);

StringGrid2.Cells[0,0]:='q';

    end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

var i:integer;

begin

StringGrid1.ColCount:=SpinEdit1.Value+1;

StringGrid1.DefaultColWidth:=round((StringGrid1.Width-10)/StringGrid1.ColCount);

StringGrid2.ColCount:=SpinEdit1.Value+1;

StringGrid2.DefaultColWidth:=round((StringGrid2.Width-10)/StringGrid2.ColCount);

for i:=1 to SpinEdit1.Value+1 do

StringGrid1.Cells[i,0]:='Ï'+inttostr(i);

end;

procedure TForm1.SpinEdit2Change(Sender: TObject);

var i:integer;

begin

StringGrid1.RowCount:=SpinEdit2.Value+1;

StringGrid1.DefaultRowHeight:=round((StringGrid1.Height-10)/StringGrid1.RowCount);

for i:=1 to SpinEdit2.Value+1 do

StringGrid1.Cells[0,i]:='A'+inttostr(i);

end;

procedure TForm1.Button3Click(Sender: TObject);

var

i,j:integer;

f:boolean;

a: array [0..12] of integer;

begin

f:=true;

for i:=0 to SpinEdit2.Value-1 do

     a[i]:=0;

for i:=1 to SpinEdit1.Value do

for j:=1 to SpinEdit2.Value do

       if StringGrid1.Cells[i,j]='' then f:=false;

if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

else begin

Form1.Height:=757;

StringGrid3.ColCount:=SpinEdit1.Value+1;

StringGrid3.RowCount:=SpinEdit2.Value+1;

StringGrid3.DefaultColWidth:=round((StringGrid3.Width-10)/StringGrid3.ColCount);

StringGrid3.DefaultRowHeight:=round((StringGrid3.Height-10)/StringGrid3.RowCount);

for i:=1 to SpinEdit1.Value do

StringGrid3.Cells[i,0]:='Ï'+inttostr(i);

for i:=1 to SpinEdit2.Value do

StringGrid3.Cells[0,i]:='A'+inttostr(i);

for i:=1 to SpinEdit1.Value do

for j:=1 to SpinEdit2.Value do

     if a[i-1]

for i:=1 to SpinEdit1.Value do

for j:=1 to SpinEdit2.Value do

     StringGrid3.Cells[i,j]:=inttostr(a[i-1]-strtoint(StringGrid1.Cells[i,j]));

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

var i,j:integer;

begin

Form1.Height:=480;

for i:=1 to SpinEdit1.Value do begin

for j:=1 to SpinEdit2.Value do begin

     StringGrid1.Cells[i,j]:='';

     StringGrid3.Cells[i,j]:='';

     end;

StringGrid2.Cells[i,0]:='';

Form2.StringGrid1.Cells[i,1]:='';

Form2.StringGrid2.Cells[i,1]:='';

end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form2.Close;

end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

begin

if not (key in ['0'..'9',#8]) then key:=#0;

end;

end;

procedure TForm1.StringGrid2KeyPress(Sender: TObject; var Key: Char);

begin

begin

if not (key in ['0'..'9','.',',',#8]) then key:=#0;

end;

end;

procedure TForm1.StringGrid3KeyPress(Sender: TObject; var Key: Char);

begin

begin

if not (key in ['0'..'9',#8]) then key:=#0;

end;

end;

procedure TForm1.Button4Click(Sender: TObject);

var

i,j,max,maxr:integer;

f:boolean;

a: array [0..12] of Real;

begin

f:=true;

max:=0;

maxr:=0;

for i:=0 to SpinEdit2.Value-1 do

     a[i]:=0;

for i:=1 to SpinEdit1.Value do

for j:=1 to SpinEdit2.Value do

       if StringGrid1.Cells[i,j]='' then f:=false;

if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

else begin

f:=true;

// ÊÐÈÒÅÐÈÉ ÁÀÉÅÑÀ

if CheckBox1.Checked=true then begin

for i:=1 to SpinEdit1.Value do

         if StringGrid2.Cells[i,0]='' then f:=false;

if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

else begin

// äëÿ ìàòðèöû èãðû ïîäñò÷åò ìàò îæèäàíèÿ

    for i:=1 to SpinEdit1.Value do

        for j:=1 to SpinEdit2.Value do

            a[j-1]:=a[j-1]+strtoint(StringGrid1.Cells[i,j])*strtofloat(StringGrid2.Cells[i,0]);

// äëÿ ìàòðèöû èãðû îïðåäåëåíèÿ ìàêñèìóìà

    if RadioButton3.Checked=true then begin

    for i:=1 to SpinEdit2.Value-1 do

          if a[max]

          if Form1.Height<757 then

          ShowMessage('Íàøåë îïòèìàëüíûé ìàêñèìóì: À'+inttostr(max+1)); end;

// äëÿ ìàòðèöû ðèñêîâ îïðåäåëåíèÿ ìèíèìóìà

    if RadioButton4.Checked=true then begin

     for i:=1 to SpinEdit2.Value-1 do

          if a[max]>a[i] then max:=i; ShowMessage('Íàøåë îïòèìàëüíûé ìèíèìóì: À'+inttostr(max+1)); end;

// äëÿ ðàñ÷èòàííîé ìàòðèöû ðèñêîâ

    if (Form1.Height=757) and (RadioButton3.Checked=true) then begin

      f:=true;

      for i:=1 to SpinEdit1.Value do

         for j:=1 to SpinEdit2.Value do

         if StringGrid3.Cells[i,j]='' then f:=false;

         if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

         else begin

           for i:=0 to SpinEdit2.Value-1 do

                 a[i]:=0;

           for i:=1 to SpinEdit1.Value do

               for j:=1 to SpinEdit2.Value do

                   a[j-1]:=a[j-1]+strtoint(StringGrid3.Cells[i,j])*strtofloat(StringGrid2.Cells[i,0]);

           for i:=1 to SpinEdit2.Value-1 do

                 if a[maxr]>a[i] then maxr:=i;

         if max=maxr then ShowMessage('Îïòèìàëüíûå çíà÷åíèÿ ñîâïàäàþò: À'+inttostr(max+1))

         else ShowMessage('Íàøåë îïòèìàëüíûé ìàêñèìóì: À'+inttostr(max+1)+'; Íàøåë îïòèìàëüíûé ìèíèìóì: À'+inttostr(maxr+1))

         end;

     end;

end;

end;

// ÊÐÈÒÅÐÈÉ ËÀÏËÀÑÀ

If (CheckBox2.Checked=true) and (RadioButton1.Checked=true) then begin

// äëÿ ìàòðèöû èãðû ïîäñò÷åò ìàò îæèäàíèÿ

    for i:=1 to SpinEdit1.Value do

        for j:=1 to SpinEdit2.Value do

            a[j-1]:=a[j-1]+strtoint(StringGrid1.Cells[i,j]);

// äëÿ ìàòðèöû èãðû îïðåäåëåíèÿ ìàêñèìóìà

    if RadioButton3.Checked=true then Begin

    for i:=1 to SpinEdit2.Value-1 do

          if a[max]

          if Form1.Height<757 then

          ShowMessage('Íàøåë îïòèìàëüíûé ìàêñèìóì: À'+inttostr(max+1)); end;

// äëÿ ìàòðèöû ðèñêîâ îïðåäåëåíèÿ ìèíèìóìà

    if RadioButton4.Checked=true then begin

     for i:=1 to SpinEdit2.Value-1 do

          if a[max]>a[i] then max:=i; ShowMessage('Íàøåë îïòèìàëüíûé ìèíèìóì: À'+inttostr(max+1)); end;

// äëÿ ðàñ÷èòàííîé ìàòðèöû ðèñêîâ

    if (Form1.Height=757) and (RadioButton3.Checked=true) then begin

      f:=true;

      for i:=1 to SpinEdit1.Value do

         for j:=1 to SpinEdit2.Value do

      if StringGrid3.Cells[i,j]='' then f:=false;

      if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

      else begin

           for i:=0 to SpinEdit2.Value-1 do

                 a[i]:=0;

           for i:=1 to SpinEdit1.Value do

               for j:=1 to SpinEdit2.Value do

                   a[j-1]:=a[j-1]+strtoint(StringGrid3.Cells[i,j]);

           for i:=1 to SpinEdit2.Value-1 do

                 if a[maxr]>a[i] then maxr:=i;

         if max=maxr then ShowMessage('Îïòèìàëüíûå çíà÷åíèÿ ñîâïàäàþò: À'+inttostr(max+1))

         else ShowMessage('Íàøåë îïòèìàëüíûé ìàêñèìóì: À'+inttostr(max+1)+'; Íàøåë îïòèìàëüíûé ìèíèìóì: À'+inttostr(maxr+1))

      end;

    end;

end;

f:=true;

// ÒÐÅÒÈÉ ÊÐÈÒÅÐÈÉ

If (CheckBox2.Checked=true) and (RadioButton2.Checked=true) then begin

for i:=1 to SpinEdit1.Value do

         if StringGrid2.Cells[i,0]='' then f:=false;

if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

else begin

// äëÿ ìàòðèöû èãðû ïîäñò÷åò ìàò îæèäàíèÿ

    for i:=1 to SpinEdit1.Value do

        for j:=1 to SpinEdit2.Value do

            a[j-1]:=a[j-1]+strtoint(StringGrid1.Cells[i,j])*strtofloat(StringGrid2.Cells[i,0]);

// äëÿ ìàòðèöû èãðû îïðåäåëåíèÿ ìàêñèìóìà

    if RadioButton3.Checked=true then begin

    for i:=1 to SpinEdit2.Value-1 do

          if a[max]

          if Form1.Height<757 then

          ShowMessage('Íàøåë îïòèìàëüíûé ìàêñèìóì: À'+inttostr(max+1)); end;

// äëÿ ìàòðèöû ðèñêîâ îïðåäåëåíèÿ ìèíèìóìà

    if RadioButton4.Checked=true then begin

     for i:=1 to SpinEdit2.Value-1 do

          if a[max]>a[i] then max:=i; ShowMessage('Íàøåë îïòèìàëüíûé ìèíèìóì: À'+inttostr(max+1)); end;

// äëÿ ðàñ÷èòàííîé ìàòðèöû ðèñêîâ

    if (Form1.Height=757) and (RadioButton3.Checked=true) then begin

      f:=true;

      for i:=1 to SpinEdit1.Value do

         for j:=1 to SpinEdit2.Value do

         if StringGrid3.Cells[i,j]='' then f:=false;

         if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

         else begin

           for i:=0 to SpinEdit2.Value-1 do

                 a[i]:=0;

           for i:=1 to SpinEdit1.Value do

               for j:=1 to SpinEdit2.Value do

                   a[j-1]:=a[j-1]+strtoint(StringGrid3.Cells[i,j])*strtofloat(StringGrid2.Cells[i,0]);

           for i:=1 to SpinEdit2.Value-1 do

                 if a[maxr]>a[i] then maxr:=i;

         if max=maxr then ShowMessage('Îïòèìàëüíûå çíà÷åíèÿ ñîâïàäàþò: À'+inttostr(max+1))

       else ShowMessage('Íàøåë îïòèìàëüíûé ìàêñèìóì: À'+inttostr(max+1)+'; Íàøåë îïòèìàëüíûé ìèíèìóì: À'+inttostr(maxr+1))

         end;

      end;

end;

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

s: string;

i,j,l,p,k:integer;

f:boolean;

a: array [0..13] of integer;

begin

f:=true;

for i:=1 to SpinEdit1.Value do

for j:=1 to SpinEdit2.Value do

       if StringGrid1.Cells[i,j]='' then f:=false;

if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

else begin

p:=0; k:=0;

for i:=1 to SpinEdit1.Value do

a[i]:=0;

if RadioButton3.Checked=true then

for l:=1 to SpinEdit2.Value-1 do

for j:=l+1 to SpinEdit2.Value do begin

    for i:=1 to SpinEdit1.Value do begin

            if strtoint(StringGrid1.Cells[i,l])>=strtoint(StringGrid1.Cells[i,j]) then p:=p+1;

            if strtoint(StringGrid1.Cells[i,1])

    if (p=SpinEdit1.Value) then a[j]:=-1;

    if (k=SpinEdit1.Value) then a[l]:=-1;

    p:=0;

    k:=0;

end;

if RadioButton4.Checked=true then

for l:=1 to SpinEdit2.Value-1 do

for j:=l+1 to SpinEdit2.Value do begin

    for i:=1 to SpinEdit1.Value do begin

            if strtoint(StringGrid1.Cells[i,l])<=strtoint(StringGrid1.Cells[i,j]) then p:=p+1;

            if strtoint(StringGrid1.Cells[i,1])>strtoint(StringGrid1.Cells[i,j]) then k:=k+1; end;

    if (p=SpinEdit1.Value) then a[j]:=-1;

    if (k=SpinEdit1.Value) then a[l]:=-1;

    p:=0;

    k:=0;

end;

for j:=1 to SpinEdit2.Value do

      if a[j]=-1 then begin

      s := s + 'A' + inttostr(j)+' ';

      if SpinEdit2.Value>2 then

         for i:=1 to SpinEdit1.Value do

            StringGrid1.Cells[i,j]:=StringGrid1.Cells[i,j+1];

      SpinEdit2.Value:=SpinEdit2.Value-1; end;

if s='' then ShowMessage('Íå òðåáóåòñÿ') else begin

ShowMessage('Óáðàë '+s);

If SpinEdit2.Value<=2 then

    for i:=1 to SpinEdit2.Value do

    if (a[i]=0) then ShowMessage('Â ðåçóëüòàòå óïðîùåíèÿ îñòàëàñü òîëüêî 1 ñòðàòåãèÿ, ñëåäóò ñ÷èòàòü îïòèìàëüíîé À'+inttostr(i))

end;

end;

end;

end.

Дополнительный модуль:

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, StdCtrls, Spin;

type

TForm2 = class(TForm)

    StringGrid1: TStringGrid;

    Label1: TLabel;

    SpinEdit1: TSpinEdit;

    Button1: TButton;

    StringGrid2: TStringGrid;

    Memo1: TMemo;

    procedure FormCreate(Sender: TObject);

    procedure SpinEdit1Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

private

    { Private declarations }

public

    { Public declarations }

end;

var

Form2: TForm2;

implementation

    uses unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

var i:integer;

begin

Form2.Top:=320;

Form2.Left:=520;

SpinEdit1.Value:=Form1.SpinEdit1.Value;

StringGrid1.ColCount:=SpinEdit1.Value;

StringGrid1.DefaultColWidth:=round((StringGrid1.Width-10)/StringGrid1.ColCount);

StringGrid2.ColCount:=SpinEdit1.Value;

StringGrid2.DefaultColWidth:=round((StringGrid2.Width-10)/StringGrid2.ColCount);

for i:=0 to SpinEdit1.Value-1 do

StringGrid1.Cells[i,0]:='k'+inttostr(i+1);

for i:=0 to SpinEdit1.Value-1 do

StringGrid2.Cells[i,0]:='q'+inttostr(i+1);

end;

procedure TForm2.SpinEdit1Change(Sender: TObject);

var i:integer;

begin

StringGrid1.ColCount:=SpinEdit1.Value;

StringGrid1.DefaultColWidth:=round((StringGrid1.Width-10)/StringGrid1.ColCount);

StringGrid2.ColCount:=SpinEdit1.Value;

StringGrid2.DefaultColWidth:=round((StringGrid2.Width-10)/StringGrid2.ColCount);

Form1.SpinEdit1.Value:=SpinEdit1.Value;

for i:=0 to SpinEdit1.Value-1 do

StringGrid1.Cells[i,0]:='k'+inttostr(i+1);

for i:=0 to SpinEdit1.Value-1 do

StringGrid2.Cells[i,0]:='q'+inttostr(i+1);

end;

procedure TForm2.Button1Click(Sender: TObject);

var i,s:integer;

f:boolean;

begin

f:=true;

s:=0;

For i:=0 to SpinEdit1.Value-1 do

    if StringGrid1.Cells[i,1]='' then f:=false;

if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

else begin

For i:=0 to SpinEdit1.Value-1 do

    s:=s+strtoint(StringGrid1.Cells[i,1]);

if s>0 then begin

StringGrid2.Cells[0,1]:=floattostr(strtoint(StringGrid1.Cells[0,1])/s);

For i:=0 to SpinEdit1.Value-1 do begin

    StringGrid2.Cells[i,1]:=floattostr(strtoint(StringGrid1.Cells[i,1])/s);

    Form1.StringGrid2.Cells[i+1,0]:=StringGrid2.Cells[i,1];

    Memo1.Text:=Memo1.Text+StringGrid1.Cells[i,1]+'*'+StringGrid2.Cells[0,1]+'/'+

                             StringGrid1.Cells[0,1]+'    ';

    end;end

else ShowMessage('Çíà÷åíèÿ ðàâíû 0');

end;

end;

procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);

begin

begin

if not (key in ['0'..'9',#8]) then key:=#0;

end;

end;

end.

П
_j

А
_i