1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| function y= NRZUNIPOLAIRE(M)
%code NRZ UNIPOLAIRE.
%Example:
%h=[1 0 0 1 1 0 1 0 1 0];
%UNRZ(h)
clf;
n=1;
l=length(M);
M(l+1)=1;
while n<=length(M)-1;
t=n-1:0.001:n;
if M(n) == 0
if M(n+1)==0
y=(t>n);
else
y=(t==n);
end
d=plot(t,y);grid on;
title('NRZ UNIPOLAIRE');
set(d,'LineWidth',2.5);
hold on;
axis([0 length(M)-1 -2 2]);
disp('zero');
else
if M(n+1)==0
y=(t<n)-0*(t==n);
else
y=(t<n)+1*(t==n);
end
d=plot(t,y);grid on;
title('NRZ UNIPOLAIRE');
set(d,'LineWidth',2.5);
hold on;
axis([0 length(M)-1 -2 2]);
disp('one');
end
n=n+1;
%pause;
end |