% Written by:
% -- 
% John L. Weatherwax                2005-08-14
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

clc; 

all_tau = linspace( -6 * pi, 6 * pi, 100 ); 

omega = cos(all_tau); 

inds = find( (all_tau <  -(9/2) * pi) | (all_tau > +(9/2) * pi) );

omega(inds) = 0.0;

figure; plot( all_tau, omega, 'o-' ); 

saveas( gcf, '../../WriteUp/Graphics/Chapter3/prob_2_23_d_plot', 'epsc');