
function s_RC = sRC(alfa, t, N)


s_RC = zeros(1,N+1);              %RC
%%% RC
for n = 1:N+1,
    if abs(t(1,n))<= (1-alfa)/2, 
       s_RC(1,n) = 1;
    end;
    if abs(t(1,n))<= (1+alfa)/2,
        if abs(t(1,n))>= (1-alfa)/2,
           s_RC(1,n)=(cos((pi/4/alfa)*(2*abs(t(1,n))-1+alfa)))^2;
        end;
    end;
end;