通信原理仿真实验系统设计与实现 第6页
t0=2; %信号持续时间
ts=0.001; %抽样时间间隔
fc=100; %载波频率
fs=1/ts;
df=0.3; %频率分辨力
t=[-t0/2:ts:t0/2]; %定义时间序列
%以下三句为定义信号序列
x=sin(200*t);
m=x./(200*t);
m(1001)=1; %避免产生无穷大的值
c=cos(2*pi*fc.*t); %载波
u=m.*c; %抑制载波调制
[M,m,df1]=fftseq(m,ts,df); %付里叶变换
M=M/fs;
[U,u,df1]=fftseq(m,ts,df);
U=U/fs; %频率压缩
f=[0:df1:df1*(length(m)-1)]-fs/2;
clf
subplot(4,2,1)
plot(t,m(1:length(t))) %作出未调信号的波形
axis([-0.4,0.4,-0.5,1.1])
xlabel('时间'); title('未调信号')
subplot(4,2,3)
plot(t,c(1:length(t))) %作出载波的波形
axis([-0.1,0.1,-1.5,1.5]);xlabel('时间')
title('载波');
%pause;
subplot(4,2,2) %作出已调信号的波形
plot(t,u(1:length(t)))
axis([-0.2,0.2,-1,1.2]);
xlabel('时间')
title('已调信号');
%pause;
subplot(4,1,3) %作出未调信号的频谱
plot(f,abs(fftshift(M)))
xlabel('频率'); title('未调信号的频谱')
%pause;
subplot(4,1,4) %作出已调信号的频谱
plot(f,abs(fftshift(U)))
title('已调信号的频谱'); xlabel('频率')
6.4 仿真结果
本例的仿真结果如图 6 4所示：
图 6 4 仿真结果
7 系统的初步完成、调试改进和不足
系统界面设计及完成之后，整个系统算是初步完成，经过调试各项功能基本都能正确实现，但是考虑由于各章节都按课程提供的例题进行仿真，因此想到是否可以对其中的参数进行改变，而得到其他的结果。但是由于本文所采取的VB和MATLAB的接口方法的限制，对此造成了一定的困难。所以目前本文只完成了对一个例题的实现，即第一节中平均信息量的计算。其界面如图 7 1显示。
图 7 1 平均信息量计算界面
本道例题是通过提供离散信息源的个数及其概率分布，从而计算该信源的平均信息量，因此关键的参数为信息源的定义。
所以本例要解决的主要问题就是如何从外界接收信息源的定义并通过VB传递给MATLAB。添加了一个文本框Text2，Text1用于显示左边的文本说明。通过文本框的TEXT方法将用户信息传递给VB，既然可以将变量传递给VB，那么从VB传递给MATLAB只需用到Execute方法即可。只需添加语句:Matlab.Execute( Text2.Text)来完成用户对信息源的定义。
其中“Text2.Text”为用户文本框中输入的内容，即用户如果在文本框中输入的是“message([0.1,0.9],2)”，单击仿真按扭后即相当于在MATLAB命令行中添加了“message([0.1,0.9],2)”这句，即可以在MATLAB中运行此句，同时显示相应的计算结果于标签Label1中。 命令按扭下的代码如下：
Dim matlab As Object
Private Sub Command1_Click()
Set matlab = CreateObject("Matlab.Application") '引用MATLAB对象
Call matlab.MinimizeCommandWindow '命令行窗口最小化
Label2.Caption = matlab.Execute(Text1.Text) '调用message.m文件
End Sub
在调试时为了保证程序的运行可以在其后加入前文介绍的出错函数，以便检查用户在文本框中的输入时是否严格按照左边的说明填写，以便运行时不出错。
至于其它的例题，仅能看到特定例题的仿真结果，这也是此次设计不足之处。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
通信原理仿真实验系统设计与实现 第6页下载如图片无法显示或论文不完整，请联系qq752018766
