function Reseni_ukolu_11_2
% Parametrické rovnice popisují tzv. Vivianiho køivku.
% Vivianiho køivka je prùnikem kulové plochy a rotaèní válcové plochy o
% polovièním polomìru, pøièemž jedna z tvoøících pøímek válcové plochy 
% prochází støedem kulové plochy.
p=Reseni_ukolu_11_1; % volání funkce Reseni_ukolu_11_1, jejím výstupem je èíslo p
r=4;
t=linspace(0,2*pi,p); % t je z intervalu od 0 do 2*pi
x=r.*(cos(t)).^2;
y=r.*sin(t).*cos(t);
z=r.*sin(t);
plot3(x,y,z,'r','LineWidth',3) % vykreslení køivky v prostoru
                % zvolena barva r - red (èervená)
                % zvolena tlouš�ka èáry 3 ('LineWidth',3)
