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

for i=1:n=num2str(i);=num2str(Ropt(i,1));=strcat('№',si,'_',r);(str);(' ');

disp('Оптимальные механизмы управления текущим инвестированием в проектах:');

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

disp('Оптимальные механизмы ограничения максимального объёма инвестирования в проектах:');

for i=1:n=num2str(i);=strcat('№',si,'_',Lim(Lopt(1,i),:));(str);(' ');

disp('Оптимальные механизмы коррекции доходов в проектах:');

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

disp(str);

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

function NPV_OptimizingB Mng MNG Lim LIM Cor COR n Iplan Ivar CFplan CFvar Lmax CVI CVCF inflation INFvar CVINF npv

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);=8;=8;=8;=zeros(n,1);=ones(1,n);=ones(1,n);=ones(1,n);=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);=zeros(n,sim);s=1:sim=Iplan.*(1+CVI.*randn(n,Lmax));=CFplan.*(1+CVCF.*randn(n,Lmax));=inflation.*(1+CVINF.*randn(1,Lmax));

Management %Применение механизма управления=Ivar;%Перераспределение инвестиций

Fine=f*sum(sum((Ivar-Imng).*((Ivar-Imng)>0)));

%Определение значения функции штрафов(s,1)=Fine;%Применение механизма ограничения%Применение механизма коррекции%Дисконтирование, вычисление параметров

NPV(:,s)=npv;

end=mean(FINE);=mean(NPV,2);=sum(NPV);(t==1)||(NPVsum>NPVsumopt)=NPVsum;=MNG;i=1:n(t==1)||(NPV(i,1)>NPVopt(i,1))(i,1)=NPV(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;('--------------------------------------------------------------------');

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

for i=1:n=num2str(i);=num2str(NPVopt(i,1));=strcat('№',si,'_',r);(str);(' ');

disp('Оптимальные механизмы управления текущим инвестированием в проектах:');

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

disp('Оптимальные механизмы ограничения максимального объёма инвестирования в проектах:');

for i=1:n=num2str(i);=strcat('№',si,'_',Lim(Lopt(1,i),:));(str);(' ');

disp('Оптимальные механизмы коррекции доходов в проектах:');

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

disp(str);

Вспомогательные блоки программы

Вспомогательные блоки не требуют участия пользователя и предназначены для выполнения вычислений в составе других блоков.

Использование тестовых данных

functionData

global n Iplan CFplan Lmax Transfer CVI CVCF CVINF inflation Rsis rmin Aa W E H

clc;=3;=23;=7;=15;=zeros(1,L1);=zeros(1,L2);=zeros(1,L3);=zeros(1,L1);=zeros(1,L1);=zeros(1,L2);=zeros(1,L2);=zeros(1,L3);=zeros(1,L3);j=1:L1(1,j)=74.27+(j-1)*0.04;(1,j)=0.037+(j-1)*0.004;(1,j)=0.052+(j-1)*0.003;=[66.5 73.93 83.17 115.33 138.47 173.21];=[CFp1 173.21*ones(1,3) 173.18*ones(1,5) 173.16*ones(1,6) 173.13*ones(1,3)];j=1:L2 (1,j)=25.58+(j-1)*0.15;(1,j)=0.037+(j-1)*0.004;(1,j)=0.052+(j-1)*0.003;=[9.86 25.28 36.08 46.14 46.22 46.30 46.38];j=1:L3(1,j)=72.8-(j-1)*2.38;(1,j)=0.074-(j-1)*0.001;(1,j)=0.0825-(j-1)*0.0005;=[24.5 37.75 57.92 68.01 67.12 66.22 65.31 64.42 63.53 62.64 61.73 60.83 59.94 59.03 58.14];=23;=[Ip1;zeros(1,6) Ip2 zeros(1,10);zeros(1,6) Ip3 zeros(1,2)];=(Iplan>0);=[CFp1;zeros(1,6) CFp2 zeros(1,10);zeros(1,6) CFp3 zeros(1,2)];=[CvI1;zeros(1,6) CvI2 zeros(1,10);zeros(1,6) CvI3 zeros(1,2)];=[CvCF1;zeros(1,6) CvCF2 zeros(1,10);zeros(1,6) CvCF3 zeros(1,2)];=zeros(1,Lmax);=zeros(1,Lmax);j=1:Lmax(1,j)=0.07+0.007*(j-1);(1,j)=0.06+0.011*(j-1);=[0.54; 0.49; 0.36];