% 
% 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.
% 
%-----

p = 18/38;
q = 1-p; 

% Part (a): 
p + q*( p^3 + q*p^3 )