function grafik
% Funkce grafik bez parametrù bude vykreslovat graf køivky dané rovnicí
% 		y = sin^3(x) cos(x^3) 
% pro x z intervalu, jehož pocatek, konec a pocet prvku v intervalu zadá uživatel z klávesnice.  
% Ve funkci bude provedeno ošetøení poètu chyb uživatele pri zadavani.

pocatek = zadavani(-5,0,'Zadej pocatek intervalu: ');
konec = zadavani(1,5,'Zadej konec intervalu: ');
pocet_prvku = zadavani(100,1000,'Zadej pocet prvku v intervalu: ');
if(isnan(pocatek) || isnan(konec) || isnan(pocet_prvku))
    disp('Nekde byla chyba v zadani, graf nebude.')
    return;
end
disp('Kreslim grafik.')
x=linspace(pocatek, konec, pocet_prvku);
y=sin(x).^3.*cos(x.^3);
plot(x,y)
xlabel('x')
ylabel('y')
end

function cislo=zadavani(dolni, horni, retezec)
chyb=0;
while(1)
    cislo = input(retezec);
    if((cislo<dolni)||(cislo>horni))
        disp([num2str(chyb),' chybka ...'])
        chyb=chyb+1;
        if(chyb > 5)
            disp('Moc chyb');
            cislo=NaN;
            return;
        end
    else
        disp('Zadani OK')
        break;
    end
end
end
