function grafik
while(1)
v=menu('Vyber:','x,y lin.del.','x log.del, y lin.del','x lin.del, y log.del','x,y log.del.','Konec');
switch(v)
    case 1
        x=linspace(1,100,1000);
        plot(x,vypocet(x))
        xlabel('x')
        ylabel('y')
    case 2
        x=logspace(0,2,1000);
        semilogx(x,vypocet(x),'r')
        xlabel('x')
        ylabel('y')
    case 3
        x=linspace(1,100,1000);
        semilogy(x,vypocet(x),'g')
        xlabel('x')
        ylabel('y')
    case 4
        x=logspace(0,2,1000);
        loglog(x,vypocet(x),'k')
        xlabel('x')
        ylabel('y')    
    case 5
        msgbox('Konec')
        break;
end %konec switch
end %konec while
close all;
end %konec funkce

function y=vypocet(x)
y=exp(2.*x./(x+3))+sin(4.*x);
end