% [h] =fir_rc(Fa,Tsym,Alpha,N)
function [b,k,delay] =fir_rc(fa,Tsym,Alpha,N)

if rem(N,2),
   delay = (N-1)/2;
else
   delay = N/2;
end

n = ((0:N-1)-delay)/fa;

ind1 = find(abs(abs(4.*Alpha.*n./Tsym) - 1.0) > sqrt(eps));
if ~isempty(ind1),
	nind = n(ind1);
	b(ind1) =  sinc(2.*nind./Tsym)./fa   ...
		.* cos(2.*pi.*Alpha.*nind./Tsym) ...
		./ (1.0 - (4.*Alpha.*nind./Tsym).^2);
end

ind = 1:length(n);
ind(ind1) = [];
b(ind) = Alpha ./ (2.*fa) .* sin(pi ./ (2.*Alpha));

b = 2.*b./Tsym;
k=0.5*fa*Tsym;