function [] = prob_13_11_b()
% 
% Written by:
% -- 
% John L. Weatherwax                2006-08-28
% 
% email: wax@alum.mit.edu
% 
% Please send comments and especially bug reports to the
% above email address.
% 
%-----

close all; 

% normalized coordinates:
%
L = 1; 

x = linspace( 0, L ).'; 

y1 = min( [ x, L-x ], [], 2 ); 
y2 = 0.25*max( [ x, L-x ], [], 2 ); 

figure; 
h1 = plot( x, y1, '-ro' ); hold on; 
h2 = plot( x, y2, '-bx' ); 
legend( [ h1, h2 ], 'min(x,L-x)', 'max(x,L-x)/4' ); 

%axis( [ 0 1 0 1.25 ] ); 
xlabel( 'x (unitless)' ); ylabel( '' ); grid on; 
saveas( gcf, '../WriteUp/Graphics/chap_5_prob_11.eps', 'psc2' );