function vivianiho_krivka

% Vivianiho køivka (prùnik kulové plochy a válcové plochy)
% - prùnik 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.

% prostorová køivka s parametrickými rovnicemi
% x=r.*(cos(t)).^2;y=r.*sin(t).*cos(t);z=r.*sin(t);
% vykreslená pomocí pøíkazu plot3 pro r=4, t z intervalu od 0 do 2*pi

t=linspace(0,2*pi,100); % t je z intervalu od 0 do 2*pi
r=4;
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á)
                % zvolen typ èáry : (teèkovaná)
                % zvolena tlouš�ka èáry 3 ('LineWidth',3)
xlabel('x')
ylabel('y')
zlabel('z')
                