M-PSK.rar_PSK_VHDL and psk_psk vhdl_psk解调

function[pb,ps]=cm_sm32(snr_in_dB) N=10000; E=1; snr=10^(snr_in_dB/10); sgma=sqrt(E/(3*2*snr)); s000=[1 0]; s001=[cos(pi/4) sin(pi/4)]; s011=[0 1]; s010=[cos(3*pi/4) sin(3*pi/4)]; s110=[-1 0]; s111=[cos(5*pi/4) sin(5*pi/4)]; s101=[0 -1]; s100=[cos(7*pi/4) sin(7*pi/4)]; for i=1:N, temp=rand; if(temp<0.125), dsource1(i)=0; dsource2(i)=0; dsource3(i)=0; elseif(temp<0.25), dsource1(i)=0; dsource2(i)=0; dsource3(i)=1; elseif(temp<0.375), dsource1(i)=0; dsource2(i)=1; dsource3(i)=0; elseif(temp<0.5), dsource1(i)=0; dsource2(i)=1; dsource3(i)=1; elseif(temp<0.625), dsource1(i)=1; dsource2(i)=0; dsource3(i)=0; elseif(temp<0.75), dsource1(i)=1; dsource2(i)=0; dsource3(i)=1; elseif(temp<0.875), dsource1(i)=1; dsource2(i)=1; dsource3(i)=0; else dsource1(i)=1; dsource2(i)=1; dsource3(i)=1; end; end; numofsymbolerror=0; numofbiterror=0; for i=1:N, n(1)=gngauss(sgma); n(2)=gngauss(sgma); if((dsource1(i)==0)&(dsource2(i)==0)&(dsource3(i)==0)), r=s000+n; elseif((dsource1(i)==0)&(dsource2(i)==0)&(dsource3(i)==1)), r=s001+n; elseif((dsource1(i)==0)&(dsource2(i)==1)&(dsource3(i)==0)), r=s010+n; elseif((dsource1(i)==0)&(dsource2(i)==1)&(dsource3(i)==1)), r=s011+n; elseif((dsource1(i)==1)&(dsource2(i)==0)&(dsource3(i)==0)), r=s100+n; elseif((dsource1(i)==1)&(dsource2(i)==0)&(dsource3(i)==1)), r=s101+n; elseif((dsource1(i)==1)&(dsource2(i)==1)&(dsource3(i)==0)), r=s110+n; else r=s111+n; end; c000=dot(r,s000); c001=dot(r,s001); c010=dot(r,s010); c011=dot(r,s011); c100=dot(r,s100); c101=dot(r,s101); c110=dot(r,s110); c111=dot(r,s111); c_max=max([c000 c001 c010 c011 c100 c101 c110 c111]); if(c000==c_max), decis1=0;decis2=0;decis3=0; elseif(c001==c_max), decis1=0;decis2=0;decis3=1; elseif(c010==c_max), decis1=0;decis2=1;decis3=0; elseif(c011==c_max), decis1=0;decis2=1;decis3=1; elseif(c100==c_max), decis1=1;decis2=0;decis3=0; elseif(c101==c_max), decis1=1;decis2=0;decis3=1; elseif(c110==c_max), decis1=1;decis2=1;decis3=0; else decis1=1;decis2=1;decis3=1; end; symbolerror=0; if(decis1~=dsource1(i)), numofbiterror=numofbiterror+1; symbolerror=1; end; if(decis2~=dsource2(i)), numofbiterror=numofbiterror+1; symbolerror=1; end; if(decis3~=dsource3(i)), numofbiterror=numofbiterror+1; symbolerror=1; end; if(symbolerror==1), numofsymbolerror=numofsymbolerror+1; end; end; ps=numofsymbolerror/N; pb=numofbiterror/(3*N);