function partplot(goodTSCFRET,uc,n,parts)
ende=goodTSCFRET(1,n).A_bleached;
for i=1:parts
subplot (parts,1,i)
plot(goodTSCFRET(uc,n).eff100)
      set(gca, 'XLim',[(i-1)*ceil(ende/parts),i*ceil(ende/parts)]);
%set(gca, 'Color','none')
%set(gcf, 'Color','none')
end
