%File :c5_rcosdemo.m

k=10;                          %samples per symbol
m=4;                           %delay
beta=0.32;                     %bandwidth factor
h=rcos(k,m,beta);              %impulse response
figure;
plot(h)
in=zeros(1,101);  in(11)=1;    %input
out=conv(in,h);                %output
t=0:0.1:10;                    %time vector for plot
figure;
stem(t,out(1:101),'.')         %polt output
grid
xlabel('Time')
ylabel('Amplitude')

%End of script file.