MSK调制方式误码率源码程序 - matlab通信信号 - 谷速源码
下载频道> 资源分类> matlab源码> 通信信号> MSK调制方式误码率源码程序

标题:MSK调制方式误码率源码程序
分享到:

所属分类: 通信信号 资源类型: 文件大小: 3.25 KB 上传时间: 2016-01-30 12:54:00 下载次数: 7 资源积分:1分 提 供 者: 源码共享 MSK调制方式误码率源码程序
内容:
MSK调制方式误码率源码程序,程序员在编程的过程中可以参考学习使用,希望对IT程序员有用,此源码程序简单易懂、方便阅读,有很好的学习价值!
%%%%%%% MFSK误码 性能分析 %%%%%%%%%%%%%%%%%
MVec = [ 8 16  32 64 128]; % Values of M  (不同的仿真采样率)
EbNoVec = 3:9;  SNRVec=zeros(1,length(EbNoVec));
number_of_errors = zeros(length(MVec),length(EbNoVec));
bit_error_rate1   = zeros(length(MVec),length(EbNoVec));
for idxM = 1:length(MVec)
     
  for idxEbNo = 1:length(EbNoVec)
    
  M=MVec(idxM);   
 k = log2(M);
 
 freqsep=32 ;
 n = k*floor(100000/k);  
 Fs =M*freqsep; nsamp =M ;   
 
  x = randi([0 1],n,1); % Random binary data stream
    msg = bi2de(reshape(x,k,length(x)/k).','left-msb');
txsig = fskmod(msg,M,freqsep,nsamp,Fs); % Modulate.
EbNo =EbNoVec(idxEbNo);
SNR =EbNo+10*log10(k)-10*log10(nsamp);
SNRVec(idxEbNo)=SNR;
msg_rx  = awgn(txsig,SNR,...
    'measured',[],'dB'); % AWGN channel
msg_rrx = fskdemod(msg_rx,M,freqsep,nsamp,Fs);  % Demodulate
 z = de2bi(msg_rrx,k,'left-msb'); % Convert integers to bits.
  % Convert z from a matrix to a vector.
  z = reshape(z.',numel(z),1);  
[number_of_errors(idxM,idxEbNo),bit_error_rate1(idxM,idxEbNo)] = ...
          biterr(x,z)  
 
   %[number_of_errors(idxM,idxEbNo),bit_error_rate(idxM,idxEbNo)] = ...
     %  biterr(msg,msg_rrx)  
          
  end;
 markerchoice1 =   '.xo*sd';
 markerchoice2 =   'bgcmyk';
   figure(1);
   plotsym = [markerchoice1(idxM) markerchoice2(idxM) '-']; % Plotting style for this curve
   semilogy(EbNoVec,bit_error_rate1(idxM,:),plotsym); % Plot one curve.
   drawnow; % Update the plot instead of waiting until the end.
   hold on; % Make sure next iteration does not remove this curve.
  figure(2);
  plotsym = [markerchoice1(idxM) markerchoice2(idxM) '-']; % Plotting style for this curve
   semilogy(SNRVec,bit_error_rate1(idxM,:),plotsym); % Plot one curve.
   drawnow; % Update the plot instead of waiting until the end.
   hold on; % Make sure next iteration does not remove this cur
   
end  % End of loop over M values
figure(1)
title('Performance of MFSK for Varying M ');
xlabel('EbNo (dB)'); ylabel('BER');
 legend( 'M=8','M =16','M =32','M=64','M =128', ...
   'Location','SouthWest')  
figure(2)
title('Performance of MFSK for Varying M ');
xlabel('SNR (dB)'); ylabel('BER');
 legend( 'M=8','M =16','M =32','M=64','M =128', ...
   'Location','SouthWest')  
 
 

文件列表(点击上边下载按钮,如果是垃圾文件请在下面评价差评或者投诉):

关键词: 误码率 源码 方式

Top_arrow
回到顶部
联系方式| 版权声明| 招聘信息| 广告服务| 银行汇款| 法律顾问| 兼职技术| 付款方式| 关于我们|
网站客服网站客服 程序员兼职招聘 程序员兼职招聘
沪ICP备19040327号-3
公安备案号:沪公网安备 31011802003874号
库纳格流体控制系统(上海)有限公司 版权所有
Copyright © 1999-2014, GUSUCODE.COM, All Rights Reserved