% plot of critical curve for propagation failure
% curve 1: discrete bistable

set(0,                           ...
   'defaultaxesfontsize', 20,   ...
   'defaultaxeslinewidth', 1.2, ...
   'defaultlinelinewidth', 2.0, ...
   'defaultpatchlinewidth', 0.7); 

cmykflg=1;
%if cmykflg=1, this code will make cmyk figure files
%cmykflg = 1;

a = [0:.01:1];
f = a.*(1-a)./(2*a-1).^2;

figure(1)
plot(a,f,'linewidth',2)
xlabel('\alpha','fontsize',24)
ylabel('d','fontsize',20)
text(.075,5,'propagation','fontsize',20)
text(.67,5,'propagation','fontsize',20)
text(.31,0.8,'propagation failure','fontsize',20)
axis([0 1 0 10])

 if(cmykflg==1)
  print('../../figs_c/chapt_8/discr_fail_plt','-deps','-cmyk')
   end 

