% This is to make figures for scenario 1
% Here I vary T - signalling time
% This is for supplementary

scenario=0;
T=[0.01 0.06 0.11 0.16 0.21 0.26];
tau=0.05;
c=0.01;
accuracy=500;
p=1; % this is for subplotting
for i=1:length(T)
    p % This is to see how many rounds were done already
    [Ws,WS,Wd,WD,x,y]=mainresults(scenario,T(i),tau,c,accuracy);
    cat=2*(WS>Ws)+(WD>Wd);
    eval(['Ws_' num2str(i) '=Ws;']);
    eval(['WS_' num2str(i) '=WS;']);
    eval(['Wd_' num2str(i) '=Wd;']);
    eval(['WD_' num2str(i) '=WD;']);
    eval(['cat_' num2str(i) '=cat;']);
    subplot(1, length(T),p)
    h1=pcolor(x(1,:),y(:,1),cat); colormap pink; caxis([0 3]); set(h1,'EdgeColor','none')
    p=p+1;
end