clf;
%
% *****Obr(2) **************** výdajové omezení **************************
%
p1=4;
p2=6;
M0=60;
x1=0.01:0.01:20;
xM=(M0-p1.*x1)./p2;
%
% *** Obr(2A) ********** lineární produkční funkce************************
%

pro1=30;
pro2=45;
pro3=60;
alf1=3;
alf2=4;
%
prf1=(pro1-alf1.*x1)./alf2;
prf2=(pro2-alf1.*x1)./alf2;
prf3=(pro3-alf1.*x1)./alf2;
%
subplot(2,3,1);hold on;
plot(x1,xM,'r--');
legend('\rm4L+6K = 60');
YLabel('K','rotation',0,'Fontweight','Bold');
XLabel('L','FontWeight','Bold');

gr=plot(x1,prf1,x1,prf2,x1,prf3);
set(gr,'color','b');
axis([0 20 0 20]);box on;

grid off;

title('lineární produkční funkce');hold off;

set(gca,'XTickMode','Manual');set(gca,'XTick',[0 5 10 15 20]);
set(gca,'YTickMode','Manual');set(gca,'YTick',[ 5 10 15 20]);

text(2.1,4.5,'\rmy^0= 30','color','b','HorizontalAlignment','left','FontName','Tahoma');

text(4,8,'\rmy^1= 45','color','b','HorizontalAlignment','left','FontName','Tahoma');

text(5.5,12,'\rmy^2= 60','color','b','HorizontalAlignment','left','FontName','Tahoma');


hold off;

%
% *** Obr(2B)************* Cobb-Douglasova produkční funkce **********
%

pro1=8;
pro2=12;
pro3=16;
gama=2;
alf1=2/5;
alf2=3/5;
%
cdf1=(pro1./(gama.*x1.^alf1)).^(1/alf2);
cdf2=(pro2./(gama.*x1.^alf1)).^(1/alf2);
cdf3=(pro3./(gama.*x1.^alf1)).^(1/alf2);
%
subplot(2,3,2);hold on;
plot(x1,xM,'r--');
legend('\rm4L+6K = 60');
YLabel('K','rotation',0,'Fontweight','Bold');
XLabel('L','FontWeight','Bold');


gr=plot(x1,cdf1,x1,cdf2,x1,cdf3);
set(gr,'color','b');
axis([0 20 0 20]);box on;

grid off;
title('Cobb-Douglasova produkční funkce');hold off;

set(gca,'XTickMode','Manual');set(gca,'XTick',[0 5 10 15 20]);
set(gca,'YTickMode','Manual');set(gca,'YTick',[ 5 10 15 20]);

text(6,2.3,'\rmy^0= 8','color','b','HorizontalAlignment','right','FontName','Tahoma');

text(7,6.3,'\rmy^1= 12','color','b','HorizontalAlignment','left','FontName','Tahoma');

text(5.5,12,'\rmy^2= 16','color','b','HorizontalAlignment','left','FontName','Tahoma');



tx=text(13,23.5,'Příklady izokvant dvoufaktorových produkčních funkcí');
set(tx,'fontsize',13,'fontweight','bold','HorizontalAlignment','Center');

% *** Obr(2C)*************** ACMS produkční funkce pro ro=-1/2*****************
%
pro1=8;
pro2=12;
pro3=16;
gama=2;
sigm=0.5;
alf1=2/5;
alf2=3/5;
%
acf1=(((pro1./gama).^sigm-alf1*x1.^sigm)./alf2).^(1/sigm);
acf2=(((pro2./gama).^sigm-alf1*x1.^sigm)./alf2).^(1/sigm);
acf3=(((pro3./gama).^sigm-alf1*x1.^sigm)./alf2).^(1/sigm);
%
subplot(2,3,3);hold on;




plot(x1,xM,'r--');
legend('\rm4L+6K = 60');
YLabel('K','rotation',0,'Fontweight','Bold');
XLabel('L','FontWeight','Bold');

gr=plot(x1,acf1,x1,acf2,x1,acf3);set(gr,'color','b');

axis([0 20 0 20]);box on;
grid off;


set(gca,'XTickMode','Manual');set(gca,'XTick',[0 5 10 15 20]);
set(gca,'YTickMode','Manual');set(gca,'YTick',[ 5 10 15 20]);

text(6,2.3,'\rmy^0= 8','color','b','HorizontalAlignment','right','FontName','Tahoma');

text(7,6.3,'\rmy^1= 12','color','b','HorizontalAlignment','left','FontName','Tahoma');

text(5.5,11,'\rmy^2= 16','color','b','HorizontalAlignment','left','FontName','Tahoma');

title('ACMS - produkční funkce (\rho = -1/2)');
hold off;
%
% *** Obr(2D)*************** ACMS produkční funkce pro ro=2 *****************
%

pro1=8;
pro2=12;
pro3=16;
gama=2;
sigm=-2;
alf1=2/5;
alf2=3/5;
%
xx1=2.56:0.01:20;
if((pro1./gama).^sigm-alf1*xx1.^sigm)<0
     acm1=0; 
 else
     acm1=(((pro1./gama).^sigm-alf1*xx1.^sigm)./alf2).^(1/sigm);
 end;
%
xx2=3.8:0.01:20;
if((pro2./gama).^sigm-alf1*xx2.^sigm)<0
     acm2=0; 
 else
     acm2=(((pro2./gama).^sigm-alf1*xx2.^sigm)./alf2).^(1/sigm);
 end;
%
xx3=5.1:0.01:20;

 if((pro3./gama).^sigm-alf1*xx3.^sigm)<0
     acm3=0; 
 else
     acm3=(((pro3./gama).^sigm-alf1*xx3.^sigm)./alf2).^(1/sigm);
 end;
%
subplot(2,3,4);hold on;
plot(x1,xM,'r--');
legend('\rm4L+6K = 60');
YLabel('K','rotation',0,'Fontweight','Bold');
XLabel('L','FontWeight','Bold');


     
gr=plot(xx1,acm1,xx2,acm2,xx3,acm3);


set(gr,'color','b');
axis([0 20 0 20]);box on;

grid off;


set(gca,'XTickMode','Manual');set(gca,'XTick',[0 5 10 15 20]);
set(gca,'YTickMode','Manual');set(gca,'YTick',[ 5 10 15 20]);

text(6,2.7,'\rmy^0= 8','color','b','HorizontalAlignment','right','FontName','Tahoma');

text(7,6.3,'\rmy^1= 12','color','b','HorizontalAlignment','left','FontName','Tahoma');

text(7.5,10,'\rmy^2= 16','color','b','HorizontalAlignment','left','FontName','Tahoma');


title('ACMS - produkční funkce (\rho = 2)');

hold off;
%
% *** Obr(2E) ************* Leonifiefova produkční funkce *******************
%

 pro1=30;
 pro2=40;
 pro3=50;
 alf1=5;
 alf2=6;
 lef1=pro1./alf1;
 lef2=pro2./alf1;
 lef3=pro3./alf1;
 arrx=(alf1.*x1)./alf2;
 subplot(2,3,5);
hold on;
 plot(x1,xM,'r--');
legend('\rm4L+6K = 60');
YLabel('K','rotation',0,'Fontweight','Bold');
XLabel('L','FontWeight','Bold');

 gr=plot(x1,lef1,'b',x1,lef2,'b',x1,lef3,'b',x1,arrx,'k:');

line([5.3 5.3],[4.417 20]);line([5.25 20],[4.417 4.417]);
line([3 3],[2.5 20]);line([3 20],[2.5 2.5]);
line([8 8],[6.667 20]);line([8 20],[6.667 6.667]);
%
text(7,1.6,'\rmy^0=30','fontsize',10,'FontName','Tahoma','Color','b','HorizontalAlignment','left');
text(12,5.3,'\rmy^1=40','fontsize',10,'FontName','Tahoma','Color','b');
text(10,7.8,'\rmy^2=50','fontsize',10,'FontName','Tahoma','Color','b');

set(gca,'XTickMode','Manual');set(gca,'XTick',[0 5 10 15 20]);
set(gca,'YTickMode','Manual');set(gca,'YTick',[ 5 10 15 20]);

 axis([0 20 0 20]);
 grid off;
 
 box on;hold off;
 title('Leontiefova produkční funkce');
%
% *** Obr(2F) ************* TRANSLOG produkční funkce *******************
%
pro1=80;
pro2=320;
pro3=720;
bet1=0.6;
bet2=0.8;
bet12=1.0;
%
tra1=exp((log(pro1)-bet1.*log(x1))./(bet2+bet12*log(x1)));
tra2=exp((log(pro2)-bet1.*log(x1))./(bet2+bet12*log(x1)));
tra3=exp((log(pro3)-bet1.*log(x1))./(bet2+bet12*log(x1)));
%
subplot(2,3,6);hold on;
plot(x1,xM,'r--');
legend('\rm4L+6K = 60');
YLabel('K','rotation',0,'Fontweight','Bold');
XLabel('L','FontWeight','Bold');


gr=plot(x1,tra1,x1,tra2,x1,tra3);
set(gr,'color','b');
axis([0 20 0 20]); box on;
grid off;

title('TRANSLOG - produkční funkce'); hold off;

text(5.1,3.1,'\rmy^0=80','fontsize',10,'FontName','Tahoma','Color','b','HorizontalAlignment','right');
text(6.1,6,'\rmy^1=320','fontsize',10,'FontName','Tahoma','Color','b');
text(5.5,12,'\rmy^2=720','fontsize',10,'FontName','Tahoma','Color','b');


set(gca,'XTickMode','Manual');set(gca,'XTick',[0 5 10 15 20]);
set(gca,'YTickMode','Manual');set(gca,'YTick',[ 5 10 15 20]);











hold off;