Источники материалов

1. Автор: Игорь Александрович Блaнк. Принятие решений в условиях риска и неопределенности.

[http://www.elitarium.ru/prinjatie-reshenija-risk-neopredelennost-razvitie-vybor-alternativa-verojatnost/]

2. Автор: Ярослав Губкин. Теория игр: Игры с природой.

[https://habrahabr.ru/post/179811/]

3. Автор: Галина Шкурина. Критерии принятий решений.

[http://refleader.ru/jgeujgpolujg.html]

4. Автор: Ярослав Губкин. Теория игр: Введение.

[https://habrahabr.ru/post/163681/]

5. [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]

6. Принятие решений в условиях полной неопределенности.

[http://life-prog.ru/1_3077_prinyatie-resheniy-v-usloviyah-polnoy-neopredelennosti.html]

7. Автор: Геннадий Попов. Выбор решений и безопасность.

[http://transform.ru/articles/html/13ot/ot00001.article]

8. Критерий, основанный на известных вероятностях условий. Критерии Вальда, Гурвица, Сэвиджа.

[http://stu.sernam.ru/book_rop.php?id=104]

9. Автор: Искандер Анварович. Использование управленческих данных для оценки рисков.

[http://projectimo.ru/upravlenie-riskami/metody-ocenki-riskov.html]

10. Принятие решений в условиях неопределенности.

[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);//вывод максимального значения среди минимальных для вальда