function s_RRC = sRRC(alfa, t, N)


s_RRC = zeros(1,N+1);            

%%% RRC
N1 = N/2;
N2 = N/4;
for n = 1:N+1,
    if t(1,n) ==0, s_RRC(1,n) = 1-alfa+4*alfa/pi;
    elseif abs(t(1,n))==1/4/alfa, s_RRC(1,n) = (alfa/pi/1.414)*((pi-2)*cos(pi/4/alfa)+(pi+2)*sin(pi/4/alfa));
    else s_RRC(1,n) = ((sin((1-alfa)*pi*t(1,n)))/pi/t(1,n)+(4*alfa*cos((1+alfa)*pi*t(1,n)))/pi)/(1-16*alfa*alfa*t(1,n)*t(1,n)); 
    end;
end;