function Prubeh_integralu_1
% vypocet integralu  funkce cos(x) v mezich od 0 do 2*pi a zobrazeni jeho prubehu

% vlastni vypocet integralu
y=quad('cos(x)',0,2*pi)

% zobrazeni prubehu funkce a jejiho integralu
x=[0:pi/50:2*pi];
for n=1:length(x) % cyklus s pevnym poctem opakovani, cyklus probehne tolikrat, kolik je prvku ve vektoru x
    yi(n)=quad('cos(x)',0,x(n)); % vypocet integralu v mezich od 0 do n-teho prvku vektoru x
                                 % a ulozeni vypoctu do n-teho prvku vektoru yi
end; % ukonceni cyklu
subplot(2,1,1) % rozdeleni grafickeho okna na 2 casti (nasledujici graf v 1. casti)
plot(x,cos(x),'--r',x,yi,'-k') % vykresleni dvourozmerneho grafu, zvolen typ cary a barva
                   % prubeh funkce cos(x) zobrazen cervenou carkovanou carou
                   % prubeh integralu zobrazen cernou plnou carou
legend('prubeh funkce cos','prubeh integralu') % popis krivek (legenda)
subplot(2,1,2) % rozdeleni grafickeho okna na 2 casti (nasledujici graf v 2. casti)
plot(x,sin(x)) % vykresleni dvourozmerneho grafu funkce sin(x) v mezich od 0 do 2*pi
                % pro porovnani s prubehem integralu
legend('prubeh funkce sin') % popis krivky (legenda)