Визначення відверненого еколого-економічного збитку навколишнього природного середовища.

[Nm2(ii),Pr2(ii),Vf2(ii),Tov2(ii)]=firma(Perc(ii)+Nsopt,Vm2,Sm2,PercM,Vr2,SSpr);

[Nm3(ii),Pr3(ii),Vf3(ii),Tov3(ii)]=firma(Perc(ii),Vm3,Sm3,PercM,Vr3,SSpr);=Pr1+Pr2+Pr3;=Vf1+Vf2+Vf3;=Tov1+Tov2+Tov3;=Vr1+Vr2+Vr3;=Perc(find(Pr==max(Pr)))=Nm1(find(Pr==max(Pr)))=Nm2(find(Pr==max(Pr)))=Nm3(find(Pr==max(Pr)))=max(Pr)=Vf1(find(Pr==max(Pr)))=Vf2(find(Pr==max(Pr)))=Vf3(find(Pr==max(Pr)))=find((Vf1-Tov1)==max(Vf1-Tov1));=find((Vf2-Tov2)==max(Vf2-Tov2));=find((Vf3-Tov3)==max(Vf3-Tov3));(1)(2,2,1);(Perc+Nroz,Nm1,Popt+Nroz,Nmopt1,'or')on(Perc+Nsopt,Nm2,Popt+Nsopt,Nmopt2,'og')(Perc,Nm3,Popt,Nmopt3,'ok')off(2,2,3);(Perc+Nroz,Vf1,Perc+Nroz,Vf1-Tov1,Popt+Nroz,Vfopt1,'or')on(Perc+Nsopt,Vf2,Perc+Nsopt,Vf2-Tov2,Popt+Nsopt,Vfopt2,'og')(Perc,Vf3,Perc,Vf3-Tov3,Popt,Vfopt3,'ok')(Perc([F1 F2 F3]),[(Vf1(F1)-Tov1(F1)) (Vf2(F2)-Tov2(F2)) (Vf3(F3)-Tov3(F3))],'*g')offon (2,2,2);(Perc,Pr,Popt,Propt,'or',Perc(F3),Pr(F3),'*g')on(2,2,4);=text(0,0.5, .

{['Доля рынка (объем рынка):'], .

['Оптовый: ' num2str(Vfopt3/Vr3*100) '% (' num2str(Vr3/1000) ' тыс.грн)'], .

['Мелко-Оптовый: ' num2str(Vfopt2/Vr2*100) '% (' num2str(Vr2/1000) ' тыс.грн)'], .

['Розничный: ' num2str(Vfopt1/Vr1*100) '% (' num2str(Vr1/1000) ' тыс.грн)'], .

['Всего: ' num2str((Vfopt1+Vfopt2+Vfopt3)/Vr*100) '% (' num2str(Vr/1000) ' тыс.грн)'], .

[''], .

['Потребное кол менеджеров:'], .

['Оптовый: ' num2str(Nmopt3) ' чел'], .

['Мелко-Оптовый: ' num2str(Nmopt2) ' чел'], .

['Розничный: ' num2str(Nmopt1) ' чел'], .

['Всего: ' num2str(Nmopt1+Nmopt2+Nmopt3) ' чел'], .

[''], .

['Чистая прибыль: ' num2str(Propt/1000) ' тыс.грн']})(ff,'FontName','Courier');off

Додаток 3

Зовнішній вигляд програми