function data_src=source(fr_length,frame);

data_total=fr_length*frame;

%%%%%%%%%%%%%%%  產生m序列  %%%%%%%%%%%%%%%
iseq=[1 1 1 1 1 1 1 1 1 1];
reg=iseq;
for j=1:data_total
    reg(1)=bitxor(reg(3),reg(10));
    for i=10:-1:2
        reg(i)=reg(i-1);
    end;
    result(j)=reg(1);
end;

for i=1:frame

        data_src(i,1:fr_length)=result(fr_length*(i-1)+1:fr_length*i);
        data_src(i,fr_length+1:fr_length+8)=0;
end