e0643.m

来自「《MATLAB 7.X程序设计》-王建卫-源代码及习题答案」· M 代码 · 共 4 行

t=(0:127)/128*2*pi;r=ones(size(t));
x=cos(t);y=sin(t);f=abs(fft(ones(10,1),128));r=ones(size(t))+f';
stem3(x,y,f','d','filled')