function Integral_2
% vypocet integralu  funkce (sin(x.^2)).^2 v mezich od 0 do 5 a zobrazeni jeho prubehu
% integrovana funkce (sin(x.^2)).^2 uvedena v m-file s nazvem sin2x2.m

% vlastni vypocet integralu v mezich od 0 do 5
y=quad(@sin2x2,0,5);
fprintf('\nIntegral z sin2x2 v mezich od 0 do 5 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=0.01:0.01:5; % x od 0.01 do 5 s krokem 0.01
               % x zacina v 0.01, 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 0.01
for n=1:length(x) % cyklus s pevnym poctem opakovani, cyklus probehne tolikrat, kolik je prvku ve vektoru x
    yi(n)=quad(@sin2x2,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,sin2x2(x),'--k',x,yi,'-r') % vykresleni dvourozmerneho grafu, zvolen typ cary a barva
                   % prubeh funkce sin2x2(x) zobrazen cernou carkovanou carou
                   % prubeh integralu zobrazen cervenou plnou carou
legend('Prubeh funkce sin^2x^2','Prubeh integralu z funkce sin^2x^2') % popis krivek (legenda)
                                                                      % znak ^ - horni index