j=sqrt(-1);
switch Mod
case 2
s = (-1).^(randn(1,nSeq)>0) + j*(-1).^(randn(1,nSeq)>0); % qpsk
case 1
s = (-1).^(randn(1,nSeq)>0); %bpsk
end
s = s';
d(:,repeat)=s;
j=sqrt(-1);
switch Mod
case 2
s = (-1).^(randn(1,nSeq)>0) + j*(-1).^(randn(1,nSeq)>0); % qpsk
case 1
s = (-1).^(randn(1,nSeq)>0); %bpsk
end
s = s';
d(:,repeat)=s;