function y=recfilter(alpha,x)
T=1;
N=31;
n=-(N-1)/2:(N-1)/2;
for i=1:length(n),
g_t(i)=0;
for m=-(N-1)/2:(N-1)/2,
g_t(i)=g_t(i)+sqrt(xrc(4*m/(N*T),alpha,T))*exp(j*2*pi*m*n(i)/N);
end;
end;
g_t=real(g_t);
for i=1:length(x),
y(i)=0;
if i for m=1:i
if(i>(m-1))
y(i)=y(i)+g_t(m)*x(i-m+1);
end;
end;
else
for m=1:N
y(i)=y(i)+g_t(m)*x(i-m+1);
end;
end;
end;