ASK,FSK,PSK仿真误码率对比源码程序 - matlab通信信号

下载频道> 资源分类> matlab源码> 通信信号> ASK,FSK,PSK仿真误码率对比源码程序

标题：ASK,FSK,PSK仿真误码率对比源码程序
分享到：

所属分类: 通信信号资源类型：文件大小: 1.45 KB 上传时间: 2016-01-30 12:26:55 下载次数: 14 资源积分：1分提供者: 源码共享点击下载

内容：
ASK,FSK,PSK仿真误码率对比源码程，程序员在编程的过程中可以参考学习使用，希望对IT程序员有用，此源码程序简单易懂、方便阅读，有很好的学习价值！

clc;

clear;

close all;

n=10000;

b=randint(1,n);

f1=1;f2=2;

t=0:1/30:1-1/30;

%ASK

sa1=sin(2*pi*f1*t);

E1=sum(sa1.^2);

sa1=sa1/sqrt(E1); %unit energy

sa0=0*sin(2*pi*f1*t);

%FSK

sf0=sin(2*pi*f1*t);

E=sum(sf0.^2);

sf0=sf0/sqrt(E);

sf1=sin(2*pi*f2*t);

E=sum(sf1.^2);

sf1=sf1/sqrt(E);

%PSK

sp0=-sin(2*pi*f1*t)/sqrt(E1);

sp1=sin(2*pi*f1*t)/sqrt(E1);

%MODULATION

ask=[];psk=[];fsk=[];

for i=1:n

if b(i)==1

ask=[ask sa1];

psk=[psk sp1];

fsk=[fsk sf1];

else

ask=[ask sa0];

psk=[psk sp0];

fsk=[fsk sf0];

end

figure(1)

subplot(411)

stairs(0:10,[b(1:10) b(10)],'linewidth',1.5)

axis([0 10 -0.5 1.5])

title('Message Bits');grid on

subplot(412)

tb=0:1/30:10-1/30;

plot(tb, ask(1:10*30),'b','linewidth',1.5)

title('ASK Modulation');grid on

subplot(413)

plot(tb, fsk(1:10*30),'r','linewidth',1.5)

title('FSK Modulation');grid on

subplot(414)

plot(tb, psk(1:10*30),'k','linewidth',1.5)

title('PSK Modulation');grid on

xlabel('Time');ylabel('Amplitude')

%AWGN

for snr=0:20

askn=awgn(ask,snr);

pskn=awgn(psk,snr);

fskn=awgn(fsk,snr);

%DETECTION

A=[];F=[];P=[];

for i=1:n

%ASK Detection

if sum(sa1.*askn(1+30*(i-1):30*i))>0.5

A=[A 1];

else

A=[A 0];

end

%FSK Detection

if sum(sf1.*fskn(1+30*(i-1):30*i))>0.5

F=[F 1];

else

F=[F 0];

end

%PSK Detection

if sum(sp1.*pskn(1+30*(i-1):30*i))>0

P=[P 1];

else

P=[P 0];

end

%BER

errA=0;errF=0; errP=0;

for i=1:n

if A(i)==b(i)

errA=errA;

else

errA=errA+1;

end

if F(i)==b(i)

errF=errF;

else

errF=errF+1;

end

if P(i)==b(i)

errP=errP;

else

errP=errP+1;

end

BER_A(snr+1)=errA/n;

BER_F(snr+1)=errF/n;

BER_P(snr+1)=errP/n;

end

figure(2)

subplot(411)

stairs(0:10,[b(1:10) b(10)],'linewidth',1.5)

axis([0 10 -0.5 1.5]);grid on

title('Received signal after AWGN Channel')

subplot(412)

tb=0:1/30:10-1/30;

plot(tb, askn(1:10*30),'b','linewidth',1.5)

title('Received ASK signal');grid on

subplot(413)

plot(tb, fskn(1:10*30),'r','linewidth',1.5)

title('Received FSK signal');grid on

subplot(414)

plot(tb, pskn(1:10*30),'k','linewidth',1.5)

title('Received PSK signal');grid on

figure(3)

semilogy(0:20,BER_A, 'b','linewidth',2)

title('BER Vs SNR')

grid on;

hold on

semilogy(0:20,BER_F,'r','linewidth',2)

semilogy(0:20,BER_P, 'k','linewidth',2)

xlabel('Eo/No(dB)')

ylabel('BER')

hold off

legend('ASK','FSK','PSK');

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

ASK,FSK,PSK仿真误码率对比源码程序/
ASK,FSK,PSK仿真误码率对比源码程序/code/
ASK,FSK,PSK仿真误码率对比源码程序/code/ASK_FSK_PSK.m

关键词：误码率 源码 程序

matlab源码下载排行

回到顶部

友情链接

matlab源码网站源码编程语言网络编程手机通讯编程 KUNAG 官网 KUNAG 电商更多

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

关键词： 误码率 源码 程序

相关推荐

matlab源码下载排行

友情链接

关键词：误码率源码程序