function fourplot(goodTSCFRET,uc,n)
ende=goodTSCFRET(1,n).A_bleached;
subplot (4,1,1)
plot(goodTSCFRET(uc,n).eff100)
      set(gca, 'XLim',[0,ceil(ende/4)]);
subplot(4,1,2)
plot(goodTSCFRET(uc,n).eff100)
set(gca, 'XLim',[ceil(ende/4),ceil(ende/2)]);
subplot (4,1,3)
plot(goodTSCFRET(uc,n).eff100)
set(gca, 'XLim',[ceil(ende/2),ceil(3*ende/4)]);
subplot(4,1,4)
plot(goodTSCFRET(uc,n).eff100)
set(gca, 'XLim',[ceil(3*ende/4),ende]);