clear all;

n=50;
w1= boxcar(n);
w1=w1';
w2= Bartlett(n);
w2=w2';
w3= hanning(n);
w3=w3';
w4= blackman(n);
w4=w4';
%subplot (2,2,1); stem(1:n,w1); grid; title('Okno Prostokatne');
%subplot (2,2,2); stem(1:n,w2); grid; title('Okno Bartletta');
%subplot (2,2,3); stem(1:n,w3); grid; title('Okno Hanninga');
%subplot (2,2,4); stem(1:n,w4); grid; title('Okno Blackmana');

w0=zeros(1,5*n);

ww1=[w1 w0];
m1=lenght(ww1);
y1=fft(ww1);
wy1=abs(y1);
xin = 1:1:m/10;
subplot (2,2,1); plot(xin,wy1); title (' Widmo Okna Prostokatnego');

ww2=[w2 w0];
m2=lenght(ww2);
y2=fft(ww2);
wy2=abs(y2);
xin = 1:1:m/10;
subplot (2,2,2); plot(xin,wy2); title (' Widmo Okna Bartletta');

ww3=[w3 w0];
m3=lenght(ww3);
y3=fft(ww3);
wy3=abs(y3);
xin = 1:1:m/10;
subplot (2,2,3); plot(xin,wy3); title (' Widmo Okna Hanninga');

ww4=[w4 w0];
m4=lenght(ww4);
y4=fft(ww4);
wy4=abs(y4);
xin = 1:1:m/10;
subplot (2,2,4); plot(xin,wy4); title (' Widmo Okna Blackmana');