5.5 Дополнительные требования

Рекомендация: монитор должен поворачиваться относительно подставки в горизонтальной плоскости на 45° в каждую сторону (относительно центрального положения).

5.5.4 Регулировка яркости и контраста

Рекомендация: у пользователя должна быть возможность легко изменить яркость и контраст изображения, например, при помощи экранного меню (OSD).

5.5.5 Индикация частоты вертикальной развертки

1 Савчук В.П. Оценка инвестиционных проектов. - На сайте:

2 Каблуков В.В. Модели оценки рисков стратегических инвестиционных проектов: Дис…кандидата экономических наук. - Санкт-Петербург, 1999. - 167 с.

3 http://sedok.narod.ru/inv_risk_calc.html - Бессонов Д.А. Оценка риска инвестиционного проекта

4 Абрамов С.И. Инвестирование. - М.: Центр экономики и маркетинга, 2000.

5 Виленский В.Л., Лифшиц В.Н., Смоляк С.А. Оценка эффективности инвестиционных проектов. Теория и практика. - М. Дело, 2001.

6 Недосекин О.А. Нечетко-множественный анализ рисков фондовых инвестиций. - СПб.: Сезам, 2003.

7 Моделирование рисковых ситуаций в экономике и бизнесе / Дубров А.М., Лагоша Б.А., Хрусталев Е.Ю. и др.; Под ред. Б.А.Лагоша; М.: Финансы и статистика, 2001.

8 Лапуста М.Г., Шаршукова Л.Г. Риски в предпринимательской деятельности. - М.: Инфра, 1998.

9 http://www.cfin.ru/finanalysis/quant_risk.shtml - Дмитриев М.Н., Кошечкин С.А. Количественный анализ риска инвестиционных проектов.

10 Козинцев Т.О. - Использование техники динамического моделирования в менеджменте процентных рисков. - М.: Диалог-МГУ, 2000.

11 Заде Л. - Понятие лингвистической переменной и ее применение к принятию приближенных решений, М., Мир, 1976.

12 Беллман Р., Заде Л. - Принятие решений в расплывчатых условиях // Вопросы анализа и процедуры принятия решения. - М.: Мир, 1976.

13 Кофман А. - Введение в теорию нечетких множеств. - М.: Радио и связь, 1982.

14 Кофман А., Хил Алуха Х. - Введение теории нечетких множеств в управлении предприятиями, Минск, Вышэйшая школа, 1992.

15 http://sedok.narod.ru/sc_group.html - Недосекин О.А. Оценка риска инвестиций по NPV произвольно-нечеткой формы.

16 http://sedok.narod.ru/sc_group.html - Недосекин О.А., Кокош А.М. Оценка риска инвестиций для произвольно-размытых факторов инвестиционного проекта.

17 Смирнов А.П., Якунин А.Г.. Модель управления операциями участка «сталь-прокат» в классе нечетких систем // Черная металлургия. - 2001. - №3.

18 Прикладные нечеткие системы: пер. с япон. / К.Асаи, Д.Ватада, С.Иваи и др.; под. ред. Т.Тэрано, К.Асаи, М.Сугэно. - М.: Мир, 1993.

19 Бабайцев И.В., Варенков А.Н., Потоцкий Е.П. Безопасность жизнедеятельности и экология в дипломной работе. Учебное пособие. - М.: мисис, 1997.

20 ГОСТ 12.0.003-74. Опасные и вредные производственные факторы. Классификация. - М.: Издательство стандартов, 1975.

21 СНиП 2.01.02-85. Противопожарные нормы. - М.: Стройиздат, 1986.

22 НПБ 105-95. Определение категорий помещений и зданий по взрывопожарной и пожарной опасности. М.:МВД РФ. Государственная противопожарная служба, 1995.

23 ГОСТ 12.1.030-81. Электробезопасность. Защитное заземление. Зануление. - М.: Издательство стандартов, 1981.

24 СанПиН 2.2.542-96. Гигиенические требования к видеодисплейным терминалам, персональным электронно-вычислительным машинам и организации работы. - М.: Госкомсанэпиднадзор России, 1996.

25 Учебное пособие по разделам «Безопасность жизнедеятельности» и «Охрана окружающей природной среды» в дипломной работе / под ред. проф. Б.С.Мастрюкова - М.: мисис, 2000.

 Приложение Б. Текст программы

unit datamodul;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

SpinEdit1: TSpinEdit;

Label3: TLabel;

Edit1: TEdit;

StringGrid1: TStringGrid;

Label4: TLabel;

StringGrid2: TStringGrid;

Label5: TLabel;

StringGrid3: TStringGrid;

CheckBox1: TCheckBox;

StringGrid4: TStringGrid;

Label6: TLabel;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

SaveDialog1: TSaveDialog;

OpenDialog1: TOpenDialog;

Label7: TLabel;

Edit2: TEdit;

N5: TMenuItem;

N9: TMenuItem;

GroupBox1: TGroupBox;

Label8: TLabel;

Edit3: TEdit;

Label9: TLabel;

Edit4: TEdit;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure SpinEdit1Change(Sender: TObject);

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

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

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

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

procedure CheckBox1Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

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

procedure N5Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

i,j,n,nRt : integer; {циклич.пер-е, кол-во ПУП,кол-во ПУП для рассчета Rt}

Ir,G : real; {соб.кап вложения для Rt, критерий эффективности}

Ip : array[1..3] of real; {макс. и мин-е значение первонач.кап.вложений}

RSvar,Rdvar,Vt : array[1..20] of real;{реальное значение Si и di для подсчета Rt, кр.риска}

dvar : array[1..3,1..20] of real; {безриск.%ставка 1-я строка - мин, 2 - макс.}

Svar,NPVvar,Rt : array[1..3,1..20] of real; {интервалы ден.потоков 1 строка - мин,2 - сред.зн.,3 - макс,NPV-массив,кр.ликвидности}

At,Zt,Ct : array[1..2,1..20] of real; {соб,заем средства, кр.покрытия 1- мин, 2- макс}

mCt,mVt,mRt : array[1..4,1..20] of real; {массивы функций принадлежностей к риску}

kCt,kVt,kRt,kre : array[1..3] of real; {массивы верхних границ весов для оценки риска, 1- минимальный, 4 - недопустимый}

implementation

uses Rtmodul, Rezaltmodul, Formirmodul, mmodul, Rulermodul;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

n:=SpinEdit1.Value;

StringGrid1.ColCount:=n;

StringGrid2.ColCount:=n;

StringGrid3.ColCount:=n;

StringGrid4.ColCount:=n;

Checkbox1.Checked:=false;

kCt[1]:=0.25;kCt[2]:=0.5;kCt[3]:=0.75;

kRt[1]:=0.25;kRt[2]:=0.5;kRt[3]:=0.75;

kVt[1]:=0.05;kVt[2]:=0.1;kVt[3]:=0.2;

kre[1]:=0.25;kre[2]:=0.5;kre[3]:=0.75;

for j:=0 to n-1 do begin

StringGrid1.Cells[j,0]:=IntToStr(j+1);

StringGrid2.Cells[j,0]:=IntToStr(j+1);

StringGrid3.Cells[j,0]:=IntToStr(j+1);

StringGrid4.Cells[j,0]:=IntToStr(j+1);

RSvar[j+1]:=0;Rdvar[j+1]:=0;

end;

Rtkey:=false; Ir:=0;nRt:=0;

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

n:=SpinEdit1.Value; CheckBox1.Checked:=false;

Form4.StringGrid1.ColCount:=n+1; Form4.StringGrid2.ColCount:=n+1; Form2.SpinEdit1.Value:=n;

Form3.StringGrid1.RowCount:=n+1; Form3.StringGrid2.RowCount:=n+1;

StringGrid1.ColCount:=n; StringGrid2.ColCount:=n; StringGrid3.ColCount:=n; StringGrid4.ColCount:=n;

for j:=0 to n-1 do begin

StringGrid1.Cells[j,0]:=IntToStr(j+1); StringGrid2.Cells[j,0]:=IntToStr(j+1); StringGrid3.Cells[j,0]:=IntToStr(j+1);

StringGrid4.Cells[j,0]:=IntToStr(j+1);

Form3.StringGrid1.Cells[0,j+1]:=IntToStr(j+1);Form3.StringGrid2.Cells[0,j+1]:=IntToStr(j+1);

Form4.StringGrid1.Cells[j+1,0]:=IntToStr(j+1); Form4.StringGrid2.Cells[j+1,0]:=IntToStr(j+1);

end;

end;

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

begin

Case key of

chr(45),chr(48),chr(49),chr(50),chr(51),chr(52),chr(53),chr(54), chr(55),chr(56),chr(57),chr(59),chr(44),chr(8):;

else key:=chr(0); end;

end;

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

begin

Case key of

chr(45),chr(48),chr(49),chr(50),chr(51),chr(52),chr(53),chr(54), chr(55),chr(56),chr(57),chr(59),chr(44),chr(8):;

else key:=chr(0); end;

end;

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

begin

Case key of

chr(48),chr(49),chr(50),chr(51),chr(52),chr(53),chr(54), chr(55),chr(56),chr(57),chr(59),chr(44),chr(8):;

else key:=chr(0);end;

end;

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

begin

Case key of

chr(45),chr(48),chr(49),chr(50),chr(51),chr(52),chr(53),chr(54), chr(55),chr(56),chr(57),chr(59),chr(44),chr(8):;

else key:=chr(0);end;

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

case CheckBox1.State of

cbChecked: begin

StringGrid4.ColCount:=1; Stringgrid4.RowCount:=1; StringGrid4.FixedCols:=0; StringGrid4.FixedRows:=0;

end;

cbUnchecked: begin

StringGrid4.ColCount:=n; Stringgrid4.RowCount:=2; StringGrid4.FixedCols:=0; StringGrid4.FixedRows:=1;

For j:=1 to n do begin StringGrid4.Cells[j-1,0]:=IntToStr(j); end;

end;

end;

end;

procedure TForm1.N8Click(Sender: TObject);

var

str,str2,str3 : string;

k,ii,iv,re : integer;

Cto,Rto : array[1..20] of real; // массивы обобщенных значений Ct и Rt

smax,smin,sav,min,A1,A2,B1,B2,C1,C2,K1,K2,vr,vrz,vrch,mvr1,mvr2,mvr3,mvr4 : real;

begin

//-------------------------------ввод критерия эффективности

try G:=StrToFloat(Edit2.Text);

Except G:=0;Edit2.Text:=IntToStr(0); end;

//-------------------------------ввод первонач. ден кап

str:=Edit1.Text;

if pos(';',str)<>0 then begin str2:=''; k:=1;

for i:=1 to Length(str) do begin

if (str[i]<>';') then str2:=str2+str[i]

else begin

Ip[k]:=StrToFloat(str2);

str2:='';

k:=k+1;

end;

if i=Length(str) then Ip[k]:=StrToFloat(str2);

end;

end else begin

try

Ip[1]:=StrToFloat(str); Ip[2]:=StrToFloat(str); Ip[3]:=StrToFloat(str);

except

showmessage('Ошибка при вводе значения первоначальных капиталовложений!'); FocusControl(Edit1);

end;

end;

//------------------------------ввод массива денежных потоков:

for j:=0 to n-1 do begin

str:=StringGrid1.Cells[j,1];

if pos(';',str)<>0 then begin str2:='';k:=1;

for i:=1 to Length(str)do begin

if (str[i]<>';') then str2:=str2+str[i]

else begin

Svar[k,j+1]:=StrToFloat(str2);

k:=k+1;str2:='';

end;

if i=Length(str) then Svar[k,j+1]:=StrToFloat(str2);

end;

end else try

Svar[1,j+1]:=StrToFloat(str); Svar[2,j+1]:=StrToFloat(str); Svar[3,j+1]:=StrToFloat(str);

except

showmessage('Ошибка при вводе значений интервалов денежных потоков!'); FocusControl(Stringgrid1);

end;

end;

//----------------------------ввод массива соб.и заем. средств

for j:=0 to n-1 do begin

str:=StringGrid2.Cells[j,1];

str3:=StringGrid3.Cells[j,1];

if pos(';',str)<>0 then begin str2:='';k:=1;

for i:=1 to Length(str)do begin

if (str[i]<>';') then str2:=str2+str[i]

else begin

At[k,j+1]:=StrToFloat(str2);

k:=k+1;str2:='';

end;

if i=Length(str) then At[k,j+1]:=StrToFloat(str2);

end;

end else try

At[1,j+1]:=StrToFloat(str);

At[2,j+1]:=StrToFloat(str);

except

showmessage('Ошибка при вводе значений собственных средств!');

FocusControl(StringGrid2);

end;

if pos(';',str3)<>0 then begin str2:='';k:=1;

for i:=1 to Length(str3)do begin

if (str3[i]<>';') then str2:=str2+str3[i]

else begin

Zt[k,j+1]:=StrToFloat(str2);

k:=k+1;str2:='';

end;

if i=Length(str3) then Zt[k,j+1]:=StrToFloat(str2);

end;

end else try

Zt[1,j+1]:=StrToFloat(str3);

Zt[2,j+1]:=StrToFloat(str3);

except

showmessage('Ошибка при вводе значений заемных средств!');

FocusControl(StringGrid3);

end;

end;

//------------------------Ввод массива безриск.% ставки

case CheckBox1.State of

cbChecked: begin

str:=StringGrid4.Cells[0,0];

if pos(';',str)<>0 then begin str2:='';k:=1;

for i:=1 to Length(str)do begin

if (str[i]<>';') then str2:=str2+str[i]

else begin

dvar[k,1]:=StrToFloat(str2);

k:=k+1;str2:='';

end;

if i=Length(str) then dvar[k,1]:=StrToFloat(str2);

end;

end else begin try

dvar[1,1]:=StrToFloat(str);

dvar[2,1]:=StrToFloat(str);

dvar[3,1]:=StrToFloat(str);

except

showmessage('Ошибка при вводе значения безрисковой процентной ставки!');

FocusControl(Stringgrid4);

end; end;

for i:=2 to n do begin

dvar[1,i]:=dvar[1,1];

dvar[2,i]:=dvar[2,1];

dvar[3,i]:=dvar[2,1];

end;

end;

cbUnchecked: begin

for j:=0 to n-1 do begin

str:=StringGrid4.Cells[j,1];

if pos(';',str)<>0 then begin str2:='';k:=1;

for i:=1 to Length(str)do begin

if (str[i]<>';') then str2:=str2+str[i]

else begin

dvar[k,j+1]:=StrToFloat(str2);

k:=k+1;str2:='';

end;

if i=Length(str) then dvar[k,j+1]:=StrToFloat(str2);

end;

end else try

dvar[1,j+1]:=StrToFloat(str);

dvar[2,j+1]:=StrToFloat(str);

dvar[3,j+1]:=StrToFloat(str);

except

showmessage('Ошибка при вводе значений безрисковой процентной ставки!');

FocusControl(Stringgrid4);

end;

end;

end;end;

//------------------------------Рассчет значения коэф-та покрытия Сt

for i:=1 to n do begin

Ct[1,i]:=1;

Ct[2,i]:=1;

end;

for i:=1 to n do begin

if Zt[2,i]<>0 then Ct[1,i]:=At[1,i]/Zt[2,i];

if Zt[1,i]<>0 then Ct[2,i]:=At[2,i]/Zt[1,i];

j:=3;

if (Ct[1,i]*Ct[2,i])<=(kCt[1]*kCt[1]) then Cto[i]:=(Ct[1,i]*Ct[2,i])/(kCt[1]*kCt[1]);

if ((Ct[1,i]*Ct[2,i])>(kCt[1]*kCt[1]))and (Ct[1,i]*Ct[2,i]<=(kCt[2]*kCt[2]))then j:=0;

if ((Ct[1,i]*Ct[2,i])>(kCt[2]*kCt[2]))and (Ct[1,i]*Ct[2,i]<=(kCt[3]*kCt[3])) then j:=1;

if ((Ct[1,i]*Ct[2,i])>(kCt[3]*kCt[3]))and (Ct[1,i]*Ct[2,i]<1) then j:=2;

if (Ct[1,i]*Ct[2,i]>=1) then Cto[i]:=1;

if (j = 0) or (j = 1) then

Cto[i]:=kCt[1+j]+((((Ct[1,i]*Ct[2,i])-(kCt[1+j]*kCt[1+j]))*(kCt[2+j]-kCt[1+j]))/((kCt[2+j]*kCt[2+j])-(kCt[1+j]*kCt[1+j])));

if j = 2 then

Cto[i]:=kCt[1+j]+((((Ct[1,i]*Ct[2,i])-(kCt[1+j]*kCt[1+j]))*(1-kCt[1+j]))/(1-(kCt[1+j]*kCt[1+j])));

end;

for i:=1 to n do begin

for j:=1 to 3 do begin

NPVvar[j,i]:=0;

end;

end;

//------------------------------Рассчет инервалов NPVt

if Rtkey=false then begin

for ii:=1 to n do begin

for i:=1 to ii do begin

smin:=1;smax:=1;sav:=1;

for j:=1 to i do begin smax:=smax*dvar[1,i];

smin:=smin*dvar[3,i];

sav:=sav*dvar[2,i];

end;

NPVvar[3,ii]:=NPVvar[3,ii]+(Svar[3,i]/smax);

NPVvar[1,ii]:=NPVvar[1,ii]+(Svar[1,i]/smin);

NPVvar[2,ii]:=NPVvar[2,ii]+(Svar[2,i]/sav);

end;

NPVvar[1,ii]:=NPVvar[1,ii]-Ip[3];

NPVvar[2,ii]:=NPVvar[2,ii]-Ip[2];

NPVvar[3,ii]:=NPVvar[3,ii]-Ip[1];

end;

end else begin

for ii:=1 to nRt do begin

for i:=1 to ii do begin

smax:=1;

for j:=1 to i do begin smax:=smax*Rdvar[i];end;

NPVvar[3,ii]:=NPVvar[3,ii]+(RSvar[i]/smax);

end;

NPVvar[1,ii]:=NPVvar[3,ii]-Ir;

NPVvar[2,ii]:=NPVvar[3,ii]-Ir;

NPVvar[3,ii]:=NPVvar[3,ii]-Ir;

end;

for ii:=nRt+1 to n do begin

for i:=1 to nRt do begin

smax:=1;

for j:=1 to i do begin smax:=smax*Rdvar[i];end;

NPVvar[3,ii]:=NPVvar[3,ii]+(RSvar[i]/smax);

end;

NPVvar[2,ii]:=NPVvar[3,ii];

NPVvar[1,ii]:=NPVvar[3,ii];

for i:=nRt+1 to ii do begin

smin:=1;smax:=1;sav:=1;

for j:=1 to i do begin smax:=smax*dvar[1,i];

smin:=smin*dvar[3,i];

sav:=sav*dvar[2,i];

end;

NPVvar[3,ii]:=NPVvar[3,ii]+(Svar[3,i]/smax);

NPVvar[1,ii]:=NPVvar[1,ii]+(Svar[1,i]/smin);

NPVvar[2,ii]:=NPVvar[2,ii]+(Svar[2,i]/sav);

end;

NPVvar[1,ii]:=NPVvar[1,ii]-Ir;

NPVvar[2,ii]:=NPVvar[2,ii]-Ir;

NPVvar[3,ii]:=NPVvar[3,ii]-Ir;

end;

end;

//------------------------------Рассчет значения коэффициента риска Vt

for i:=1 to n do begin

if (NPVvar[3,i]=NPVvar[1,i]) or (NPVvar[2,i]=NPVvar[1,i]) or (NPVvar[3,i]=NPVvar[2,i]) then begin

if (NPVvar[1,i]>G) then Vt[i]:=0;

if (NPVvar[1,i]<=G) and (NPVvar[3,i]>=G) then Vt[i]:=(G-NPVvar[1,i])/(NPVvar[3,i]-NPVvar[1,i]);

if (NPVvar[3,i]<G) then Vt[i]:=1;

end else begin

smin:=(G-NPVvar[1,i])/(NPVvar[3,i]-NPVvar[1,i]);

if G<NPVvar[1,i] then Vt[i]:=0;

if (G>=NPVvar[1,i]) and (G<NPVvar[2,i]) then begin

smax:=(G-NPVvar[1,i])/(NPVvar[2,i]-NPVvar[1,i]);

Vt[i]:=smin*(1+((1-smax)/smax)*Ln(1-smax));

end;

if (G>=NPVvar[2,i]) and (G<NPVvar[3,i]) then begin

if G=NPVvar[2,i] then smax:=1 else smax:=(NPVvar[3,i]-G)/(NPVvar[3,i]-NPVvar[2,i]);

Vt[i]:=1-((1-smin)*(1+((1-smax)/smax)*Ln(1-smax)));

end;

if G>=NPVvar[3,i] then Vt[i]:=1;

end;

end;

//-----------------------------Рассчет значения коэ-та ликвидности Rt

For i:=1 to n do begin

Rt[1,i]:=1;Rto[i]:=1;

Rt[2,i]:=1;

end;

//-----------------------------рассчет прогнозного занчения NPV и Rt

if Rtkey=true then begin

for ii:=1 to n do begin

NPVpmin:=0;NPVpmax:=0;NPVpav:=0;

for i:=1 to ii do begin

smin:=1;smax:=1;sav:=1;

for j:=1 to i do begin smin:=smin*dvar[3,i];smax:=smax*dvar[1,i];sav:=sav*dvar[2,i];end;

NPVpmax:=NPVpmax+(Svar[3,i]/smax);

NPVpmin:=NPVpmin+(Svar[1,i]/smin);

NPVpav:=NPVpav+(Svar[2,i]/sav);

end;

NPVpmin:=NPVpmin-Ip[3];

if NPVpmin<>0 then Rt[1,ii]:=NPVvar[1,ii]/NPVpmin;

NPVpmax:=NPVpmax-Ip[1];

if NPVpmax<>0 then Rt[3,ii]:=NPVvar[3,ii]/NPVpmax;

NPVpav:=NPVpav-Ip[2];

if NPVpav<>0 then Rt[2,ii]:=NPVvar[2,ii]/NPVpav;

if (NPVpmin<=0) and (NPVvar[1,ii]>=0) then Rt[1,ii]:=1;

if (NPVpmax<=0) and (NPVvar[3,ii]>=0) then Rt[3,ii]:=1;

if (NPVpav<=0) and (NPVvar[2,ii]>=0) then Rt[2,ii]:=1;

if (NPVpmin>=0) and (NPVvar[1,ii]<0) then Rt[1,ii]:=0;

if (NPVpmax>=0) and (NPVvar[3,ii]<0) then Rt[3,ii]:=0;

if (NPVpav>=0) and (NPVvar[2,ii]<0) then Rt[2,ii]:=0;

end;

for i:=1 to n do begin

j:=3;

if (Rt[1,i]*Rt[2,i]*Rt[3,i])<=(kRt[1]*kRt[1]*kRt[1]) then Rto[i]:=(Rt[1,i]*Rt[2,i]*Rt[3,i])/(kRt[1]*kRt[1]);

if ((Rt[1,i]*Rt[2,i]*Rt[3,i])>(kRt[1]*kRt[1]*kRt[1]))and (Rt[1,i]*Rt[2,i]*Rt[3,i]<=(kRt[2]*kRt[2]*kRt[2]))then j:=0;

if ((Rt[1,i]*Rt[2,i]*Rt[3,i])>(kRt[2]*kRt[2]*kRt[2]))and (Rt[1,i]*Rt[2,i]*Rt[3,i]<=(kRt[3]*kRt[3]*kRt[3])) then j:=1;

if ((Rt[1,i]*Rt[2,i]*Rt[3,i])>(kRt[3]*kRt[3]*kRt[3]))and (Rt[1,i]*Rt[2,i]*Rt[3,i]<1) then j:=2;

if (Rt[1,i]*Rt[2,i]*Rt[3,i]>=1) then Rto[i]:=1;

if (j = 0) or (j = 1) then

Rto[i]:=kRt[1+j]+((((Rt[1,i]*Rt[2,i]*Rt[3,i])-(kRt[1+j]*kRt[1+j]*kRt[1+j]))*(kRt[2+j]-kRt[1+j]))/((kRt[2+j]*kRt[2+j]*kRt[2+j])-(kRt[1+j]*kRt[1+j]*kRt[1+j])));

if j = 2 then

Rto[i]:=kRt[1+j]+((((Rt[1,i]*Rt[2,i]*Rt[3,i])-(kRt[1+j]*kRt[1+j]*kRt[1+j]))*(1-kRt[1+j]))/(1-(kRt[1+j]*kRt[1+j]*kRt[1+j])));

end;

end;

for i:=1 to n do begin

//----------------------------------Значения ф. принадлежности для Сt

if Cto[i]<=((kCt[2]+kCt[3])/2) then mCt[1,i]:=0;

if (Cto[i]>((kCt[2]+kCt[3])/2)) and (Cto[i]<kCt[3]) then mCt[1,i]:=(2*Cto[i]-kCt[2]-kCt[3])/(kCt[3]-kCt[2]);

if Cto[i]>=kCt[3] then mCt[1,i]:=1;

if (Cto[i]<=((kCt[1]+kCt[2])/2)) or (Cto[i]>=((kCt[3]+1)/2)) then mCt[2,i]:=0;

if (Cto[i]>((kCt[1]+kCt[2])/2)) and (Cto[i]<((kCt[2]+kCt[3])/2)) then mCt[2,i]:=(2*Cto[i]-kCt[1]-kCt[2])/(kCt[3]-kCt[1]);

if (Cto[i]>=((kCt[2]+kCt[3])/2)) and (Cto[i]<=((kCt[3]+1)/2)) then mCt[2,i]:=1-((2*Cto[i]-kCt[2]-kCt[3])/(1-kCt[2]));

if (Cto[i]<=(kCt[1]/2)) or (Cto[i]>((kCt[2]+kCt[3])/2)) then mCt[3,i]:=0;

if (Cto[i]>(kCt[1]/2)) and (Cto[i]<((kCt[1]+kCt[2])/2)) then mCt[3,i]:=(2*Cto[i]-kCt[1])/(kCt[2]);

if (Cto[i]>=((kCt[1]+kCt[2])/2)) and (Cto[i]<=((kCt[2]+kCt[3])/2)) then mCt[3,i]:=1-(2*Cto[i]-kCt[1]-kCt[2])/(kCt[3]-kCt[1]);

if Cto[i]>=((kCt[1]+kCt[2])/2) then mCt[4,i]:=0;

if (Cto[i]<((kCt[1]+kCt[2])/2)) and (Cto[i]>kCt[1]) then mCt[4,i]:=1-(2*(Cto[i]-kCt[1])/(kCt[2]-kCt[1]));

if Cto[i]<=kCt[1] then mCt[4,i]:=1;

//----------------------------------Значения ф. принадлежности для Rt

if Rto[i]<=((kRt[2]+kRt[3])/2) then mRt[1,i]:=0;

if (Rto[i]>((kRt[2]+kRt[3])/2)) and (Rto[i]<kRt[3]) then mRt[1,i]:=(2*Rto[i]-kRt[2]-kRt[3])/(kRt[3]-kRt[2]);

if Rto[i]>=kRt[3] then mRt[1,i]:=1;

if (Rto[i]<=((kRt[1]+kRt[2])/2)) or (Rto[i]>=((kRt[3]+1)/2)) then mRt[2,i]:=0;

if (Rto[i]>((kRt[1]+kRt[2])/2)) and (Rto[i]<((kRt[2]+kRt[3])/2)) then mRt[2,i]:=(2*Rto[i]-kRt[1]-kRt[2])/(kRt[3]-kRt[1]);

if (Rto[i]>=((kRt[2]+kRt[3])/2)) and (Rto[i]<=((kRt[3]+1)/2)) then mRt[2,i]:=1-((2*Rto[i]-kRt[2]-kRt[3])/(1-kRt[2]));

if (Rto[i]<=(kRt[1]/2)) or (Rto[i]>=((kRt[2]+kRt[3])/2)) then mRt[3,i]:=0;

if (Rto[i]>=(kRt[1]/2)) and (Rto[i]<((kRt[1]+kRt[2])/2)) then mRt[3,i]:=(2*Rto[i]-kRt[1])/(kRt[2]);

if (Rto[i]>=((kRt[1]+kRt[2])/2)) and (Rto[i]<((kRt[2]+kRt[3])/2)) then mRt[3,i]:=1-((2*Rto[i]-kRt[1]-kRt[2])/(kRt[3]-kRt[1]));

if Rto[i]>=((kRt[1]+kRt[2])/2) then mRt[4,i]:=0;

if (Rto[i]<((kRt[1]+kRt[2])/2)) and (Rto[i]>kRt[1]) then mRt[4,i]:=1-(2*(Rto[i]-kRt[1])/(kRt[2]-kRt[1]));

if Rto[i]<=kRt[1] then mRt[4,i]:=1;

//----------------------------------Значения ф. принадлежности для Vt

if Vt[i]<=((kVt[2]+kVt[3])/2) then mVt[4,i]:=0;

if (Vt[i]>((kVt[2]+kVt[3])/2)) and (Vt[i]<kVt[3]) then mVt[4,i]:=(2*Vt[i]-kVt[2]-kVt[3])/(kVt[3]-kVt[2]);

if Vt[i]>=kVt[3] then mVt[4,i]:=1;

if (Vt[i]<=((kVt[1]+kVt[2])/2)) or (Vt[i]>=((kVt[3]+1)/2)) then mVt[3,i]:=0;

if (Vt[i]>((kVt[1]+kVt[2])/2)) and (Vt[i]<((kVt[2]+kVt[3])/2)) then mVt[3,i]:=(2*Vt[i]-kVt[1]-kVt[2])/(kVt[3]-kVt[1]);

if (Vt[i]<((kVt[3]+1)/2)) and (Vt[i]>((kVt[2]+kVt[3])/2)) then mVt[3,i]:=1-((2*Vt[i]-kVt[2]-kVt[3])/(1-kVt[2]));

if (Vt[i]<=(kVt[1]/2)) or (Vt[i]>=((kVt[2]+kVt[3])/2)) then mVt[2,i]:=0;

if (Vt[i]>(kVt[1]/2)) and (Vt[i]<((kVt[1]+kVt[2])/2)) then mVt[2,i]:=(2*Vt[i]-kVt[1])/(kVt[2]);

if (Vt[i]>=((kVt[1]+kVt[2])/2)) and (Vt[i]<=((kVt[2]+kVt[3])/2)) then mVt[2,i]:=1-((2*Vt[i]-kVt[1]-kVt[2])/(kVt[3]-kVt[1]));

if Vt[i]>=((kVt[1]+kVt[2])/2) then mVt[1,i]:=0;

if (Vt[i]<((kVt[1]+kVt[2])/2)) and (Vt[i]>kVt[1]) then mVt[1,i]:=1-(2*(Vt[i]-kVt[1])/(kVt[2]-kVt[1]));

if Vt[i]<=kVt[1] then mVt[1,i]:=1;

end;

//-----------------------------Вывод значений

For i:=1 to n do begin

str:='('+FloatToStrF(Ct[1,i],ffFixed,9,2)+'; '+FloatToStrF(Ct[2,i],ffFixed,9,2)+')';

Form3.StringGrid1.Cells[1,i]:=str;

Form3.StringGrid1.Cells[4,i]:=FloatToStrF(Vt[i],ffFixed,9,2);

str:='('+FloatToStrF(NPVvar[1,i],ffFixed,9,2)+'; '+FloatToStrF(NPVvar[2,i],ffFixed,9,2)+'; '+FloatToStrF(NPVvar[3,i],ffFixed,9,2)+')';

Form3.StringGrid1.Cells[2,i]:=str;

str:='('+FloatToStrF(Rt[1,i],ffFixed,9,2)+'; '+FloatToStrF(Rt[2,i],ffFixed,9,2)+'; '+FloatToStrF(Rt[3,i],ffFixed,9,2)+')';

Form3.StringGrid1.Cells[3,i]:=str;

end;

for j:=1 to n do begin

// Form3.StringGrid2.Cells[1,j]:=FloatToStr(Cto[j]);

// Form3.StringGrid2.Cells[2,j]:=FloatToStr(Rto[j]);

k:=1; ii:=1;iv:=1;

for i:=2 to 4 do begin

if mCt[i-1,j]<mCt[i,j] then k:=i;

if mRt[i-1,j]<mRt[i,j] then ii:=i;

if mVt[i-1,j]<mVt[i,j] then iv:=i;

end;

if k=1 then Form3.StringGrid2.Cells[1,j]:=FloatToStrF(mCt[k,j],ffFixed,9,2)+'-минимальный';

if k=2 then Form3.StringGrid2.Cells[1,j]:=FloatToStrF(mCt[k,j],ffFixed,9,2)+'-повышенный';

if k=3 then Form3.StringGrid2.Cells[1,j]:=FloatToStrF(mCt[k,j],ffFixed,9,2)+'-критический';

if k=4 then Form3.StringGrid2.Cells[1,j]:=FloatToStrF(mCt[k,j],ffFixed,9,2)+'-недопустимый';

if ii=1 then Form3.StringGrid2.Cells[2,j]:=FloatToStrF(mRt[ii,j],ffFixed,9,2)+'-минимальный';

if ii=2 then Form3.StringGrid2.Cells[2,j]:=FloatToStrF(mRt[ii,j],ffFixed,9,2)+'-повышенный';

if ii=3 then Form3.StringGrid2.Cells[2,j]:=FloatToStrF(mRt[ii,j],ffFixed,9,2)+'-критический';

if ii=4 then Form3.StringGrid2.Cells[2,j]:=FloatToStrF(mRt[ii,j],ffFixed,9,2)+'-недопустимый';

if iv=1 then Form3.StringGrid2.Cells[3,j]:=FloatToStrF(mVt[iv,j],ffFixed,9,2)+'-минимальный';

if iv=2 then Form3.StringGrid2.Cells[3,j]:=FloatToStrF(mVt[iv,j],ffFixed,9,2)+'-повышенный';

if iv=3 then Form3.StringGrid2.Cells[3,j]:=FloatToStrF(mVt[iv,j],ffFixed,9,2)+'-критический';

if iv=4 then Form3.StringGrid2.Cells[3,j]:=FloatToStrF(mVt[iv,j],ffFixed,9,2)+'-недопустимый';

//----------------------------------Рассчет общего риска проекта

re:=TR[iv,k,ii];

min:=mVt[iv,j];

if mRt[ii,j]<min then min:=mRt[ii,j];

if mCt[k,j]<min then min:=mCt[k,j];

if re=1 then begin

A1:=0;B1:=0;K1:=0;C1:=0;

C2:=(((1-min)*(kre[2]-kre[1]))+2*kre[1])/2;

K2:=(kre[1]+kre[2])/2;

A2:=(-2/(kre[2]-kre[1]));

B2:=1+((2*kre[1])/(kre[2]-kre[1]));

end;

if re=2 then begin

A1:=2/kre[2];

B1:=-kre[1]/kre[2];

K1:=kre[1]/2;

C1:=((min*kre[2])+kre[1])/2;

C2:=(((1-min)*kre[3])+kre[2]+(min*kre[1]))/2;

K2:=(kre[2]+kre[3])/2;

A2:=(-2/(kre[3]-kre[1]));

B2:=1+((kre[1]+kre[2])/(kre[3]-kre[1]));

end;

if re=3 then begin

A1:=2/(kre[3]-kre[1]);

B1:=-(kre[1]+kre[2])/(kre[3]-kre[1]);

K1:=(kre[1]+kre[2])/2;

C1:=((min*(kre[3]-kre[1]))+kre[1]+kre[2])/2;

C2:=(((1-min)*(1-kre[2]))+kre[3]+kre[2])/2;

K2:=(kre[3]+1)/2;

A2:=(-2/(1-kre[2]));

B2:=1-((kre[2]+kre[3])/(1-kre[2]));

end;

if re=4 then begin

A1:=(2/(kre[3]-kre[2]));

B1:=-(kre[2]+kre[3])/(kre[3]-kre[2]);

K1:=(kre[2]+kre[3])/2;

C1:=((min*(kre[3]-kre[2]))+kre[2]+kre[3])/2;

C2:=1;K2:=0;A2:=0;B2:=0;

end;

vrch:=(A1*((C1*C1*C1)-(K1*K1*K1))/3);

vrch:=vrch+((B1*((C1*C1)-(K1*K1)))/2);

vrch:=vrch+(min*((C2*C2)-(C1*C1))/2);

vrch:=vrch+(A2*(((K2*K2*K2)-(C2*C2*C2)))/3)+(B2*((K2*K2)-(C2*C2))/2);

vrz:=(A1*((C1*C1)-(K1*K1))/2);