% last modified 11/02/2019


clear all
close all

%%% CHECK here before every block %%%
subID = 99;
staircaseNum =1;
NumRun = [1];  % 1:6

%%%%%%%%%%%%%




outdirStaircase = 'D:\Behavior_4-CueExp\CueStaircase\output\';
outdir = 'D:\Behavior_4-CueExp\experiment\output\';

f = 1100; %carrier frequency
 

%load correct JND of staircase 
load([outdirStaircase,'S',num2str(subID),'_SC_',num2str(staircaseNum)],'results','allSteps');
res_temp = squeeze(results(1,:,:));
indthis = find(res_temp(:,5)~=0);
JND = mean(allSteps(res_temp(indthis(3:end),2)));
results = squeeze(results);
clear results 
% save which JND was selected for safety 


%% select block order for this particular subject 
load([outdir,'BlockOrderAllSubjects'])

sub = subID;
%for debugging 
if sub == 99
    sub = 2;  
end 

BlockOrder = SubTable(:,:,sub); 
clear blockOrder; clear SubTable; clear sub

%% create condition file per mini block 

nrTrials = 24; % has to be multiple of 8 and 6 (24 or 48 ) 
numMiniblocks = 3; 
ExecuteBlocks = 1; % which block 
% NumRun = [2]  % 1:6

CondTable = conditionFileBlock(subID,nrTrials,ExecuteBlocks); 
  

%% run a block of the experiment 
for iRun = 1:numel(NumRun)
    
    MiniBlockOrder = BlockOrder(NumRun(iRun),:);
   [results] = runBlock(CondTable,MiniBlockOrder,JND,iRun) 
   
   %save output
    fname = [outdir,'S',num2str(subID),'_Block',num2str(NumRun),'_results'];
    save([fname,'.mat'],'results','JND','staircaseNum','subID','BlockOrder');

  

end