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

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

[Nlim,Mlim]=size(lim);lim==1

str=strcat('Задайте ограничение на перевыполнение планового задания в проекте №',si,'_');

b=input(str);

[Nb,Mb]=size(b);

while(Nb~=1)||(Mb~=1) %Проверка правильности ввода

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

[Nb,Mb]=size(b);(1,i)=b;(1,i)=lim;(' ');

disp('Выбор механизмов коррекции текущих значений доходов');=char(' 1 Непосредственное влияние текущего уровня инвестирования', ' 2 Влияние накопленного объёма инвестирования', ' 3 Динамическое взаимодействие с уровнем инвестирования', ' 4 Последействие предшествующего результата', ' 5 Последействие динамики предшествующего результата',' 6 Обратное динамическое взаимодействие с уровнем инфляции',' 7 Степенное взаимодействие с текущим уровнем инвестирования',' 8 Отсутствие коррекции');

disp(Cor);=zeros(1,n);

for i=1:n %Выбор механизма коррекции=num2str(i);=strcat('Выберите механизм коррекции значений доходов для проекта №',si,'_');

cor=input(str);

[Nc,Mc]=size(cor);

while(Nc~=1)||(Mc~=1)||(cor>size(Cor,1))||(cor<1) %Проверка правильности ввода номера механизма коррекции

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

[Nc,Mc]=size(cor);(1,i)=cor;

end%Управление текущим инвестированием=Ivar;%Перераспределение инвестиций

Fine=fine*sum(sum((Ivar-Imng).*((Ivar-Imng)>0))); %Расчётштрафов(1,s)=Fine; %Сохранение полученного значения функции штрафов%Ограничение максимального объёма инвестирования%Применение выбранного механизма коррекции%Дисконтирование, определение параметров(:,s)=npv;

PI(:,s)=pi;(:,s)=pp;=mean(NPV,2);=mean(PI,2);=mean(PP,2);=mean(FINE);

disp('--------------------------------');('Среднее значение функции штрафов:');(fine);('Средние значения чистой приведённой стоимости:');(npv);('Средние значения индекса рентабельности:');(pi);('Средние значения срока окупаемости:');

disp(pp);=3;rchoice~=0 %Расчётрисков

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

disp(RChoice);=input('Выбор: ');(rchoice~=0)&&(rchoice~=1)&&(rchoice~=2) %Проверкаввода('Ошибкаввода!');=input('Выбор: ');rchoice~=0

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

endrpar~=4=input('Номерпроекта: ');

[Ni,Mi]=size(i);(Ni~=1)||(Mi~=1)||(i>n)||(i<1) %Проверкаввода

disp('Ошибка ввода!');=input('Номер проекта: ');

[Ni,Mi]=size(i);

rval=input('Значение показателя: ');

[Nr,Mr]=size(rval);(Nr~=1)||(Mr~=1) %Проверка правильности ввода('Ошибка ввода!');=input('Значение показателя: ');

[Nr,Mr]=size(rval);rpar1=NPV(i,:);2=PI(i,:);3=PP(i,:);=FINE;rchoice==1=1-normcdf(rval,mean(R.'),std(R.'));risk=normcdf(rval,mean(R.'),std(R.'));

end('------------------------');('Расчётное значение риска:');(risk);

Оптимизация выбора механизмов управления для минимизации функции штрафов

function Fine_Optimizingn Iplan Lmax CVI Mng MNG Ivar INFvar inflation CVINF

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('Задайте ставку штрафов за перераспределение инвестиций: ');