function avi_sincos
% vytvori AVI soubor - funkce y = sin(kt)cos(t), k se mìní od 0 do 100
% od verze R2010b

vidObj = VideoWriter('sincos_movie.avi'); 
% pripravi novy soubor ve formátu AVI
% typ souboru 'avi', 'mp4', 'mj2'.
open(vidObj);
t = 0:0.01:2*pi;
set(gca,'nextplot','replacechildren');
for k=0:1:100
    sincos(t,k); % volani funkce sincos se 2 vstupnimi parametry
    % zapise kazdy snimek (graf v aktualnich osach) do souboru.
    currFrame = getframe(gcf);
    writeVideo(vidObj,currFrame);
end
% zavre soubor
close(vidObj);
end

function sincos(t,k)
plot(t, sin(k .* t) .* cos(t),'r');
r = sprintf('y = sin(%dt) cos(t)',k);
title(r)
xlabel('x')
ylabel('y')
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  pro starsi verze MATLABu do verze R2010a      %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% aviobj = avifile('sincos_movie.avi','fps',50,'compression','Cinepak'); 
% % vytvoøí nový soubor ve formátu AVI
% % fps - poèet snímkù za sekundu
% % compression - øetìzcem se oznaèí, jakou kompresi použít.
% % 'Indeo3','Indeo5','Cinepak','MSVC','RLE' nebo 'None'
% 
% t = 0:0.01:2*pi;
% 
% for k=0:1:40
%     plot(t, sin(k .* t) .* cos(t),'r'); 
%     frame = getframe;
%     aviobj = addframe(aviobj,frame);
% end
% 
% aviobj = close(aviobj);
