clear;
[num,txt,raw] = xlsread('ReadMe.xls');

times = datenum(txt(6:end,6) ,'dd-mm-yyyy')+num(:,1);

for i=6:length(times)+5
    scr_dunes(i-5) = sum(cell2mat(txt(i,2))== 'S')==1 & sum(cell2mat(txt(i,2))== 'D')==1;
    scr_shore(i-5) = sum(cell2mat(txt(i,2))== 'S')>=1 & sum(cell2mat(txt(i,2))== 'h')==1;
end

%%
index = 1:68;
k=1;
disp('Location \& Scan id & Time (2010) \\')
disp('Dunefoot \\')
for i = index(scr_dunes)
disp(sprintf('\\hspace{1cm} Scan%.0f & %s \\\\',k,datestr(times(i),'dd-mmm HH:MM')));
k=k+1;
end

disp('Shoreline \\')
for i = index(scr_shore)
disp(sprintf('\\hspace{1cm} Scan%.0f & %s \\\\',k,datestr(times(i),'dd-mmm HH:MM')));
k=k+1;
end

%%
figure
plot(times(scr_shore),0,'r*')
hold on
plot(times(scr_dunes),0,'b*')



