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

end=sum(Limit); %Определение значения функции штрафов

LIMIT(s,:)=Limit;=mean(LIMIT);i=1:nL(1,i)<Lopt(1,i)(1,i)=L(1,i);(mng,i)=Amin(1,i);(mng,i)=Amax(1,i);=aMin+h;=aMax-h;

end=Aaminopt=Aamaxopt

Расчёт плановых показателей инвестиционных проектов

function Plan_ParametersIplan CFplan Ivar CFvar INFvar inflation npv pi %pp

disp(' _');('ПЛАНОВЫЕ ПОКАЗАТЕЛИ ИНВЕСТИЦИОННЫХ ПРОЕКТОВ');

Ivar=Iplan;=CFplan;=inflation;=npv;=pi;

PPplan=pp;('Плановые значения чистой приведённой стоимости:');(NPVplan);('Плановые значения индекса рентабельности:');(PIplan);('Плановые значения срока окупаемости:');(PPplan);

Моделирование реализации инвестиционного мультипроекта, расчёт рисков

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

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

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

[Ns,Ms]=size(sim);=zeros(1,sim);=zeros(n,sim);=zeros(n,sim);=zeros(n,sim);s=1:sim=Iplan.*(1+CVI.*randn(n,Lmax));=CFplan.*(1+CVCF.*randn(n,Lmax));=inflation.*(1+CVINF.*randn(1,Lmax));

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

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

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

mng=input(str);

[Nmng,Mmng]=size(mng);

while(Nmng~=1)||(Mmng~=1)||(mng>size(Mng,1))||(mng<1) %Проверка правильности ввода номера механизма управления

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

[Nmng,Mmng]=size(mng);(1,i)=mng;

end(' ');=input('Задайте ставку штрафов за перераспределение инвестиций:');

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

[Nfine,Mfine]=size(fine);(' ');

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

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

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

lim=input(str);

[Nlim,Mlim]=size(lim);

while(Nlim~=1)||(Mlim~=1)||(lim>size(Lim,1))||(lim<1) %Проверка правильности ввода номера механизма ограничения