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

close all; drawnow; 
clc; clear; 

%p = linspace(1e-2,1,100);
p = linspace(1e-1,1,100);
q = 1-p; 

% 
rat = (1+q) ./ ( p .* (1+3*p.*q) ); 
figure; plot( p, rat, '-o' ); 
xlabel( 'p' ); ylabel('ratio'); grid on; 
saveas( gcf, '../../WriteUp/Graphics/Chapter6/chap_6_prob_9.eps', 'epsc' );