function tenPlotsDAE(uFRET,uc,savePDF)
%%      MultiPlot corrected for uc=1 (uncorrected uc=2)
%
if nargin<3
    savePDF=0;
end
t=1;
m=0;

for s=1:ceil(size(uFRET,2)/10)
    figure(s+m)


    for p1=1:10

        ende=length(uFRET(1,t).Efficiencies(:,1));
        last=uFRET(1,t).Efficiencies(ende,1);
        xTix=[0,round(last/4),last-round(last/4),last];
        xTixL=round(xTix*10^(-3));
        yMax=max(max(uFRET(1,1).Intensities(:,2:3)));
        name=cell2mat(uFRET(1,1).Names(t,:));
        subplot(10,4,4*p1-3:4*p1-1)

        plotI=line(uFRET(1,t).Intensities(1:ende,1),uFRET(1,t).Intensities(1:ende,2:3));
        set(plotI(1),'Color',[0 0.99 0.1]);
        set(plotI(2),'Color',[0.847 0.161 0]);
        
        
        ax1 = gca;
        
        PosAx1 = get(ax1,'Position');
        PosAx1(1,1)=0.0336;
        PosAx1(1,3:4)=[0.69 0.06];
        
        set(ax1, 'YColor','b','YAxisLocation','left',...
            'Color','none','xtick',[],'YLim',[0,yMax],'ActivePositionProperty','OuterPosition','Position',PosAx1);
%         if strcmp(uFRET.Names(1),'r')==1;
%             set(get(ax1,'XLabel'),'String',...
%                 ['time in sec   #',num2str(t),' - ',name(7:9), name(17:20)])
%         else
            set(get(ax1,'XLabel'),'String',...
                ['time in ms   #',num2str(t),' - ',name])
      %  end

        if (uc==1)
            ylabel(ax1,'Intensities (cor)');
        else
            ylabel(ax1,'Intensities (uc)');
            clear name
        end
        ax2 = axes('Position',get(ax1,'Position'),...
            'YAxisLocation','right',...
            'Color','none','XColor','k','YColor','k',...
            'xtick', xTix, 'XTickLabel', xTixL,...
            'YLim',[0,1.0],'YTick',[0,0.5,1],'YTickLabel',{'0';'50%';'100%'});

        line(uFRET(1,t).Efficiencies(1:ende,1),uFRET(1,t).Efficiencies(1:ende,2),'Color','k','Parent',ax2);
        ylabel(ax2,'Efficiency')
        set(ax2,'Position',get(ax1,'Position'));


        subplot(10,4,4*p1)

        hist(uFRET(1,t).Efficiencies(1:ende,1),100);

        ax3=gca;
        PosAx3 = get(ax3,'Position');
        PosAx3(1,1)=0.79;
        PosAx1(1,3:4)=[0.21 0.06];
        set(ax3, 'YAxisLocation','right','XAxisLocation','bottom',...
            'xtick', [], 'XTickLabel','','YLimMode','auto',...
            'YColor',[0.04 0.8 0.5],...
            'Color','none','YColor','k','Box','off',...
            'XDir','reverse')
        axis tight
        maxCounts=get(ax3,'YLim');
        
        %ylabel(ax3,'counts','Rotation',[90],'Position',[10,maxCounts(1,2)-50,1],'fontweight','demi'); %#ok<NBRAK>
        %newCamera=get(gca,'CameraPosition')*[1 0 0;0 1 0;0 0 -1]   ...'CameraPosition',newCamera, ;

        t=t+1;

    end
    maximize
    if savePDF==1
        if (uc==1)
            save2pdf(['CorFRET',num2str(s)],gcf,600)
        else
        save2pdf(['UncorFRET',num2str(s)],gcf,600)
        end
    else
    end
end


m=20;
t=1;
end
