function[imp,impw]=sqrc_freq_nosinc(R,beta,nsamples,nsymbols)
n=nsamples*nsymbols;fs=R*nsamples;df=fs/n;
a=((1-beta)*0.5*R);b=((1+beta)*0.5*R);
H=(zeros(1,n));
for k=1:(n/2)+1
f=(k-1)*df;
if(beta==0)
 beta=0.0000001;
 end
 H(k)=cos((pi/(2*beta*R))*(f-a));
 if f<a
H(k)=1;
end
if f>=b
 H(k)=0;
 end
end
H((n/2)+2:1:n)=H((n/2):-1:2);
[impc,time]=linear_fft(H,n,df);
imp=real(impc);
window=hanning(n)';
impw=imp.*window;
yy=sum(impw.^2);
impw=impw(yy^0.5);
impw=impw/sqrt(nsamples);
yy=sum(imp.^2);
imp=imp/(yy^0.5);
imp=imp/sqrt(nsamples);