%#4a
na=[-20:70]';
wa=(2*pi)/14;
for i=1:length(na)
    ya(i)=sin(wa*(i)+pi/3);
end
subplot(6,1,1)
stem(na,ya);
title('Lab1-Plot#4a');
xlabel('X-axis');
ylabel('Y-axis');
grid on

%#4b
nb=[-60:60]';
wb=pi/15;
for i=1:length(nb)
    yb(i)=sin(wb*(i)-pi/3);
end
subplot(6,1,2)
stem(nb,yb);
title('Lab1-Plot#4b');
xlabel('X-axis');
ylabel('Y-axis');
grid on

%#4c
nc=[-10:10]';
wc=3*pi;
for i=1:length(nc)
    yc(i)=sin(wc*(i)-pi/2);
end
subplot(6,1,3)
stem(nc,yc);
title('Lab1-Plot#4c');
xlabel('X-axis');
ylabel('Y-axis');
grid on

%4d
nd=[-10:50]';
wd=(2*pi)/sqrt(68);
for i=1:length(nd)
    yd(i)=cos(wd*(i));
end
subplot(6,1,4)
stem(nd,yd);
title('Lab1-Plot#4d');
xlabel('X-axis');
ylabel('Y-axis');
grid on

%4e
ne=[-40:40]';
we1=pi/3;
we2=pi/4;
for i=1:length(ne)
    ye(i)=cos(we1*(i))+2*sin(we2*(i)+we2);
end
subplot(6,1,5)
stem(ne,ye);
title('Lab1-Plot#4e');
xlabel('X-axis');
ylabel('Y-axis');
grid on

%4f
nf=[-40:40]';
wf1=pi/3;
wf2=pi/4;
for i=1:length(nf)
    yf(i)=2*cos(wf1*(i)).*sin(wf2*(i)+wf2);
end
subplot(6,1,6)
stem(nf,yf);
title('Lab1-Plot#4e');
xlabel('X-axis');
ylabel('Y-axis');
grid on

