%EXTEM
k=1;

%Skalierung Plot
p=65;

clot_EXTEM=num2cell(clot_ex{:,k}); 
time_EXTEM=num2cell(time_ex{:,k}); 

n=length(clot_EXTEM);
for i=1:n
    %EXTEM
    y_cell_EXTEM=clot_EXTEM(1:i); 
    x_cell_EXTEM=time_EXTEM(1:i);
    y_EXTEM=(cell2mat(y_cell_EXTEM)-1.5);
    x_EXTEM=cell2mat(x_cell_EXTEM)/60;
    
     if x_EXTEM(end)<=CT_extem(k)/60
     subplot(2,2,1);
     f=plot(x_EXTEM,y_EXTEM,'m');
     set(f);
     axis([0 35 -p p]);
     title('EXTEM');
     xlabel('time [min]'); 
     ylabel('clot [mm]');
     grid on
     end
     
      %Ab hier: CLOT
    if x_EXTEM(end)>(CT_extem(k))/60 && y_EXTEM(end)<=20
        length_EXTEM_x=length(x_EXTEM);
        length_EXTEM_y=length(y_EXTEM);
        subplot(2,2,1)  
        f=patch([x_EXTEM'; x_EXTEM'],[y_EXTEM'; -y_EXTEM'],'m','edgecolor','m')
        set(f);
    end
        
    if x_EXTEM(end)>(CT_extem(k))/60 && y_EXTEM(end)>20
        x_EXTEM_=x_EXTEM(length_EXTEM_x:end);
        y_EXTEM_=y_EXTEM(length_EXTEM_y:end);
        subplot(2,2,1)  
        r=patch([x_EXTEM_';x_EXTEM_'],[y_EXTEM_';-y_EXTEM_'],'b','edgecolor','b')
        set(r);
    end
        
        if x_EXTEM(end)>20;
        break
        end
  
    M(i)=getframe(gcf);
    M(i).cdata = flipud(M(i).cdata);
    clearvars l
   
end