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

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

for i=1:n=COR(1,i);j=2:Lmax CFvar(i,j-1)>0cor1(i,j)=CFvar(i,j)*Ivar(i,j)/Iplan(i,j);2(i,j)=CFvar(i,j)*sum(Ivar(i,1:j-1))/sum(Iplan(i,1:j-1));3=(Ivar(i,j)-Ivar(i,j-1))/(Iplan(i,j)-Iplan(i,j-1));A>0.25=0.25;A<-0.25=-0.25;(i,j)=CFvar(i,j)*(1+A); 4(i,j)=CFvar(i,j)*(1+CFvar(i,j-1)/CFplan(i,j-1)); 5j>2=(CFvar(i,j-1)-CFvar(i,j-2))/(CFplan(i,j-1)-CFplan(i,j-2));A>0.25=0.25;A<-0.25=-0.25;(i,j)=CFvar(i,j)*(1+A);6j>1=(inflation(1,j)-inflation(1,j-1))/(INFvar(1,j)-INFvar(1,j-1));A>0.25=0.25;A<-0.25=-0.25;(i,j)=CFvar(i,j)*(1+A);7=(Ivar(i,j)/Iplan(i,j));A>1.1=1.1;A<0.9=0.9;(i,j)=CFvar(i,j)^A;

end

Механизм перераспределения инвестиций

function TransactionIplan Ivar Transfer n Lmax=sum((Ivar-Iplan).*((Ivar-Iplan)>=0).*Transfer);=sum((Ivar-Iplan).*((Ivar-Iplan)<0));=(Prof>0).*(Def<0);j=1:Lmax %ПериодыK(1,j)==1i=1:n %Проекты-Def(1,j)>Prof(1,j)Ivar(i,j)<Iplan(i,j)(i,j)=Ivar(i,j)-(Iplan(i,j)-Ivar(i,j))*Prof(1,j)/Def(1,j);(i,j)=Iplan(i,j);-Def(1,j)<Prof(1,j)Ivar(i,j)>Iplan(i,j)(i,j)=Ivar(i,j)+(Ivar(i,j)-Iplan(i,j))*Def(1,j)/Prof(1,j);(i,j)=Iplan(i,j);

Дисконтирование

Discountn Lmax rmin INFvar Rsis Ivar CFvar npv pi %pp

d=zeros(n,Lmax);i=1:n %Вектор ставок дисконтирования

for j=1:Lmax(i,j)=(rmin+INFvar(1,j))*(1+Rsis(i,1));=zeros(n,Lmax);=zeros(n,Lmax);j=1:Lmax %Дисконтированиеi=1:n(i,j)=Ivar(i,j)/((1+d(i,j))^(j-1));(i,j)=CFvar(i,j)/((1+d(i,j))^(j-1));isnan(dI(i,j))==true(i,j)=0;isnan(dCF(i,j))==true(i,j)=0;=sum(dCF.')-sum(dI.');=sum(dCF.')./sum(dI.');=CFvar-Ivar;=zeros(n,Lmax);

for i=1:n %Денежный поток нарастающим итогом

for j=1:Lmax(i,j)=sum(P(i,1:j));=zeros(n,1);

for i=1:n %Определение срока окупаемости

p=sumP(i,:);=1;(p(1,j)<=0)||(j+1<length(p))=j+1;(i,1)=j-1; end