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

% vlastni vypocet integralu
y=quad(@cos,0,5/2*pi);
fprintf('\nIntegral z cos(x) v mezich od 0 do 5/2*pi je %5.3f.\n',y) % formátovaný textový výstup
                % v apostrofech je textový øetìzec, formátovací sekvence – zaèíná znakem %,   
                % èíslo (y) se požaduje na celkem minimálnì 5 znakù vèetnì desetinné   
                % teèky, za znakem . uvedeno, že èíslo bude zobrazeno na 3 desetinná místa 
                % (tj. na celky zbývá minimálnì 1 znak), f – desetinné èíslo
                % øídící znak \n – nová øádka
                
% zobrazeni prubehu funkce a jejiho integralu
x=pi/50:pi/50:5/2*pi; % x od pi/50 do 5/2*pi s krokem pi/50
                      % x zacina v pi/50, aby se v  následujícím cyklu for neobjevil integral od 0 do 0,
                      % v prvním bìhu cyklu se vypoète integral od 0 do pi/50
for n=1:length(x) % cyklus s pevnym poctem opakovani, cyklus probehne tolikrat, kolik je prvku ve vektoru x
    yi(n)=quad(@cos,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
plot(x,cos(x),'--k',x,yi,'-r') % vykresleni dvourozmerneho grafu, zvolen typ cary a barva
                   % prubeh funkce cos(x) zobrazen cernou carkovanou carou
                   % prubeh integralu zobrazen cervenou plnou carou
legend('prubeh funkce cos','prubeh integralu z cos') % popis krivek (legenda)
