clear all;
clc
Tc=1;
N=63;
tau=-189:189;
for index=1:length(tau),
    if (abs(tau(index))<=Tc),
        Rc(index)=1-(N+1)/(N*Tc)*abs(tau(index));
    else
            Rc(index)=-1/N;
    end;
end;
a=1
plot(tau,Rc);