
clear all
steadystate_solver_jh2

fig4_a=figure
hold on
set(gca,'FontSize',20)
xlabel('Duration of unemployment (n)')
ylabel('Unemployment Continuation Probability')
title('Full sample')
plot(P(:,1),'-','LineWidth',2,'Color',[0 0 1])
axis([1,24,0,1])
hold off
saveas(fig4_a,'Figure4_a','epsc');

fig4_b=figure
hold on
set(gca,'FontSize',20)
xlabel('Duration of unemployment (n)')
ylabel('Unemployment Continuation Probability')
title('Great Recession')
plot(P(:,2),'-','LineWidth',2,'Color',[1 0 0])
axis([1,24,0,1])
hold off
saveas(fig4_b,'Figure4_b','epsc');