x=-4:8/100:4;
for n=1:4
    f=exp(-x/n).*sin(x).*cos(x);
    if n==2
        subplot(3,2,3)
        plot(x,f)
        title([ 'exp(-x/' , num2str(n) , ').*sin(x).*cos(x)'])
    elseif n==3
        subplot(3,2,2)
        plot(x,f)
        title([ 'exp(-x/' , num2str(n) , ').*sin(x).*cos(x)'])
    else
        subplot(3,2,n)
        plot(x,f)
        title([ 'exp(-x/' , num2str(n) , ').*sin(x).*cos(x)'])        
    end
end
n=5;
f=exp(-x/n).*sin(x).*cos(x);
subplot(3,2,[n,n+1])
plot(x,f)
title([ 'exp(-x/' , num2str(n) , ').*sin(x).*cos(x)'])


