%Samp2_13
n=-10:10;           %序號序列
x=exp(-n);          %原始信號值序列
subplot(2,1,1),plot(n,x),title('原始信號') %繪制原始信號
line([0 0],ylim)    %繪出y軸以顯示與折疊后函數圖像的比較；ylim函數得到本圖y軸的范圍區間
[y,n]=sigfold(x,n); %將x信號序列進行折疊，得到y信號
subplot(2,1,2),plot(n,y),title('折疊信號') %繪制折疊信號
line([0 0],ylim)    %繪制y軸
xlabel('n')