function msg = qam_mod(seq,mod)
if mod==4%4QAM
for m=1:0.5*length(seq(:))
if(seq(1,(2*m-1:2*m))==[0,0])
msg(m)=-1/sqrt(2)-1/sqrt(2)*i;
elseif(seq(1,(2*m-1:2*m))==[0,1])
msg(m)=-1/sqrt(2)+1/sqrt(2)*i;
elseif(seq(1,(2*m-1:2*m))==[1,1])
msg(m)=1/sqrt(2)+1/sqrt(2)*i;
else
msg(m)=1/sqrt(2)-1/sqrt(2)*i;
end
end
end
if mod==8%8QAM
for m=1:1/3*length(seq(:))
if(seq(1,(3*m-2:3*m))==[0,0,0])
msg(m)=-3+1*i;
elseif(seq(1,(3*m-2:3*m))==[0,0,1])
msg(m)=-3-1*i;
elseif(seq(1,(3*m-2:3*m))==[1,0,1])
msg(m)=3-1*i;
elseif(seq(1,(3*m-2:3*m))==[1,1,1])
msg(m)=1-1*i;
elseif(seq(1,(3*m-2:3*m))==[0,1,1])
msg(m)=-1-1*i;
elseif(seq(1,(3*m-2:3*m))==[0,1,0])
msg(m)=-1+1*i;
elseif(seq(1,(3*m-2:3*m))==[1,1,0])
msg(m)=1+1*i;
else
msg(m)=3+1*i;
end
end
end
if mod==16%16QAM
for m=1:1/4*length(seq(:))
if(seq(1,(4*m-3:4*m))==[0,0,0,0])
msg(m)=(3+3*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[0,0,0,1])
msg(m)=(1+3*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[0,0,1,1])
msg(m)=(-1+3*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[0,0,1,0])
msg(m)=(-3+3*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[0,1,1,0])
msg(m)=(-3+1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[0,1,1,1])
msg(m)=(-1+1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[0,1,0,1])
msg(m)=(1+1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[0,1,0,0])
msg(m)=(3+1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[1,1,0,0])
msg(m)=(3-1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[1,1,0,1])
msg(m)=(1-1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[1,1,1,1])
msg(m)=(-1-1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[1,1,1,0])
msg(m)=(-3-1*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[1,0,1,0])
msg(m)=(-3-3*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[1,0,1,1])
msg(m)=(-1-3*i)/sqrt(10);
elseif(seq(1,(4*m-3:4*m))==[1,0,0,1])
msg(m)=(1-3*i)/sqrt(10);
else
msg(m)=(3-3*i)/sqrt(10);
end
end
end
end
MATLAB调制仿真（BPSK、QPSK、QAM原理及误比特率）
需积分: 27 91 浏览量
2022-11-22
15:23:52
上传
评论 2
收藏 4KB RAR 举报
调制技术.rar （8个子文件） 
调制技术 
main_qpsk_awgn.m 963B qam_mod.m 2KB psk_mod.m 1KB main_bpsk_agwn.m 963B qam_demod.m 850B main_qam_awgn.m 954B main_bpsk_soft_hard.m 1KB psk_demod.m 512B资源评论
