close all;clear
N = 30;
n = [0:N-1].';

for beta=fliplr([0 1.33 4 5 7])
    w = kaiser(N,beta);
    figure
    subplot(3,1,1);stem(n,w);axis tight
    [H,f]=freqz(w,1,256,1);
    subplot(3,1,2);plot(f,abs(H));axis tight
    subplot(3,1,3);plot(f,20*log10(abs(H)/max(abs(H))));axis tight
end