%例程7－20  m序列的線性移位寄存器

function [seq]=m_seq(connections)
%connections為移位寄存器連接關系
%connections=[0 1 0 0 1]
m=length(connections);
L=2^m-1;                                  %移位寄存器長度
registers=[zeros(1,m-1) 1];                    %寄存器初始值
seq(1)=registers(m);                          %序列第一位
for i=2:L
    temp=0;
    for j=1:m
        temp=temp+connections(j)*registers(j);
    end
    new_reg_cont(1)=mod(temp,2);
    for k=2:m
        new_reg_cont(k)=registers(k-1);
    end
    registers=new_reg_cont;                  %當前寄存器內容
    seq(i)=registers(m);                      %序列下一位
end