function Tide_plot(T,A)
%% main tide over whole of july
subplot(3,1,1);plot(T.data.datenum, T.data.waarde)
datetick('x')
Axis([datenum('2009-07-01') datenum('2009-08-03') -110 200])

      xlabel ('Time  [GMT+1]')
      ylabel ('Tide  [cm + NAP]')
      grid on
      title('Tides near Scheveningen, 2009')


A1=find(T.data.datenum == datenum('2009-07-23'));      
A2=find(T.data.datenum == datenum('2009-07-25'));
%% plot Juli 23     
name ='';
subplot(3,1,2);plot(T.data.datenum(A1:A2), T.data.waarde(A1:A2),'r')
datetick('x')
hold on
for ifile = 1: 7
    name = [name; datestr(A(ifile).datenum)];
    Y=0;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 8:15 
    name = [name; datestr(A(ifile).datenum)];
    Y=50;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 16:23
    name = [name; datestr(A(ifile).datenum)];
    Y=75;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 24: 29
    name = [name; datestr(A(ifile).datenum)];
    Y=100;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 30: 31
    name = [name; datestr(A(ifile).datenum)];
    Y=125;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 32:35
    name = [name; datestr(A(ifile).datenum)];
    Y=25;
    plot(A(ifile).datenum,Y,'bx')
end
      legend(name)
Axis([datenum('2009-07-23') datenum('2009-07-25') -110 200])

      xlabel ('Time  [GMT+1]')
      ylabel ('Tide  [cm + NAP]')
      grid on
      %title('Tides near Scheveningen, 2009')

hold off   
clear name
%% Plot Juli 31     
B1=find(T.data.datenum == datenum('2009-07-30'));      
B2=find(T.data.datenum == datenum('2009-08-01'));
name ='';
subplot(3,1,3);plot(T.data.datenum(B1:B2), T.data.waarde(B1:B2),'r')
datetick('x')
Axis([datenum('2009-07-30') datenum('2009-08-01') -110 200])
hold on

for ifile = 37: 43
    name = [name; datestr(A(ifile).datenum)];
    Y=0;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 44:57 
    name = [name; datestr(A(ifile).datenum)];
    Y=50;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 58:71
    name = [name; datestr(A(ifile).datenum)];
    Y=75;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 72: 78
    name = [name; datestr(A(ifile).datenum)];
    Y=100;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 79: 81
    name = [name; datestr(A(ifile).datenum)];
    Y=125;
    plot(A(ifile).datenum,Y,'bx')
end
clear name
name ='';  
for ifile = 82
    name = [name; datestr(A(ifile).datenum)];
    Y=25;
    plot(A(ifile).datenum,Y,'bx')
end
      legend(name)
      xlabel ('Time  [GMT+1]')
      ylabel ('Tide  [cm + NAP]')
      grid on
      %title('Tides near Scheveningen, 2009')     
      
           
      