pam.m

clear all;clc;
t0=1;ts=0.001;ts1=0.01;
ts2=0.0005;
fs=1/ts;fs1=1/ts1;fs2=1/ts2;
df=0.5;
t=[-t0/2:ts:t0/2];

t2=[-t0/2:ts2:t0/2];
x2=sin（200*t2）;
m2=x2./（200*t2）;
w2=t0/（2*ts2）+1;
m2（w2）=1;
%m2=m2.*m2;
[M2mn2d