Program Matlab RZ-AMI

Berikut Listing program untuk RZ-AMI :

%RZ-AMI

x=[1 0 1 1 0 0 0 1 1 0];

p1=ones(8,1);

p2=zeros(4,1);

n=length(x);

t=0:1/16:n-1/16;

x(1)=1;

xx=x;

for k=2:n;

    if x(k-1)==0 & x(k)==1;

        xx(k)=-1;

    end

end

p=[p2;p1;p2];

a=p*xx;

d=reshape(a,1,[]);

z=d;

figure(3)

subplot(211)

plot (t,d);title('RZ-AMI')

axis([0 10 -2 2])

grid on

subplot(212)

s=fft(d,1024);

 f=0:1024-1;

plot(f,20*log10(abs(s)))

axis([0 1024 -60 40])

grid on

Berikut keluarannya :