genrect.m

本人编写的一些uwb仿真程序,希望对大家有点用处

%function  genrect
%产生正弦波调制的矩形脉冲
%width 矩形宽度
%points 矩形波采样点数
%f0 正弦波频率
%signal 输出波形，取5倍矩形宽度
%dt 抽样间隔
  
function [signal,dt]=genrect(width,points,f0)

%step1 output evaluation
  dt=width/points;
  signal=zeros(1,5*points);
  signal(2*points:3*points-1)=ones(1,points);
  mod=cos(2.*pi.*f0.*linspace(1,5*width,5*points));
  signal=signal.*mod;

%step2 graphical output
  figure(1)
  time=linspace(-2*width,3*width,5*points);
  p1=plot(time,signal);
  set(p1,'linewidth',[2]);
  axis([-2*width 3*width -1.2 1.2]);
  ax=gca;
  set(ax,'fontsize',12);
  x=xlabel('time [s]');
  set(x,'fontsize',14);
  y=ylabel('amplitude [v]');
  set(y,'fontsize',14);