random_binary.m

来自「QPSK系统在无线通信信道中的仿真,通过对有若干条（大于2条）路径的无线多径衰落」· M 代码 · 共 10 行

function [x,bits]=random_binary(nbits,nsamples)
x=zeros(1,nbits*nsamples);
bits=round(rand(1,nbits));
for m=1:nbits
    for n=1:nsamples
        index=(m-1)*nsamples+n;
        x(1,index)=(-1)^bits(m);
    end
end