实验三 离散傅里叶变换(2)

五 实验报告要求

1、简述实验目的和实验原理；

2、编程实现实验内容，要求附上详细的源程序和清晰的截图； 3、总结实验中的主要结论。

作业三 离散傅里叶变换

~~题1：求周期序列x(n)?R4(n)，周期分别为N=16 、N=32和N=64时的X(k)。 题2：

~

题3：

题1： clc;

close all; clear all;

l=4;N1=16;N2=32;N3=64; xn1=[ones(1,l),zeros(1,N1-l)]; xn2=[ones(1,l),zeros(1,N2-l)]; xn3=[ones(1,l),zeros(1,N3-l)]; n1=0:N1-1; n2=0:N2-1; n3=0:N3-1; xk1=fft(xn1,N1); xk2=fft(xn2,N2); xk3=fft(xn3,N3); magxk1=abs(xk1); magxk2=abs(xk2); magxk3=abs(xk3); k1=[-N1/2:N1/2]; k2=[-N2/2-8:N2/2+8]; k3=[-N3/2-18:N3/2+18];

magxk11=abs([xk1(N1/2+1:N1),xk1(1:N1/2+1)]); magxk22=abs([xk2(N2/2-7:N2),xk2(1:N2/2+9)]); magxk33=abs([xk3(N3/2-17:N3),xk3(1:N3/2+19)]); subplot(3,3,1);

stem(n1,xn1,'.');title('SQ WAVE:l=4,n=16'); subplot(3,3,2);

stem(n2,xn2,'.');title('SQ WAVE:l=4,n=32'); subplot(3,3,3);

stem(n3,xn3,'.');title('SQ WAVE:l=4,n=64'); subplot(3,3,4);

stem(n1,magxk1,'.');xlabel('(a)');

subplot(3,3,5);

stem(n2,magxk2,'.');xlabel('(b)'); subplot(3,3,6);

stem(n3,magxk3,'.');xlabel('(c)'); subplot(3,3,7);

stem(k1,magxk11,'.');xlabel('(d)'); subplot(3,3,8);

stem(k2,magxk22,'.');xlabel('(e)'); subplot(3,3,9);

stem(k3,magxk33,'.');xlabel('(f)');

程序二：

n=[0:1:99];y=2*sin(0.48*pi*n)+cos(0.52*pi*n); subplot(2,1,1);stem(n,y);

title('signal x(n),0<=n<=99');xlabel('n'); axis([0,100,-2.5,2.5]);

Y=fft(y);magY=abs(Y(1:1:51)); k=0:1:50;w=2*pi/100*k;

subplot(2,1,2);stem(w/pi,magY); title('samples of DTFTM agnitude'); xlabel('frequency in pi units'); Axis([0,1.4,0,100]);

程序三：

fn=[3 2 1 0 1 2 3];N=7;K=[0:1:6]; FK=fft(fn,N); magFK=abs(FK);

angFK=angle(FK).*180./pi; subplot(2,1,1);stem(K,magFK); title('振幅部分');ylabel('振幅'); subplot(2,1,2);stem(K,angFK);

xlabel('K');title('相位部分');ylabel('相位');