- •Министерство образования и науки украины
- •Реферат
- •Содержание
- •Введение
- •1 Постановка задачи
- •2 Описание критериев
- •2.1 Критерий Вальда
- •2.2 Критерий Гурвица
- •2.3 Критерий Лапласса
- •2.4 Критерий Сэвиджа
- •3 Разработка программного продукта
- •3.1 Средства для разработки
- •3.2 Интерфейс программного продукта
- •4 Руководство пользователя
- •Источники материалов
- •Приложение а
- •Приложение b
- •Приложение c
- •Приложение d
- •Приложение e
Источники материалов
Автор: Игорь Александрович Блaнк. Принятие решений в условиях риска и неопределенности.
[http://www.elitarium.ru/prinjatie-reshenija-risk-neopredelennost-razvitie-vybor-alternativa-verojatnost/]
Автор: Ярослав Губкин. Теория игр: Игры с природой.
[https://habrahabr.ru/post/179811/]
Автор: Галина Шкурина. Критерии принятий решений.
[http://refleader.ru/jgeujgpolujg.html]
Автор: Ярослав Губкин. Теория игр: Введение.
[https://habrahabr.ru/post/163681/]
[http://ouek.onu.edu.ua/uploads/courses/smpr/%D0%9A%D1%80%D0%B8%D1%82%D0%B5%D1%80%D0%B8%D0%B8%20%D0%BF%D1%80%D0%B8%D0%BD%D1%8F%D1%82%D0%B8%D1%8F%20%D1%80%D0%B5%D1%88%D0%B5%D0%BD%D0%B8%D0%B9%20%D0%B2%20%D1%83%D1%81%D0%BB%D0%BE%D0%B2%D0%B8%D1%8F%D1%85%20%D0%BD%D0%B5%D0%BE%D0%BF%D1%80%D0%B5%D0%B4%D0%B5%D0%BB%D0%B5%D0%BD%D0%BD%D0%BE%D1%81%D1%82%D0%B8.pdf]
Принятие решений в условиях полной неопределенности.
[http://life-prog.ru/1_3077_prinyatie-resheniy-v-usloviyah-polnoy-neopredelennosti.html]
Автор: Геннадий Попов. Выбор решений и безопасность.
[http://transform.ru/articles/html/13ot/ot00001.article]
Критерий, основанный на известных вероятностях условий. Критерии Вальда, Гурвица, Сэвиджа.
[http://stu.sernam.ru/book_rop.php?id=104]
Автор: Искандер Анварович. Использование управленческих данных для оценки рисков.
[http://projectimo.ru/upravlenie-riskami/metody-ocenki-riskov.html]
Принятие решений в условиях неопределенности.
[http://risking.ru/materials/risktheory/part2_10.html]
Приложение а
//!!--------------критерий Лапласса
for i1:=1 to StringGrid1.RowCount-1 do //строка
begin
sum:=0;
for j1:=1 to StringGrid1.ColCount-1 do //столбец
begin
sum:=sum+StrToFloat(StringGrid1.Cells[j1,i1]); //суммирование по строкам
sumstrok[i1,j1]:=sum;
A:= q*(sum);
sumstrok[i1,j1]:=A;
//поиск максимального элемента по критерию лапласса
if sumstrok[i1,j1]>max then
max:=sumstrok[i1,j1];
end;
Label5.Caption:='A*=max( )='+FloatToStr(max); //вывод масимального значения по критерию лапласса
Memo2.Text:=Memo2.Text+FloatToStrF(A,ffFixed,10,2)+';';//вывод всех значений для лапласса
end;
Приложение b
//!!КРИТЕРИЙ ВАЛЬДА
//поиск минимального элемента по критерию вальда
for i2:=1 to StringGrid1.RowCount-1 do //строка
begin
min:=glmas[i2,1];
for j2:=1 to StringGrid1.ColCount-1 do //столбец
begin
if glmas[i2,j2]<min then
min:=glmas[i2,j2];
end;
minzna4[i2]:=min;//массив поиска из минимальных значений вальда
Memo1.Text:=Memo1.Text+FloatToStr(minzna4[i2])+';'; //вывод всех минимальных значений
end;
//поиск максимального среди минимальных для вальда
max:=minzna4[1];
for i6:=1 to StringGrid1.RowCount-1 do
begin
if minzna4[i6]>max then max:=minzna4[i6];
end;
Label3.Caption:='W=max( )='+FloatToStr(max);//вывод максимального значения среди минимальных для вальда