www.pudn.com > estimate-ar.rar > p503.m

%program p503 
var=sqrt(1/exp(1.0)); 
v=var*randn(1,1000); 
n=1:1000; 
w0=1.4*pi; 
xn=exp(j*pi*n-j*pi)+exp(j*w0*n-j*0.7*pi)+v; 
plot(n,xn); 
xlabel('n'); 
title('x(n)=exp(j*pi*n-j*pi)+ exp(jwn-j*0.7*pi)+v(n)');