function Figure4_6d

close all;

D=0.0001;          % 10^{-4} mm^2 sec^{-1}
L=1;

y=[0:0.005:L];
tau1=(2*L*y-y.*y)/(2*D)/60;
tau2=(L*y-y.*y)/(2*D)/60;

figure(1);
set(gca,'Fontsize',18);
plot(y,tau1,'Linewidth',3);
hold on;
plot(y,tau2,'--','Linewidth',3);
xlabel('$x$ [mm]','interpreter','latex');
ylabel('time to adsorb a molecule [min]','interpreter','latex');
hh=legend('$\tau(y)$','$\tau_a(y)$');
set(hh,'interpreter','latex','Fontsize',18,'location','northwest');
set(gca,'Fontsize',18);



