预览加载中,请您耐心等待几秒...
1/10
2/10
3/10
4/10
5/10
6/10
7/10
8/10
9/10
10/10

亲,该文档总共17页,到这已经超出免费预览范围,如果喜欢就直接下载吧~

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

实验报告 课程名称:无线网络通信技术 实验项目:无线网络通信技术实验 实验地点:逸夫楼404教室 专业班级:软1121班学号:2011005541 学生姓名:高贝 指导教师:张巍 2014年5月16日 太原理工大学实验报告一 学院名称软件学院专业班级1121实验成绩学生姓名高贝学号2011005541实验日期课程名称无线网络通信技术实验题目实验一四相移相键控(QPSK)调制及解调实验实验目的和要求: 1、掌握QPSK调制解调原理及特性。 2、掌握利用MATLAB编程实现调制及解调的方法。 二、实验内容: 1、利用MATLAB编程实现QPSK调制及解调。 2、观察I、Q两路基带信号的特征及与输入NRZ码的关系。 3、观察I、Q调制解调过程中各信号变化。 三、主要仪器设备 Win732位操作系统笔记本电脑及MATLABR2009a 主要操作方法与实验步骤 在matlab下运行下列代码: 程序代码 %功能QPSK的调制解调,基带信号点数t(限偶数),基波频率w0可设置 clearall; nb=32;%传输的比特数 T=1;%基带信号宽度,也就是基波频率 fc=8/T;%载波频率 ml=2;%调制信号类型的一个标志位(选取2的原因见23行) c=4*nb;%单周期采样点数 delta_T=T/c;%采样间隔 fs=1/delta_T;%采样频率 t=0:delta_T:nb*T-delta_T%限定t的取值范围c*nb N=length(t);%采样数 %%%%%%%%%%%%%%%%%%%调制部分 %基带信号的产生 data=fix(2*rand(1,nb));%调用一个随机函数(0or1),输出到一个1*100的矩阵 datanrz=data.*2-1;%变成极性码 fori=1:nb data1((i-1)/delta_T+1:i/delta_T)=datanrz(i);%将极性码变成对应的波形信号 end %将基带信号变换成对应波形信号 fori=1:nb data0((i-1)/delta_T+1:i/delta_T)=data(i);%将基带信号变成对应的波形信号 end %串并转换,将奇偶位数据分开 idata=datanrz(1:ml:(nb-1));%将奇偶位分开,因此间隔m1为2 qdata=datanrz(2:ml:nb); %QPSK信号的调制 fori=1:nb/2 ich(2*((i-1)/delta_T+1):2*(i/delta_T))=idata(i); end forii=1:N/T a(ii)=(1/sqrt(2))*cos(2*pi*fc*t(ii)); end idata1=ich.*a;%奇数位数据与余弦函数相乘,得到一路的调制信号 forj=1:nb/2 qch(2*((j-1)/delta_T+1):2*(j/delta_T))=qdata(j); end forjj=1:N/T b(jj)=(1/sqrt(2))*sin(2*pi*fc*t(jj)); end qdata1=qch.*b;%偶数位数据与余弦函数相乘,得到另一路的调制信号 st=idata1-qdata1; %%%%%%%%%%%%%%%%%%%%%%%%信道中 SNR=0;%信噪比 stn=awgn(st,SNR); %%%%%%%%%%%%%%%%%%%%%%%%解调%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%设计滤波器%%%%%%%% [B,A]=butter(3,0.01,'low'); [h1,w]=freqz(B,A); %%%%%%%%%%%%%%%%%%%%%%%%%%%%相干解调 ist=stn.*a; p=length(ist) qst=stn.*(-b); %%%%%%%%%%%%%%%%%%%%滤波 istl=filter(B,A,ist); qstl=filter(B,A,qst); %%%%%%%%%%%%%%%%%%%%%%%%%抽样判决%%%%%%%%%% fori=1:nb/2 ifistl(2*(p/nb)*(i-1)+(1*(p/nb)))>=0 in(i)=1; elsein(i)=0; end ifqstl(2*(p/nb)*(i-1)+(1*(p/nb)))>=0 qn(i)=1; elseqn(i)=0; end end %%%%%%%%%%%%%%%%%并串转换 fori=1:nb/2 y(2*i-1)=in(i); y(2*i)=qn(i); end fori=1:nb yy((i-1)/delta_T+1:i/delta_T)=y(i); end data y N figure; subplo