clc
close all;
n=0:15;
p=8;q=2;
x=exp(-(n-p).^2/q);
figure(1);
subplot(3,1,1);
stem(n,x);
title('exp(-(n-p)^2/q),p=8,q=2');
xk1=fft(x,16);
q=4;
x=exp(-(n-p).^2/q);
subplot(3,1,2);
xk2=fft(x,16);
stem(n,x);
title('exp(-(n-p)^2/q),p=8,q=4');
q=8;
x=exp(-(n-p).^2/q);
xk3=fft(x,16);
subplot(3,1,3);
stem(n,x);
title('exp(-(n-p)^2/q),p=8,q=8');%时域特性