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

cvcf1=input(str);

[Ni,Mi]=size(cvcf1);

while(Ni~=1)||(Mi~=1) %Проверка правильности ввода('Ошибка ввода!');=input(str);

[Ni,Mi]=size(cvcf1);=input('до ');

[Ni,Mi]=size(cvcf2);(Ni~=1)||(Mi~=1) %Проверкаправильностиввода('Ошибкаввода!');=input('до ');

[Ni,Mi]=size(cvcf2);=cvcf1:(cvcf2-cvcf1)/(L-1):cvcf2;

%Создание матриц инвестиций, разрешений, доходов и к-тов вариации

Ip=[zeros(1,t) Ip]=[zeros(1,t) T]=[zeros(1,t) CFp]=[zeros(1,t) CvI]=[zeros(1,t) CvCF]=length(Ip);L>Lmax=[Iplan zeros(i-1,L-Lmax);Ip];=[Transfer zeros(i-1,L-Lmax);T];=[CFplan zeros(i-1,L-Lmax);CFp];=[CVI zeros(i-1,L-Lmax);CvI];=[CVCF zeros(i-1,L-Lmax);CvCF]; =L;Iplan=[Iplan; Ip zeros(1,Lmax-L)];=[Transfer; T zeros(1,Lmax-L)];=[CFplan; CFp zeros(1,Lmax-L)];=[CVI; CvI zeros(1,Lmax-L)];=[CVCF; CvCF zeros(1,Lmax-L)];

end=strcat('Введите ставку системного риска проекта №',si,'_');

rsis=input(str);

[Nr,Mr]=size(rsis,1);

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

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

[Nr,Mr]=size(rsis,1);(i,1)=rsis;

end('Задайте инфляцию в виде кусочно-линейной функции');

disp('Начальнаяточка');=0;=num2str(t);=strcat('Время:_',st);(str);(1,1)=t;(1,2)=input('Уровеньинфляции: ');

disp('Конечная точка');=Lmax;

st=num2str(t);=strcat('Время:_',st);(str);(2,1)=t;(2,2)=input('Уровеньинфляции: ');

disp('Добавить точку? 1 - да, 2 - нет');

a=input('');=2;e=3:Lmaxa==1=num2str(e);=strcat('Точка №',E);(str);=input('Время: ');

[Nt,Mt]=size(t);(Nt~=1)||(Mt~=1)||(t>Lmax) %Проверкаправильностивводавремени('Ошибкаввода!');=input('Время: ');

[Nt,Mt]=size(t);(e,1)=t;

ii=input('Уровень инфляции: ');

[Nii,Mii]=size(ii);(Nii~=1)||(Mii~=1) %Проверка правильности ввода параметра('Ошибка ввода!');=input('Уровень инфляции: ');

[Nii,Mii]=size(ii);(e,2)=ii;

disp('Добавить точку? 1 - да, 2 - нет');

a=input('');=l+1;

[INF,NUM]=sort(inf);k=1:l(k,2)=inf(NUM(k,1),2);=2;=zeros(1,Lmax);(1,1)=INF(1,2);h=2:Lmaxh>INF(k,1)=k+1; (1,h)=INF(k-1,2)+(INF(k,2)-INF(k-1,2))*(h-INF(k-1,1))/(INF(k,1)-INF(k-1,1));

end=strcat('Коэффициент вариации инфляции линейно изменяется от_');

cvinf1=input(str);

[Ni,Mi]=size(cvinf1);

while(Ni~=1)||(Mi~=1) %Проверка правильности ввода коэффициента вариации('Ошибка ввода!');=input(str);

[Ni,Mi]=size(cvinf1);=input('до ');

[Ni,Mi]=size(cvinf2);(Ni~=1)||(Mi~=1) %Проверка правильности ввода коэффициента вариации('Ошибка ввода!');=input('до ');

[Ni,Mi]=size(cvinf2);=cvinf1:(cvinf2-cvinf1)/(L-1):cvinf2;

rmin=input('Задайте ставку доходности по безрисковым вложениям: ');

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

[Nr,Mr]=size(rmin);;

disp('ИСХОДНЫЕ ДАННЫЕ:');('Плановые инвестиции:');(Iplan);('Разрешения на передачу инвестиций:');

disp(Transfer);('Плановыедоходы:');(CFplan);('Коэффициентывариацииинвестиций:');

disp(CVI);('Коэффициенты вариации доходов:');

disp(CVCF);('Инфляция:');(inflation);('Коэффициентывариацииинфляции:');

disp(CVINF);('Коэффициенты системного риска:');(Rsis);('Ставка доходности по безрисковым вложениям:');(rmin);('Оптимизировать параметры механизмов управления?');=input('1 - да, 2 - нет ');o==1=input('Задайте нижнюю границу поиска оптимальных значений параметра:');=input('Задайте верхнюю границу поиска: ');=input('Задайте шаг поиска: ');

disp('Оптимизация ');_Optimizing=[0 0 0;0 0 0;-1 -1 -1;0 0 0;-1.4 0 -1.5; -2 -2 -2; -1.8 0 0; 0 0 0];

Оптимизация параметров механизмов управления

Models_OptimizingModels_Optimizing_2n Iplan Lmax CVI MNG Aamin Aamax Ivar LIM B inflation CVINF INFvar E W H=0.5*ones(1,n);=100;=8;=8;=E;=W;=H;=zeros(sim,n);=zeros(Mngmax,n);=zeros(Mngmax,n);=zeros(Mngmax,n);=zeros(Mngmax,n);=Inf*ones(1,n);mng=1:Mngmax(mng~=1)&&(mng~=2)&&(mng~=4)&&(mng~=8)=mng*ones(1,n);=amax;aMax>=amin=aMax*ones(1,n);(mng,:)=Amax;=amin;aMin<=aMax=aMin*ones(1,n);(mng,:)=Amin;s=1:sim=Iplan.*(1+CVI.*randn(n,Lmax));=inflation.*(1+CVINF.*randn(1,Lmax));%Перераспределениеинвестиций=Ivar;=zeros(Limmax,n);lim=1:Limmax=lim*ones(1,n);%Ограничение=sum((Iplan-Ivar),2);(lim,:)=limit;