fsamp=8000;
fcuts=[1000 1300 2210 2410];
mags=[0 1 0];
devs=[0.01 0.05 0.01];
[n,wn,beta,ftype]=kaiserord(fcuts,mags,devs,fsamp);
n=n+rem(n,2);
hh=fir1(n,wn,ftype,kaiser(n+1,beta),'noscale');
[H,f]=freqz(hh,1,1024,fsamp);
plot(f,abs(H));
grid on