% call_caiyang1(haxes4) 在頻域繪制采樣脈沖
function []=call_caiyang1(h)
fs=get(gcbo,'string');
fs=str2num(fs);
axes(h);hold off
fs=fs/1000;
n=floor(1/fs);
for i=0:n
    f1=i*fs;
    f2=-i*fs;
    plot([f1,f1],[0,1]);hold on
    plot([f2,f2],[0,1]);hold on
    axis([-1,1,0,1.5]);pause(0.1);
end