function h4plot(inFRET,uc,n)
%% Creates four upwards running trajectory plots
%  One for each timewindow length intensities calculations 
Y4=inFRET(uc,n).eff100;
Y3=inFRET(uc,n).eff50;
Y2=inFRET(uc,n).eff20;
Y1=inFRET(uc,n).eff10;

%xtix=[0 length(Y1)/4 length(Y1)/2 length(Y1)];
%xlabs={'','',''}
% Create figure
figure1 = figure('XVisual','0x21 (TrueColor, depth 16, RGB mask 0xf800 0x07e0 0x001f)', 'PaperSize',[20.98 27.68]);
h=0.86;
w=0.22;
t=0.04;
tbox=0.96;
%% TW10
% Create axes 1
axes1 = axes('Parent',figure1,...
    'XTick',[],...
    'Position',[0.755 t w h],...
    'CameraUpVector',[1 0 0]);
box('on');
hold('all');
axis tight
% Create plot 1
plot(Y1,'Parent',axes1,'DisplayName','tw10');

%% TW20
% Create axes 2
axes2 = axes('Parent',figure1,'YTick',[0 0.5 1],...
    'XTick',[],...
    'Position',[0.51 t w h],...
    'CameraUpVector',[1 0 0]);
% Uncomment the following line to preserve the X-limits of the axes
% xlim([5000 1.5e+04]);
box('on');
hold('all');
axis tight

% Create plot 2
plot(Y2,'Parent',axes2,'DisplayName','tw20');

%% TW50
% Create axes 3
axes3 = axes('Parent',figure1,...
    'XTick',[],...
    'Position',[0.27 t w h],...
    'CameraUpVector',[1 0 0]);
% Uncomment the following line to preserve the X-limits of the axes
% xlim([5000 1.5e+04]);
box('on');
hold('all');
axis tight
% Create plot 3
plot(Y3,'Parent',axes3,'DisplayName','tw50');

%% TW 100
% Create axes
axes4 = axes('Parent',figure1,'YTick',[0 0.5 1],...mhFRET
    'Position',[0.01 t w h],...
    'CameraUpVector',[1 0 0],...
    'FontWeight','demi');
% Uncomment the following line to preserve the X-limits of the axes
% xlim([5000 1.5e+04]);
box('on');
hold('all');
axis tight
% Create plot 4
plot(Y4,'Parent',axes4,'DisplayName','tw100');

%% Textbox Titles

% Create textbox 1
annotation(figure1,'textbox','String',{'tw=10'},'FontSize',14,...
    'FitBoxToText','off',...
    'LineStyle','none',...
    'Position',[0.86 tbox 0.1 0.019]);

% Create textbox 2
annotation(figure1,'textbox','String',{'tw=20'},'FontSize',14,...
    'FitBoxToText','off',...
    'LineStyle','none',...
    'Position',[0.57 tbox 0.1 0.019]);

% Create textbox 3
annotation(figure1,'textbox','String',{'tw=50'},'FontSize',14,...
    'FitBoxToText','off',...
    'LineStyle','none',...
    'Position',[0.31 tbox 0.1 0.019]);

% Create textbox 4
annotation(figure1,'textbox','String',{'tw=100'},'FontSize',14,...
    'FitBoxToText','off',...
    'LineStyle','--',...
    'Position',[0.02 tbox 0.96 0.019]);

maximize