%程序设计ASK的一些说明：
%程序设计ASK的一些说明：
%1）在调制时，我人为的将用cos信号来表示一，注意解调时将cos信号变成二进制信号的一码。
%2）在接受端解调的时候，我采用的是非相干解调。
%3解调是先将接受的信号进行整流，然后进行低通滤波器，进行包络解波。
%注意滤波器的设计。
clear all
close all
N=input('input N='); %控制产生N个序列
d=rand(1,N)>=0.5; %随机生成N个1，0序列
bits=[d,zeros(1,7-(length(d)-fix(length(d)/7)*7))];%将在不够指定位数添0,对信号进行7位扩展完成
datastream=[]; %这是信道编码
n=fix(length(bits)/7);
for k=1:n
temp=bits((k-1)*7+1:k*7);
datastream=[datastream,temp,rem(sum(temp),2)];
end %信道编码结束
t=linspace(0,0.001,60); %调制信号
fc=10000;
y1=cos(2*pi*fc*t); %fc为调制频率
result=[]; %信号开始调制
for j=1:length(datastream);
result=[result,datastream(j)*y1]; %信号调制结束
end
figure(1)
plot(1:length(result),result),title('先好调制后的波形'); %输出调制信号的波形，以便于进行与接收端的信号进行比较
receivesignal=awgn(result,30); %这是信号在信道中的高斯白噪声
figure(2)
plot(1:length(receivesignal),receivesignal),title('信号在信道的波形图')%这是信号在信道中的高斯白噪声的波形
signal=abs(receivesignal);
figure(3)
plot(1:length(signal),signal),title('信号整流的波形图')
load num
resignal=filter(Num1,1,signal);
figure(4)
plot(1:length(resignal),resignal),title('低通后的信号')
评论0