% Kuzeloseèky - kružnice, elipsa, parabola a hyperbola
% - popsány parametrickými rovnicemi
% - vykresleny v intervalu od 0 do 2*pi
t=linspace(0,2*pi,50); % t je z intervalu od 0 do 2*pi
hold on % pøidrženi aktualního grafu v grafickém oknì, možnost nakreslení více grafù
% kružnice 
% rovnice støedová (x-m)^2+(y-n)^2=r^2, støed S[m,n], polomìr r
% rovnice parametrické x=m+r*cos(t), y=n+r*sin(t), støed S[m,n], polomìr r
% zde použity rovnice parametrické pro m=1, n=2, r=5
xk=1+5*cos(t);
yk=2+5*sin(t);
plot(xk,yk,'k','LineWidth',2) % vykreslení dvourozmìrného grafu
% zvolena barva ('r' - èerná) a tlouštka èáry ('LineWidth',2)
xlabel('x') % popis osy x
ylabel('y') % popis osy y
title('kuzelosecky') % název grafu
axis([-7,15,-7,15])% % volba mìøítka os

% elipsa
% rovnice osová (x-m)^2/a^2+(y-n)^2/b^2=1, støed S[m,n], poloosy a,b
% rovnice parametrické x=m+a*cos(t), y=n+b*sin(t), støed S[m,n],poloosy a,b
% zde použity rovnice parametrické pro m=1, n=2, a=5, b=2
xe=1+5*cos(t);
ye=2+2*sin(t);
plot(xe,ye,'r','LineWidth',2) % vykreslení dvourozmìrného grafu
% zvolena barva ('r' - èervená) a tlouštka èáry ('LineWidth',2)

% parabola
% rovnice vrcholová (y-n)^2=2*p*(x-m), vrchol V[m,n], parametr 2*p>0
% rovnice parametrické x=m+a*t, y=n+t^2, vrchol V[m,n], parametr a>0
% zde použity rovnice parametrické pro m=1, n=2, a=2
t=linspace(-pi,pi,50); % t je z intervalu od -pi do pi
xp=1+2.*t; % nutno použít .^ (operace prvek po prvku)
yp=2+t.^2; 
plot(xp,yp,'b','LineWidth',2) % vykreslení dvourozmìrného grafu
% zvolena barva ('b' - modrá) a tlouštka èáry ('LineWidth',2)

% rovnoosá hyperbola
% rovnice osová (x-m)^2/a^2-(y-n)^2/b^2=1, støed S[m,n], poloosy a,b
% rovnice parametrické x=m+a/cos(t), y=n+b*tg(t), støed S[m,n],poloosy a,b
% zde použity rovnice parametrické pro m=1, n=2, a=1, b=2
xh=1+1./cos(t); % nutno použít ./ (operace prvek po prvku)
yh=2+2.*tan(t); % nutno použít .* (operace prvek po prvku)
plot(xh,yh,'y','LineWidth',2) % vykreslení dvourozmìrného grafu
% zvolena barva ('y' - žlutá) a tlouštka èáry ('LineWidth',2)

legend('kruznice','elipsa','parabola','hyperbola') % legenda ke grafu
hold off % vypnutí, konec možnosti kreslit více grafù do jednoho grafického okna