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

close all; 

S  = linspace(7.0,12.0)'; 
PI = max([S-10.5,zeros(size(S))],[],2) + max([9.50-S,zeros(size(S))],[],2); 
figure; plot( S, PI, 'o' ); 
xlabel('stock price at expiry'); ylabel('portfolio profit'); 
%saveas( gcf, '../WriteUp/Graphics/prob_3_1.eps' );