Риски предприятия при реализации проектов

[Nf,Mf]=size(f);=8;=zeros(sim,1);=ones(1,n);t=1:(Mmax^n)s=1:sim %Расчётзначенияштрафов=Iplan.*(1+CVI.*randn(n,Lmax));=inflation.*(1+CVINF.*randn(1,Lmax));=Ivar;%Перераспределениеинвестиций=f*sum(sum((Ivar-Imng).*((Ivar-Imng)>0)));%Расчётштрафов(s,1)=Fine;=mean(FINE);(t==1)||F<Fopt=F;=MNG;MNG(1,1)==Mmaxk=2:nMNG(1,k)<Mmax(1,k)=MNG(1,k)+1;z=1:k-1(1,z)=1;MNG(1,1)=MNG(1,1)+1;('-------------------------------------');

disp('Минимально возможное значение штрафов:');(Fopt);('Оптимальные механизмы управления в проектах:');

for i=1:n=num2str(i);=strcat('№',si,'_',Mng(Mopt(1,i),:));

disp(str);

Оптимизация выбора механизмов управления, ограничения и коррекции для минимизации определённого риска

function Risk_OptimizingB Mng MNG Lim LIM Cor COR n Iplan Ivar CFplan CFvar Lmax CVI CVCF inflation INFvar CVINF npv pi %pp

disp(' _');('ОПТИМИЗАЦИЯ ВЫБОРА МЕХАНИЗМОВ ДЛЯ МИНИМИЗАЦИИ РИСКА');=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);(Ns~=1)||(Ms~=1)||(sim<1) %Проверка правильности ввода имитаций('Ошибка ввода!');=input('Задайте количество имитаций: ');

[Ns,Ms]=size(sim);=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);(Nf~=1)||(Mf~=1) %Проверка правильности ввода ставки штрафов('Ошибка ввода!');=input('Задайте ставку штрафов за перераспределение инвестиций: ');

[Nf,Mf]=size(f);=input('Задайте ограничение на перевыполнение планового задания по инвестированию: ');

[Nb,Mb]=size(b);(Nb~=1)||(Mb~=1) %Проверка правильности ввода ограничения('Ошибка ввода!');=input('Задайте ограничение на перевыполнение планового задания по инвестированию: ');

[Nb,Mb]=size(b);=b*ones(1,n);

disp(' ');('Выберите риск для минимизации:');=char('1 Вероятность превышения задаваемого значения', '2 Вероятность недостижения задаваемого значения');

disp(RChoice);=input('Выбор: ');

while (rchoice~=1)&&(rchoice~=2) %Проверка правильности ввода

disp('Ошибкаввода!');

rchoice=input('Выбор: ');

end('Выберите показатель для оценки:');=char('1 Чистая приведённая стоимость', '2 Рентабельность инвестиций', '3 Сроки окупаемости проектов');(Rpar);=input('Номер показателя: ');(rpar~=1)&&(rpar~=2)&&(rpar~=3) %Проверка правильности ввода('Ошибка ввода!');=input('Номер показателя: ');

end=zeros(n,1);i=1:n

si=num2str(i);=strcat('Значение показателя в проекте №',si,'_');

rv=input(str);

[Nrv,Mrv]=size(rv);

while(Nrv~=1)||(Mrv~=1) %Проверка правильности ввода значения

disp('Ошибкаввода!');=input(str);

[Nrv,Mrv]=size(rv);(i,1)=rv;=8;=8;=8;=zeros(sim,1);=ones(1,n);=ones(1,n);=ones(1,n);=zeros(n,sim);=zeros(n,sim);=zeros(n,sim);=ones(n,1);=ones(1,n);=ones(1,n);=zeros(sim,1);t=1:(Mmax^n) L=1:Limmax(L).L=L;=L*ones(1,n);C=1:Cmax=C*ones(1,n);s=1:sim=Iplan.*(1+CVI.*randn(n,Lmax));=CFplan.*(1+CVCF.*randn(n,Lmax));=inflation.*(1+CVINF.*randn(1,Lmax));

Management %Применение механизма управления=Ivar;%Перераспределение инвестиций=f*sum(sum((Ivar-Imng).*((Ivar-Imng)>0))); %Определение значения функции штрафов(s,1)=Fine;%Применение механизма ограничения%Применение механизма коррекции%Дисконтирование, вычисление параметров

NPV(:,s)=npv;(:,s)=pi;(:,s)=pp;=mean(FINE);=ones(n,1);i=1:nrpar1=NPV(i,:);2=PI(i,:);3=PP(i,:);rchoice==1(i,1)=1-normcdf(rval(i,1),mean(R.'),std(R.'));risk(i,1)=normcdf(rval(i,1),mean(R.'),std(R.'));=mean(risk);(t==1)||(rmean<rmeanopt)=rmean;=MNG;i=1:n(t==1)||(risk(i,1)<Ropt(i,1))(i,1)=risk(i,1);(1,i)=LIM(1,i);(1,i)=COR(1,i);MNG(1,1)==Mmaxk=2:nMNG(1,k)<Mmax(1,k)=MNG(1,k)+1;z=1:k-1(1,z)=1;MNG(1,1)=MNG(1,1)+1;(file);('-----------------------------------------------------');

disp('Минимально возможные значения вероятностей в проектах:');