close all
nr=300; % nr of samples
figure(1);

subplot(311)
a=-0.98; 
w=randn(nr,1);
y = filter(sqrt(1-a^2),[1 a],w);
figure(1); plot(y,'linewidth',1.4)
set(gca,'fontsize',18,'fontweight','b')
title('a=-0.98')
axis([0 nr -3 3])

subplot(312)
a=-0.7; 
w=randn(nr,1);
y = filter(sqrt(1-a^2),[1 a],w);
figure(1); plot(y,'linewidth',1.4)
set(gca,'fontsize',18,'fontweight','b')
title('a=-0.7')
axis([0 nr -3 3])

subplot(313)
a=0.9; 
w=randn(nr,1);
y = filter(sqrt(1-a^2),[1 a],w);
 plot(y,'linewidth',1.4)
set(gca,'fontsize',18,'fontweight','b')
title('a=0.9')
axis([0 nr -3 3])

