function vyhledani_nulove_hodnoty_funkce
% fzero nevyhledava vsechny nulove hodnoty funkce (koreny), jde o numericke
% vyhledani nektereho korene v okoli vychozi hodnoty nezavisle promenne.
% Geometricky vyznam funkce je nalezeni pruseciku s osou x.
% nulova_hodnota_y = fzero(@nazev_funkce, hodnota_x_kolem_ktere_se_hleda)

x=-20:0.05:20;  % vektor x od -10 do 10 s krokem 0.05
y=fce(x);       % do promenne y se priradi hodnoty vypoctene funkci fce s parametrem x - viz m-file fce.m

k=fzero(@fce,10); % vyhledani korene (nulove hodnoty funkce) v okoli hodnoty 10
disp(['Koren funkce y=sin(x)-x/10 v okolí bodu 0: ',num2str(k)]) % výpis na obrazovku

plot(x,y)   % dvourozmerny graf
grid        % mrizka v grafu
xlabel('x') % popis osy x
ylabel('y') % popis osy y

% z grafu je vidìt, že funkce má vìtší poèet koøenù, z grafu zjistíme poèet
% koøenù (celkem 7) a jejich pøibližnou polohu (okolí -9,-6,-3,0,3,6,9).

disp('Koreny funkce y=sin(x)-x/10 jsou:') % výpis na obrazovku bez názvu promìnné (retezec v apostrofech '')
hold on                 % pøidrženi aktualního grafu v grafickém oknì, možnost nakreslení více grafù do jednoho grafického okna
for n= -9 : 3 : 9       % cyklus s pevnym poctem opakovani, n se meni od -9 do 9 s krokem 3 (pøibližna poloha korenu)
    k=fzero(@fce,n);    % vyhledani korene (nulove hodnoty funkce) v okoli hodnoty n
    disp(k)             % výpis na obrazovku bez názvu promìnné
    plot(k,0,'ro')      % dvourozmerny graf, bod o souradnicich [k,nula] zobrazen jako cervene kolecko    
end                     % konec cyklu for
hold off                % vypnutí, konec možnosti kreslit více grafù do jednoho grafického okna

