x=-2*pi:4*pi/200:2*pi;
nr=3;
nc=2;
pos=1;
for k=1:nr
    for m=1:nc
        y=sin(k*x).*cos(m*x);
        subplot(nr,nc,pos)
        plot(x,y)
        title(['sin(',num2str(k),'*x)*cos(',num2str(m),'*x)'])
        hline=refline(0,0);
        set(hline,'Color','k')
        pos=pos+1;
    end
end
