二进制基带通信系统蒙特卡洛仿真matlab实现(共11页).doc

一clc;clear all;ts=0.0001;fc=25;t=-0.05:ts:0.05;df=0.02; if t=0.1; m=t; elseif t=1&t=1.9&t0.1 ; m=0.1; end c=cos(2*pi*fc*t);m_n=m/max(abs(m);u=m_n*max(abs(m).*c; s=u.*c;f=-10:df:10;subplot(4,1,1);plot(t,u);plot(t,u);title(解调信号);xlabel(t);ylabel(幅度);subplot(4,1,2);plot(f,abs(fftshift(u);title(解调信号频谱);xlabel(t);ylabel(幅度);subplot(4,1,3);plot(t,s);title(已调信号 );xlabel(t);ylabel(幅度);subplot(4,