function []=plot_Exp_Overview(slip, fric_coeff, expName, slip_maxDyn, fric_coeffRunIn, holds, holdTimes, slip_minStat, slip_maxStat, healing, healing_err, fric_error)
% plot fric coeff vs slip with the values of muDyn and muStat as picked

expName = split(expName,'/');
expName = expName{3};
fileName = strcat('../3_Figures/Fig_ExpOverview_',expName,'.pdf');

%% - def font and font size
fsize = 14;
fsize2 = 9;
lwidth = 1.4;

%% Total overview figure
fh = figure;
fh.Position = [100 100 800 800];

%% - Velocity steps
if expName(1) == 'I'
else
ind = find(slip > slip_maxDyn + 2500,1);
slip_vs = slip(1:ind);
fric_vs = fric_coeff(1:ind);
fric_vs = fric_vs(slip_vs > slip_maxDyn-500);
slip_vs = slip_vs(slip_vs > slip_maxDyn-500);

subplot(3,2,4)
plot(slip_vs/1000, fric_vs,'k'); hold on;
xlim([slip_maxDyn-500 slip_maxDyn + 2500]/1000)
xlab = xlabel('Slip, $$\delta$$ [mm]');
ylab = ylabel('$$\mu^*$$ [-]');
set(xlab,'Interpreter','latex','fontsize',fsize)
set(ylab,'Interpreter','latex','fontsize',fsize)
set(gca,'fontsize',fsize) 
set(fh, 'color', 'white')
set(gca, 'Box', 'on' );
% avg_f = round(mean(fric_vs)/.05)*.05;
avg_f = round(mean(fric_vs),2);
ylim([avg_f - .08 avg_f + .08]);
vs_y = ylim;
yticks([avg_f - .05 avg_f avg_f + 0.05])
vs_x = xlim;

fric_vs2 = fric_vs(slip_vs > slip_maxDyn);
slip_vs2 = slip_vs(slip_vs > slip_maxDyn);
p = polyfit(slip_vs2,fric_vs2,1);

shiftdown = (vs_y(2) - vs_y(1))*.42;
shiftup = (vs_y(2) - vs_y(1))*.23;
fup = 2.2;
fdown = 1.3;

txt1 = text((slip_vs(1)+50)/1000,vs_y(2) - .1*(vs_y(2) - vs_y(1)),'10 $$\frac{\mu \mathrm{m}}{\mathrm{sec}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize2)
drawbrace([(slip_vs(1)+0)/1000 vs_y(2) - .3*(vs_y(2) - vs_y(1))], [(slip_vs(1)+500)/1000 vs_y(2) - .3*(vs_y(2) - vs_y(1))], 10, 0, 0, 'Color', 'k');

y = fric_vs(1)-shiftdown + p(1)*500;
txt1 = text((slip_vs(1)+500)/1000,vs_y(1) + .1*(vs_y(2) - vs_y(1)),'3 $$\frac{\mu \mathrm{m}}{\mathrm{sec}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize2)
drawbrace([(slip_vs(1)+500)/1000 vs_y(1) + .2*(vs_y(2) - vs_y(1))], [(slip_vs(1)+1000)/1000 vs_y(1) + .2*(vs_y(2) - vs_y(1))], 10, 0 , 1, 'Color', 'k');

txt1 = text((slip_vs(1)+1000)/1000,vs_y(2) - .1*(vs_y(2) - vs_y(1)),'10 $$\frac{\mu \mathrm{m}}{\mathrm{sec}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize2)
drawbrace([(slip_vs(1)+1000)/1000 vs_y(2) - .3*(vs_y(2) - vs_y(1))], [(slip_vs(1)+1500)/1000 vs_y(2) - .3*(vs_y(2) - vs_y(1))], 10, 0 ,0 , 'Color', 'k');

txt1 = text((slip_vs(1)+1500)/1000,vs_y(1) + .1*(vs_y(2) - vs_y(1)),'30 $$\frac{\mu \mathrm{m}}{\mathrm{sec}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize2)
drawbrace([(slip_vs(1)+1500)/1000 vs_y(1) + .2*(vs_y(2) - vs_y(1))], [(slip_vs(1)+2000)/1000 vs_y(1) + .2*(vs_y(2) - vs_y(1))], 10, 0 , 1, 'Color', 'k');

txt1 = text((slip_vs(1)+2000)/1000,vs_y(2) - .1*(vs_y(2) - vs_y(1)),'100 $$\frac{\mu \mathrm{m}}{\mathrm{sec}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize2)
drawbrace([(slip_vs(1)+2000)/1000 vs_y(2) - .3*(vs_y(2) - vs_y(1))], [(slip_vs(1)+2500)/1000 vs_y(2) - .3*(vs_y(2) - vs_y(1))], 10, 0 , 0, 'Color', 'k');

txt1 = text((slip_vs(1)+2450)/1000,vs_y(1) + .1*(vs_y(2) - vs_y(1)),'300 $$\frac{\mu \mathrm{m}}{\mathrm{sec}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize2)
drawbrace([(slip_vs(1)+2500)/1000 vs_y(1) + .2*(vs_y(2) - vs_y(1))], [(slip_vs(1)+3000)/1000 vs_y(1) + .2*(vs_y(2) - vs_y(1))], 10, 0 , 1, 'Color', 'k');
end

%% - Slide hold slides
ind = find(slip > holds(end) + 500,1);
fric_coeff = fric_coeff(1:ind);
disp(['Last value of slip is ',num2str(slip(end)),' mu m']);
slip = slip(1:ind);
slip_shs = slip(slip < holds(end) + 500);
fric_shs = fric_coeff(slip < holds(end) + 500);
fric_shs = fric_shs(slip_shs > holds(1) - 400);
slip_shs = slip_shs(slip_shs > holds(1) - 400);

subplot(3,2,5)
plot(slip_shs/1000, fric_shs,'k'); hold on;
xlim([holds(1) - 400 holds(end) + 500]/1000)
xlab = xlabel('Slip, $$\delta$$ [mm]');
ylab = ylabel('$$\mu^*$$ [-]');
set(xlab,'Interpreter','latex','fontsize',fsize)
set(ylab,'Interpreter','latex','fontsize',fsize)
set(gca,'fontsize',fsize) 
set(fh, 'color', 'white')
set(gca, 'Box', 'on' );
% min_f = round(min(fric_shs)/.05)*.05;
mean_f = round(min(mean([healing(:,2) healing(:,4)],2)),2);
% ylim([min_f - .05 min_f + .15]);
ylim([mean_f - .1 mean_f + .1])
shs_y = ylim;
yticks([mean_f - 0.08 mean_f mean_f + 0.08])
shs_x = xlim;
shiftdown = (shs_y(2) - shs_y(1))*.05;

txt1 = text((holds(1)-80)/1000,min(fric_shs(find(slip_shs>holds(1),1):find(slip_shs>holds(1)+200,1)))-shiftdown,[num2str(holdTimes(1)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

txt1 = text((holds(2)-80)/1000,min(fric_shs(find(slip_shs>holds(2),1):find(slip_shs>holds(2)+200,1)))-shiftdown,[num2str(holdTimes(2)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

txt1 = text((holds(3)-120)/1000,min(fric_shs(find(slip_shs>holds(3),1):find(slip_shs>holds(3)+200,1)))-shiftdown,[num2str(holdTimes(3)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

txt1 = text((holds(4)-120)/1000,min(fric_shs(find(slip_shs>holds(4),1):find(slip_shs>holds(4)+200,1)))-shiftdown,[num2str(holdTimes(4)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

txt1 = text((holds(5)-150)/1000,min(fric_shs(find(slip_shs>holds(5),1):find(slip_shs>holds(5)+200,1)))-shiftdown,[num2str(holdTimes(5)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

txt1 = text((holds(6)-150)/1000,min(fric_shs(find(slip_shs>holds(6),1):find(slip_shs>holds(6)+200,1)))-shiftdown,[num2str(holdTimes(6)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

txt1 = text((holds(7)-240)/1000,min(fric_shs(find(slip_shs>holds(7),1):find(slip_shs>holds(7)+200,1)))-shiftdown,[num2str(holdTimes(7)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

txt1 = text((holds(8)-200)/1000,min(fric_shs(find(slip_shs>holds(8),1):find(slip_shs>holds(8)+200,1)))-shiftdown,[num2str(holdTimes(8)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize2)

%% - Overview
subplot(3,2,[1,2])
hold on
A = plot(slip/1000, fric_coeff,'k','LineWidth',lwidth); hold on;
% B = plot([0 2500]/1000, [fric_coeffRunIn(1) fric_coeffRunIn(1)], '-','LineWidth',lwidth,'Color','b');
% C = plot([(slip_maxDyn-1500) slip_maxDyn]/1000, [fric_coeffRunIn(3) fric_coeffRunIn(3)],'-','LineWidth',lwidth,'Color','c');
% plot([vs_x(1) vs_x(2) vs_x(2) vs_x(1) vs_x(1)],[vs_y(1) vs_y(1) vs_y(2) vs_y(2) vs_y(1)],'k--','LineWidth',lwidth)
% plot([shs_x(1) shs_x(2) shs_x(2) shs_x(1) shs_x(1)],[shs_y(1) shs_y(1) shs_y(2) shs_y(2) shs_y(1)],'k-.','LineWidth',lwidth)

xlab = xlabel('Slip, $$\delta$$ [mm]');
ylab = ylabel('$$\mu^*$$ [-]');
% lgd = legend([A B C],['$$\mu^*$$'],['$$\mu_\mathrm{s}^* =$$ ',num2str(round(fric_coeffRunIn(1),2))],['$$\mu_\mathrm{d}^* =$$ ',num2str(round(fric_coeffRunIn(3),2))],'Location','southeast','Orientation','horizontal');
% legend boxoff
set(xlab,'Interpreter','latex','fontsize',fsize)
set(ylab,'Interpreter','latex','fontsize',fsize)
% set(lgd,'Interpreter','latex','fontsize',fsize)
set(gca,'fontsize',fsize) 
set(fh, 'color', 'white')
set(gca, 'Box', 'on' );
xlim([0 18.5])
ylim([0 0.8])
an1 = annotation('textbox', [0.05 .98 0 0], 'string', 'a)');
an2 = annotation('textbox', [0.05 .64 0 0], 'string', 'b)');
an3 = annotation('textbox', [0.47 .64 0 0], 'string', 'c)');
an4 = annotation('textbox', [0.05 .36 0 0], 'string', 'd)');
an5 = annotation('textbox', [0.47 .36 0 0], 'string', 'e)');
set(an1,'Interpreter','latex','fontsize',fsize+3)
set(an2,'Interpreter','latex','fontsize',fsize+3)
set(an3,'Interpreter','latex','fontsize',fsize+3)
set(an4,'Interpreter','latex','fontsize',fsize+3)
set(an5,'Interpreter','latex','fontsize',fsize+3)

txt1 = text(9,.1,['$$\mu^*_{\mathrm{s}} =$$ ',num2str(round(fric_coeffRunIn(1),2)),' $$\pm$$ ',num2str(round(fric_error(1),3)),'; $$\mu^*_{\mathrm{d}} =$$ ',num2str(round(fric_coeffRunIn(3),2)),' $$\pm$$ ',num2str(round(fric_error(3),3))]);
set(txt1,'Interpreter','latex','fontsize',fsize)

namerock = expName(1:find(expName == '_')-1);
if expName(end) == 'w'
    txt1 = text(.5,0.7,[num2str(namerock),', ',expName(end-2:end-1),' MPa, wet']);
elseif expName(end) == 'd'
    txt1 = text(.5,0.7,[num2str(namerock),', ',expName(end-2:end-1),' MPa, dry']);
end
set(txt1,'Interpreter','latex','fontsize',fsize)

%% - Plot static friction
i_muStat = find(slip>slip_minStat & slip<slip_maxStat);   % find indices
fitMuStat = polyfit(slip(i_muStat),fric_coeff(i_muStat),1); % fit
% i_plotMuS = find(slip > slip_minStat & slip < .7*(slip_maxStat-slip_minStat)+slip_maxStat); % fit for plotting
i_plotMuS = find(slip > slip_minStat & slip < 2*slip_maxStat-slip_minStat); % fit for plotting
fitToPlot = polyval(fitMuStat, slip(i_plotMuS));            % values to plot

muStat = fric_coeffRunIn(1);
subplot(3,2,3)
plot(slip/1000, fric_coeff,'-k'); hold on;
plot(slip(i_plotMuS)/1000, fitToPlot,':k','LineWidth',lwidth)
plot([0 3*slip_maxStat]/1000, [muStat muStat],'-.k','LineWidth',lwidth)
xlab = xlabel('Slip, $$\delta$$ [mm]');
ylab = ylabel('$$\mu^*$$ [-]');
set(xlab,'Interpreter','latex','fontsize',fsize)
set(ylab,'Interpreter','latex','fontsize',fsize)
set(gca,'fontsize',fsize) 
set(fh, 'color', 'white')
set(gca, 'Box', 'on' );
xlim([min(slip(i_plotMuS)) max(slip(i_plotMuS))+100]/1000)
xlim([min(slip(i_plotMuS)) 2*slip_maxStat-slip_minStat]/1000)
ylim([min(fitToPlot) max(fitToPlot)+.02])

l_x = xlim;
l_y = ylim;

txt1 = text(.1*(l_x(2)-l_x(1))+l_x(1),muStat + .07*(l_y(2)-l_y(1)),'$$\mu^*_{\mathrm{s}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize)

ss = slip(i_plotMuS)/1000;
ss = ss(ss < (2*slip_maxStat-slip_minStat)/1000);
plot([ss(round(length(ss)*.97)) - 0.2*(l_x(2) - l_x(1)) ss(round(length(ss)*.97))],[fitToPlot(round(length(ss)*.97)) fitToPlot(round(length(ss)*.97))],'k','LineWidth',1)
ii = find(ss > ss(round(length(ss)*.97)) - 0.2*(l_x(2) - l_x(1)),1);
plot([ss(round(length(ss)*.97)) - 0.2*(l_x(2) - l_x(1)) ss(round(length(ss)*.97)) - 0.2*(l_x(2) - l_x(1))],[fitToPlot(round(length(ss)*.97)) fitToPlot(ii)],'k','LineWidth',1)
txt1 = text(ss(round(length(ss)*.97)) - 0.32*(l_x(2) - l_x(1)),fitToPlot(ii) + .12*(l_y(2)-l_y(1)),'$$\frac{k}{F_{\mathrm{h}}}$$');
set(txt1,'Interpreter','latex','fontsize',fsize)

i_arrow = find(slip/1000 > 0.9*(l_x(2) - l_x(1)) + l_x(1),1);
if abs(fric_coeff(i_arrow)- 0.17*(l_y(2) - l_y(1)) - muStat) < 0.1*(l_y(2) - l_y(1))
    plot([slip(i_arrow)/1000 slip(i_arrow)/1000],[fric_coeff(i_arrow) - 0.37*(l_y(2) - l_y(1)) fric_coeff(i_arrow) - 0.04*(l_y(2) - l_y(1))],'Color',[0 0 0],'LineWidth',lwidth)
    txt1 = text(slip(i_arrow)/1000-.02*(l_x(2)-l_x(1)),fric_coeff(i_arrow) - 0.42*(l_y(2) - l_y(1)),'$$\mu^*$$');
else
    plot([slip(i_arrow)/1000 slip(i_arrow)/1000],[fric_coeff(i_arrow) - 0.17*(l_y(2) - l_y(1)) fric_coeff(i_arrow) - 0.04*(l_y(2) - l_y(1))],'Color',[0 0 0],'LineWidth',lwidth)
    txt1 = text(slip(i_arrow)/1000-.02*(l_x(2)-l_x(1)),fric_coeff(i_arrow) - 0.22*(l_y(2) - l_y(1)),'$$\mu^*$$');
end
plot(slip(i_arrow)/1000,fric_coeff(i_arrow) - 0.04*(l_y(2) - l_y(1)),'^','Color',[0.7 0.7 0.7],'MarkerFaceColor',[0 0 0],'LineWidth',lwidth)
set(txt1,'Interpreter','latex','fontsize',fsize)

%% - Picked healing
subplot(3,2,6)
hold on
errorbar(holdTimes, healing(:,3),healing_err(:,1)+healing_err(:,2),".",'Color','k')
scatter(holdTimes, healing(:,3),25,'k','filled')
plot([.1 3e4],[0 0],'k--','LineWidth',lwidth)
set(gca, 'Xscale', 'log')
xlab = xlabel('Hold time, $$t_{\mathrm{h}}$$ [sec]');
ylab = ylabel('$$\Delta\mu^*_{\mathrm{h}}$$ [-]');
set(xlab,'Interpreter','latex','fontsize',14)
set(ylab,'Interpreter','latex','fontsize',14)
set(gca,'fontsize',14) 
set(fh, 'color', 'white')
set(gca, 'Box', 'on' );
xlim([.5 5e3])
ylim([-.04 .07])
xticks([1 10 100 1000])
yticks([-0.03 0 0.03 0.06])

%% - Plot dynamic friction
% muDyn = fric_coeffRunIn(3);
% subplot(3,2,4)
% hold on
% plot(slip/1000, fric_coeff,'-k')
% plot([slip_maxDyn-1500 slip_maxDyn]/1000,[muDyn muDyn],'-','Color',[.7 .7 .7],'LineWidth',4)
% plot([slip_maxDyn-1500 slip_maxDyn]/1000,[muDyn muDyn],':','Color',[0 0 0],'LineWidth',2)
% xlab = xlabel('Slip, $$\delta$$ [mm]');
% ylab = ylabel('$$\mu^*$$ [-]');
% set(xlab,'Interpreter','latex','fontsize',fsize)
% set(ylab,'Interpreter','latex','fontsize',fsize)
% set(gca,'fontsize',fsize) 
% set(fh, 'color', 'white')
% set(gca, 'Box', 'on' );
% xlim([4 slip_maxDyn/1000 + .2])
% ylim([muDyn - 0.1 muDyn + 0.1])
% 
% l_y = ylim;
% plot([(slip_maxDyn-1500)/1000 + .75 (slip_maxDyn-1500)/1000 + .75],[muDyn + .03*(l_y(2) - l_y(1)) muDyn + .075],'-','Color',[.7 .7 .7],'LineWidth',lwidth*2)
% plot([(slip_maxDyn-1500)/1000 + .75 (slip_maxDyn-1500)/1000 + .75],[muDyn + .03*(l_y(2) - l_y(1)) muDyn + .075],'-k','LineWidth',lwidth)
% plot((slip_maxDyn-1500)/1000 + .75,muDyn + .03*(l_y(2) - l_y(1)),'vk','Color',[0.7 0.7 0.7],'MarkerFaceColor',[0 0 0],'LineWidth',lwidth)
% txt1 = text((slip_maxDyn-1500)/1000 + .55,muDyn + .085,'$$\mu^*_{\mathrm{d}}$$');
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% xx = 6;
% plot([xx xx],[muDyn - .07 mean(fric_coeff(find(slip/1000 > xx,1)-100:find(slip/1000 > xx,1)+100)) - 0.01],'-','Color',[.7 .7 .7],'LineWidth',lwidth*2)
% plot([xx xx],[muDyn - .07 mean(fric_coeff(find(slip/1000 > xx,1)-100:find(slip/1000 > xx,1)+100)) - 0.01],'-k','LineWidth',lwidth)
% plot(xx,mean(fric_coeff(find(slip/1000 > xx,1)-100:find(slip/1000 > xx,1)+100))-.01,'^k','Color',[0.7 0.7 0.7],'MarkerFaceColor',[0 0 0],'LineWidth',lwidth)
% txt1 = text(xx-.2,muDyn - .088,'$$\mu^*$$');
% set(txt1,'Interpreter','latex','fontsize',fsize)

%% - save figure to pdf
exportgraphics(fh,fileName,"Resolution",300)

%% - Plot example holds
fh = figure;
plot(slip_shs/1000, fric_shs,'k','LineWidth',lwidth); hold on;
xlim([holds(1) - 400 holds(end) + 500]/1000)
xlab = xlabel('Slip, $$\delta$$ [mm]');
ylab = ylabel('Apparent Friction, $$\mu^*$$ [-]');
set(xlab,'Interpreter','latex','fontsize',fsize)
set(ylab,'Interpreter','latex','fontsize',fsize)
set(gca,'fontsize',fsize) 
set(fh, 'color', 'white')
set(gca, 'Box', 'on' );
% min_f = round(min(fric_shs)/.05)*.05;
mean_f = round(min(mean([healing(:,2) healing(:,4)],2)),2);
% ylim([min_f - .05 min_f + .15]);
ylim([mean_f - .08 mean_f + .08]+.03)
% ylim([0.52 0.68])
shs_y = ylim;
yticks([mean_f - 0.08 mean_f mean_f + 0.08]+.03)
% yticks([0.52 0.60 0.68])
shs_x = xlim;
shiftdown = (shs_y(2) - shs_y(1))*.05;
% 
% txt1 = text((holds(1)-40)/1000,min(fric_shs(find(slip_shs>holds(1),1):find(slip_shs>holds(1)+200,1)))-shiftdown,[num2str(holdTimes(1)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% txt1 = text((holds(2)-40)/1000,min(fric_shs(find(slip_shs>holds(2),1):find(slip_shs>holds(2)+200,1)))-shiftdown,[num2str(holdTimes(2)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% txt1 = text((holds(3)-80)/1000,min(fric_shs(find(slip_shs>holds(3),1):find(slip_shs>holds(3)+200,1)))-shiftdown,[num2str(holdTimes(3)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% txt1 = text((holds(4)-80)/1000,min(fric_shs(find(slip_shs>holds(4),1):find(slip_shs>holds(4)+200,1)))-shiftdown,[num2str(holdTimes(4)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% txt1 = text((holds(5)-120)/1000,min(fric_shs(find(slip_shs>holds(5),1):find(slip_shs>holds(5)+200,1)))-shiftdown,[num2str(holdTimes(5)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% txt1 = text((holds(6)-120)/1000,min(fric_shs(find(slip_shs>holds(6),1):find(slip_shs>holds(6)+200,1)))-shiftdown,[num2str(holdTimes(6)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% txt1 = text((holds(7)-200)/1000,min(fric_shs(find(slip_shs>holds(7),1):find(slip_shs>holds(7)+200,1)))-shiftdown,[num2str(holdTimes(7)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)
% 
% txt1 = text((holds(8)-200)/1000,min(fric_shs(find(slip_shs>holds(8),1):find(slip_shs>holds(8)+200,1)))-shiftdown,[num2str(holdTimes(8)),'s']);
% set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(1)-200)/1000,min(fric_shs(find(slip_shs>holds(1),1):find(slip_shs>holds(1)+200,1)))-shiftdown,[num2str(holdTimes(1)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(2)-200)/1000,min(fric_shs(find(slip_shs>holds(2),1):find(slip_shs>holds(2)+200,1)))-shiftdown,[num2str(holdTimes(2)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(3)-120)/1000,min(fric_shs(find(slip_shs>holds(3),1):find(slip_shs>holds(3)+200,1)))-shiftdown,[num2str(holdTimes(3)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(4)-120)/1000,min(fric_shs(find(slip_shs>holds(4),1):find(slip_shs>holds(4)+200,1)))-shiftdown,[num2str(holdTimes(4)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(5)-80)/1000,min(fric_shs(find(slip_shs>holds(5),1):find(slip_shs>holds(5)+200,1)))-shiftdown,[num2str(holdTimes(5)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(6)-80)/1000,min(fric_shs(find(slip_shs>holds(6),1):find(slip_shs>holds(6)+200,1)))-shiftdown,[num2str(holdTimes(6)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(7)-40)/1000,min(fric_shs(find(slip_shs>holds(7),1):find(slip_shs>holds(7)+200,1)))-shiftdown,[num2str(holdTimes(7)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

txt1 = text((holds(8)-40)/1000,min(fric_shs(find(slip_shs>holds(8),1):find(slip_shs>holds(8)+200,1)))-shiftdown,[num2str(holdTimes(8)),'s']);
set(txt1,'Interpreter','latex','fontsize',fsize)

% if expName(end) == 'w'
%     txt1 = text(shs_x(1) + .2,shs_y(2) - .01,[num2str(namerock),', ',expName(end-2:end-1),' MPa, wet']);
% elseif expName(end) == 'd'
%     txt1 = text(shs_x(1) + .2,shs_y(2) - .01,[num2str(namerock),', ',expName(end-2:end-1),' MPa, dry']);
% end
txt1 = text(13,.5,'Inverse, R4648, 30 MPa, dry');
set(txt1,'Interpreter','latex','fontsize',fsize)

xticks([12 13 14 15 16 17 18])

set(fh, 'renderer', 'Painters');
print -depsc -tiff -r300 -painters sdfdf.eps


end