%例程7－17  雙極性歸零碼
%雙極性歸零碼的MATLAB程序實現如下：

function y=drz(x)                        %x為二進制序列，y為編碼輸出
grid=100;
t=0:1/grid:length(x);                      %時間序列
for i=1:length(x)                         %編碼過程
    if x(i)==1
        for j=1:grid/2
            y(grid/2*(2*i-2)+j)=1;
            y(grid/2*(2*i-1)+j)=0;
        end
    else
        for j=1:grid/2
            y(grid/2*(2*i-2)+j)=-1;
            y(grid/2*(2*i-1)+j)=0;
        end
    end
end
y=[y,x(i)];                               %添加最后一位
plot(t,y);
axis([0 length(x) -1.1 1.1]);
title('雙極性歸零碼');