dat = csvread ('S5696_CoreB_results.csv',1,0);
   
applied = dat(:,2);
eroded = dat(:,5);

% plot(applied, eroded)

2pa = interp1(eroded,applied,  0.2);
4pa = interp1(eroded,applied,  0.4);
