rmeddis@0: function errormsg=nextStimulus(handles)
rmeddis@0: % Handles everything concerned with the stimulus presentation
rmeddis@0: %  called from startNewRun in subjGUI
rmeddis@0: 
rmeddis@0: global experiment stimulusParameters withinRuns betweenRuns
rmeddis@0: experiment.status='presentingStimulus';
rmeddis@0: errormsg='';
rmeddis@0: 
rmeddis@0: % interrupt by 'stop' button
rmeddis@0: if experiment.stop
rmeddis@0:     disp('******** experiment manually stopped  *****************')
rmeddis@0:     experiment.status= 'waitingForStart';
rmeddis@0:     addToMsg('manually stopped',1)
rmeddis@0:     return
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % -----------------------------------------choose catch trials at random
rmeddis@0: % catch trials are for subject threshold measurements only
rmeddis@0: % this is the only place where withinRuns.catchTrial is set
rmeddis@0: if experiment.allowCatchTrials
rmeddis@0:     if withinRuns.trialNumber==1;
rmeddis@0:         % first trial is never a catch trial
rmeddis@0:         withinRuns.catchTrial=0;
rmeddis@0:         withinRuns.catchTrialCount=0;   % reset count on first trial
rmeddis@0:     elseif withinRuns.trialNumber==2 ...
rmeddis@0:             && withinRuns.catchTrialCount==0
rmeddis@0:         % second trial is always a catch trial
rmeddis@0:         withinRuns.catchTrial=1;
rmeddis@0:         withinRuns.catchTrialCount=1;   % this must be the first
rmeddis@0:     elseif withinRuns.thisIsRepeatTrial
rmeddis@0:         % for requested repeats do not change catch trial status
rmeddis@0:         withinRuns.thisIsRepeatTrial=0; % reset toggle
rmeddis@0:     else
rmeddis@0:         % choose whether or not to have a catch trial
rmeddis@0:         R=rand;
rmeddis@0:         if R<stimulusParameters.catchTrialRate
rmeddis@0:             % catch trial
rmeddis@0:             withinRuns.catchTrial=1;
rmeddis@0:             addToMsg('Catch Trial',1)
rmeddis@0:             withinRuns.catchTrialCount=withinRuns.catchTrialCount+1;
rmeddis@0:         else
rmeddis@0:             % not a catch trial
rmeddis@0:             withinRuns.catchTrial=0;
rmeddis@0:         end
rmeddis@0:     end
rmeddis@0: else
rmeddis@0:     % no catch trials for statistical evaluations or 2AIFC or (poss) MAP
rmeddis@0:     withinRuns.catchTrial=0;
rmeddis@0: end
rmeddis@0: 
rmeddis@0: %------------ during stimulus presentation show appropriate button images
rmeddis@0: switch experiment.ear
rmeddis@0:     case {'statsModelLogistic', 'statsModelRareEvent',...
rmeddis@0:             'MAPmodel', 'MAPmodelMultiCh', 'MAPmodelSingleCh'}
rmeddis@0:         % no buttons shown
rmeddis@0:     otherwise
rmeddis@0:         switch experiment.threshEstMethod
rmeddis@0:             case {'2I2AFC++', '2I2AFC+++'}
rmeddis@0:                 %Except for 2I2AFC
rmeddis@0:                 % For 2I2AFC the buttons on the screen ab initio
rmeddis@0:                 set(handles.frame1,'visible','off')
rmeddis@0:                 set(handles.pushbuttonGO,'visible','off')
rmeddis@0:                 set(handles.pushbuttoNotSure,'visible','off')
rmeddis@0:                 set(handles.pushbuttonWrongButton,'visible','off')
rmeddis@0:                 set(handles.pushbutton3,'visible','off')
rmeddis@0:                 set(handles.pushbutton0,'visible','off')
rmeddis@0:                 set(handles.pushbutton1,'visible','on')
rmeddis@0:                 set(handles.pushbutton2,'visible','on')
rmeddis@0:                 drawnow
rmeddis@0:             otherwise
rmeddis@0:                 % i.e. single interval/ maxLikelihood
rmeddis@0:                 set(handles.frame1,'backgroundColor','w')
rmeddis@0:                 set(handles.frame1,'visible','off')
rmeddis@0:                 set(handles.pushbuttoNotSure,'visible','off')
rmeddis@0:                 set(handles.pushbuttonWrongButton,'visible','off')
rmeddis@0:                 set(handles.pushbutton3,'visible','off')
rmeddis@0:                 set(handles.pushbutton2,'visible','off')
rmeddis@0:                 set(handles.pushbutton1,'visible','off')
rmeddis@0:                 set(handles.pushbutton0,'visible','off')
rmeddis@0:                 pause(.1)
rmeddis@0:         end
rmeddis@0: end
rmeddis@0: 
rmeddis@0: set(handles.textMSG,'BackgroundColor','w', 'ForegroundColor', 'b')
rmeddis@0:             
rmeddis@0: % Now the serious business of crafting and presenting the stimulus
rmeddis@0: errormsg= stimulusMakeAndPlay (handles);
rmeddis@0: 
rmeddis@0: if ~isempty(errormsg)
rmeddis@0:     % e.g. clipping. subjGUI will service the error
rmeddis@0:     return
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % after playing the stimulus, reset the subjectGUI
rmeddis@0: switch experiment.ear
rmeddis@0:     case {'statsModelLogistic', 'statsModelRareEvent',...
rmeddis@0:             'MAPmodel', 'MAPmodelMultiCh', 'MAPmodelSingleCh'}
rmeddis@0:         % no changes required if model used
rmeddis@0:         % NB these changes do occur is 'MAPmodelListen' is selected
rmeddis@0:     otherwise
rmeddis@0:         switch experiment.threshEstMethod
rmeddis@0:             case {'2I2AFC++', '2I2AFC+++'}
rmeddis@0:                 % buttons already visible
rmeddis@0:             otherwise
rmeddis@0:                 % single interval now make buttons visible
rmeddis@0:                 set(handles.frame1,'visible','on')
rmeddis@0:                 set(handles.pushbuttoNotSure,'visible','on')
rmeddis@0:                 % set(handles.pushbuttonWrongButton,'visible','on')
rmeddis@0:                 set(handles.pushbutton0,'visible','on')
rmeddis@0:                 set(handles.pushbutton1,'visible','on')
rmeddis@0:                 set(handles.pushbutton2,'visible','on')
rmeddis@0:                 set(handles.pushbutton3,'visible','on')
rmeddis@0:         end
rmeddis@0: end
rmeddis@0: 
rmeddis@0: switch experiment.paradigm
rmeddis@0:     case 'SRT'
rmeddis@0:         set(handles.frame1,'backgroundColor','w')
rmeddis@0:         set(handles.frame1,'visible','off')
rmeddis@0:         set(handles.pushbuttoNotSure,'visible','off')
rmeddis@0:         set(handles.pushbuttonWrongButton,'visible','off')
rmeddis@0:         set(handles.pushbutton3,'visible','off')
rmeddis@0:         set(handles.pushbutton2,'visible','off')
rmeddis@0:         set(handles.pushbutton1,'visible','off')
rmeddis@0:         set(handles.pushbutton0,'visible','off')
rmeddis@0:         set(handles.editdigitInput,'visible','on')
rmeddis@0:         set(handles.editdigitInput,'string',[])
rmeddis@0:         pause(.2)
rmeddis@0:         uicontrol(handles.editdigitInput)
rmeddis@0:         
rmeddis@0:     otherwise
rmeddis@0:         set(handles.editdigitInput,'visible','off')
rmeddis@0: end
rmeddis@0: 
rmeddis@0: 
rmeddis@0: experiment.status='waitingForResponse';
rmeddis@0: % home again
rmeddis@0: 
rmeddis@0: % ------------------------------------------------------------------------------------------stimulusMakeAndPlay
rmeddis@0: function errormsg=stimulusMakeAndPlay (handles)
rmeddis@0: global experiment stimulusParameters betweenRuns withinRuns expGUIhandles  audio
rmeddis@0: % creates the stimulus and plays it; there are two stimuli; cue and test
rmeddis@0: %  called from nextStimulus
rmeddis@0: 
rmeddis@0: errormsg='';
rmeddis@0: 
rmeddis@0: % first post the subjects instructions on subjGUI
rmeddis@0: set(handles.textMSG,'string', stimulusParameters.subjectText)
rmeddis@0: 
rmeddis@0: % select the new levels of the between runs variables
rmeddis@0: num=betweenRuns.runNumber;
rmeddis@0: cmd=(['stimulusParameters.' betweenRuns.variableName1 '= ' ...
rmeddis@0:     num2str(betweenRuns.var1Sequence(num)) ';']);
rmeddis@0: % e.g.  stimulusParameters.targetFrequency= 1000;
rmeddis@0: eval(cmd);
rmeddis@0: 
rmeddis@0: cmd=(['stimulusParameters.' betweenRuns.variableName2 '= ' ...
rmeddis@0:     num2str(betweenRuns.var2Sequence(num)) ';']);
rmeddis@0: % e.g.  stimulusParameters.targetDuration= 0.1;
rmeddis@0: eval(cmd);
rmeddis@0: 
rmeddis@0: switch experiment.paradigm
rmeddis@0:     % target level may vary between runs
rmeddis@0:     case {'trainingIFMC', 'TMC','TMC_16ms', 'TMC - ELP', 'IFMC','IFMC_8ms','IFMC_16ms'}
rmeddis@0:         idx=floor(num/length(betweenRuns.variableList1)-0.01)+1;
rmeddis@0:         cmd=(['stimulusParameters.targetLevel = ' ...
rmeddis@0:             num2str(stimulusParameters.targetLevels(idx)) ';']);
rmeddis@0:         eval(cmd);
rmeddis@0:         if withinRuns.trialNumber==1
rmeddis@0:             disp(['targetLevel=' num2str(stimulusParameters.targetLevel)])
rmeddis@0:         end
rmeddis@0: end
rmeddis@0: 
rmeddis@0: 
rmeddis@0: % for more readable code use shorter variable names;
rmeddis@0: % NB these may change below; these are only the starting values
rmeddis@0: 
rmeddis@0: targetType=        stimulusParameters.targetType;
rmeddis@0: targetDuration=    stimulusParameters.targetDuration;
rmeddis@0: targetLevel=       stimulusParameters.targetLevel;
rmeddis@0: targetFrequency=   stimulusParameters.targetFrequency;
rmeddis@0: 
rmeddis@0: maskerType=        stimulusParameters.maskerType;
rmeddis@0: maskerDuration=    stimulusParameters.maskerDuration;
rmeddis@0: maskerLevel=       stimulusParameters.maskerLevel;
rmeddis@0: maskerRelativeFrequency=  stimulusParameters.maskerRelativeFrequency;
rmeddis@0: maskerFrequency=   maskerRelativeFrequency*targetFrequency;
rmeddis@0: 
rmeddis@0: gapDuration=       stimulusParameters.gapDuration;
rmeddis@0: 
rmeddis@0: rampDuration=      stimulusParameters.rampDuration;
rmeddis@0: AFCsilenceDuration=stimulusParameters.AFCsilenceDuration; % 2I2AFC gap
rmeddis@0: backgroundLevel=   stimulusParameters.backgroundLevel;
rmeddis@0: 
rmeddis@0: % Set level of within runs variable
rmeddis@0: % this is the first change to one of the values shown above
rmeddis@0: cmd=[stimulusParameters.WRVname '= withinRuns.variableValue;' ];
rmeddis@0: % e.g.: maskerLevel= withinRuns.variableValue;
rmeddis@0: eval(cmd);
rmeddis@0: 
rmeddis@0: % cue and test stimuli are identical except for a single difference
rmeddis@0: % depending on the paradigm
rmeddis@0: cueTestDifference= stimulusParameters.cueTestDifference;
rmeddis@0: %  cue characteristics before adding cue differences
rmeddis@0: cueTargetLevel=targetLevel;
rmeddis@0: cueMaskerFrequency=maskerFrequency;
rmeddis@0: cueMaskerDuration=maskerDuration;
rmeddis@0: cueMaskerLevel=maskerLevel;
rmeddis@0: cueTargetFrequency=targetFrequency;
rmeddis@0: cueGapDuration=gapDuration;
rmeddis@0: 
rmeddis@0: % ----------------------------paradigm sensitive cue and masker settings
rmeddis@0: % switch off unwanted components and base cue on target values
rmeddis@0: % for catch trials switch off the target
rmeddis@0: switch experiment.paradigm
rmeddis@0:     % OHIO is a temporary special arrangement
rmeddis@0:     case{'OHIOrand','OHIOspect','OHIOtemp','OHIOspectemp','OHIOabs'}
rmeddis@0:         % these values must be set in MAPparamsOHIO
rmeddis@0:         targetFrequency=experiment.OHIOfrequencies;
rmeddis@0:         numOHIOtones=stimulusParameters.numOHIOtones;
rmeddis@0:         maskerType='OHIO';
rmeddis@0:         targetType='OHIO';
rmeddis@0:         
rmeddis@0:         % globalStimParams.beginSilences says when each tone begins
rmeddis@0:         % targetFrequency specifies the frequency of each tone
rmeddis@0:         % targetLevel is the level of each tone
rmeddis@0:         switch experiment.paradigm
rmeddis@0:             case 'OHIOabs'
rmeddis@0:                 % only one tone
rmeddis@0:                 targetFrequency=targetFrequency(numOHIOtones);
rmeddis@0:                 globalStimParams.beginSilences=0.01;
rmeddis@0:                 targetDuration=0.01;
rmeddis@0:             case 'OHIOrand'
rmeddis@0:                 % select random frequencies from the list
rmeddis@0:                 x=rand(12,1); [x idx]=sort(x);
rmeddis@0:                 targetFrequency=targetFrequency(idx(1:numOHIOtones));
rmeddis@0:                 thresholds=experiment.OHIOthresholds;
rmeddis@0:                 targetLevel=thresholds(idx(1:numOHIOtones))+targetLevel;
rmeddis@0:                 globalStimParams.beginSilences=0.01:0.02:...
rmeddis@0:                     0.01+0.02*(numOHIOtones-1);
rmeddis@0:                 targetDuration=numOHIOtones*0.02;
rmeddis@0:             case 'OHIOspect'
rmeddis@0:                 % only one tone with multiple frequencies
rmeddis@0:                 targetFrequency=fliplr(targetFrequency);
rmeddis@0:                 targetFrequency=targetFrequency(1:numOHIOtones);
rmeddis@0:                 thresholds=experiment.OHIOthresholds;
rmeddis@0:                 thresholds=fliplr(thresholds);
rmeddis@0:                 targetLevel=thresholds(1:numOHIOtones)+targetLevel;
rmeddis@0:                 globalStimParams.beginSilences=...
rmeddis@0:                     repmat(0.01, 1, numOHIOtones);
rmeddis@0:                 targetDuration=0.02;
rmeddis@0:             case 'OHIOspectemp'
rmeddis@0:                 % only one tone with multiple frequencies
rmeddis@0:                 targetFrequency=fliplr(targetFrequency);
rmeddis@0:                 targetFrequency=targetFrequency(1:numOHIOtones);
rmeddis@0:                 thresholds=experiment.OHIOthresholds;
rmeddis@0:                 thresholds=fliplr(thresholds);
rmeddis@0:                 targetLevel=thresholds(1:numOHIOtones)+targetLevel;
rmeddis@0:                 globalStimParams.beginSilences=0.01:0.02:...
rmeddis@0:                     0.01+0.02*(numOHIOtones-1);
rmeddis@0:                 targetDuration=numOHIOtones*0.02;
rmeddis@0:             case 'OHIOtemp'
rmeddis@0:                 % use only one tone repeatedly
rmeddis@0:                 tonesToUse=10;
rmeddis@0:                 targetFrequency=targetFrequency(tonesToUse);
rmeddis@0:                 targetFrequency=repmat(targetFrequency,1,numOHIOtones);
rmeddis@0:                 thresholds=experiment.OHIOthresholds;
rmeddis@0:                 thresholds=thresholds(tonesToUse);
rmeddis@0:                 targetLevel=repmat(thresholds,1,numOHIOtones)+targetLevel;
rmeddis@0:                 globalStimParams.beginSilences=0.01:0.02:...
rmeddis@0:                     0.01+0.02*(numOHIOtones-1);
rmeddis@0:                 targetDuration=numOHIOtones*0.02;
rmeddis@0:         end
rmeddis@0:         % still in OHIO
rmeddis@0:         % Dummy values to make things work although no masker or cue used
rmeddis@0:         % target values have changed and this affects the cue values
rmeddis@0:         cueMaskerLevel=targetLevel;
rmeddis@0:         cueTargetLevel=targetLevel;
rmeddis@0:         cueTargetFrequency=targetFrequency;
rmeddis@0:         cueMaskerFrequency=targetFrequency;
rmeddis@0:         maskerFrequency=targetFrequency;
rmeddis@0:         maskerLevel=targetLevel;
rmeddis@0:         disp(['OHIO frequencies= ' num2str(targetFrequency)])
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % --- set cueTarget level according to assessment method
rmeddis@0: % cue-test difference applies only with singleInterval
rmeddis@0: switch experiment.threshEstMethod
rmeddis@0:     case {'2I2AFC++', '2I2AFC+++'}
rmeddis@0:         % For 2IFC the cue stimulus (masker + probe) is the 'no' window
rmeddis@0:         % and the target stimulus (masker+probe) is the 'yes' window
rmeddis@0:         % the order of presentation is decided at the last minute.
rmeddis@0:         cueTargetLevel=-100;    % the target is never in the 'no' window
rmeddis@0:         cueMaskerLevel=maskerLevel; % masker level is the same in both
rmeddis@0:     otherwise
rmeddis@0:         % 'single interval' or max likelihood
rmeddis@0:         switch experiment.paradigm
rmeddis@0:             % cue target is more audible
rmeddis@0:             case {'training','absThreshold', 'absThreshold_8',  ...
rmeddis@0:                     'TENtest', 'threshold_duration','discomfort',...
rmeddis@0:                     'overShoot','overShootB','overShootMB1', ...
rmeddis@0:                     'overShootMB2', 'OHIO','OHIOabs','OHIOspect'}
rmeddis@0:                 cueTargetLevel=targetLevel+cueTestDifference;
rmeddis@0:                 
rmeddis@0:             case {'forwardMasking','forwardMaskingD','trainingIFMC', ...
rmeddis@0:                     'TMC','TMC_16ms', 'TMC - ELP', 'IFMC','IFMC_8ms', 'FMreProbe'}
rmeddis@0:                 % cue masker is weaker to make target more audible
rmeddis@0:                 cueMaskerLevel=maskerLevel-cueTestDifference;
rmeddis@0:         end
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % ----------------------------- catch trial
rmeddis@0: if withinRuns.catchTrial
rmeddis@0:     targetLevel=-100;	% no target
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % -------------------------------------- Checks on excessive signal level
rmeddis@0: 
rmeddis@0: % clipping is relevant only for soundcard use (not modelling)
rmeddis@0: switch experiment.ear
rmeddis@0:     case {'left', 'right', 'diotic',...
rmeddis@0:             'dichotic', 'dioticLeft', 'dichoticRight'}
rmeddis@0:         experiment.headphonesUsed=1;
rmeddis@0:     otherwise
rmeddis@0:         experiment.headphonesUsed=0;
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % NB calibration *reduces* the level of the soundCard output
rmeddis@0: switch experiment.ear
rmeddis@0:     case {'left', 'right', 'diotic',...
rmeddis@0:             'dichotic', 'dioticLeft', 'dichoticRight'}
rmeddis@0:         clippingLevel=91+stimulusParameters.calibrationdB;
rmeddis@0:         soundCardMinimum=clippingLevel-20*log10(2^24);
rmeddis@0:     otherwise
rmeddis@0:         clippingLevel=inf;
rmeddis@0:         soundCardMinimum=-inf;
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % Check for extreme WRV values and abort if necessary
rmeddis@0: % WRVname specifies the value that changes from trial to trial
rmeddis@0: withinRuns.forceThreshold=[];
rmeddis@0: switch stimulusParameters.WRVname
rmeddis@0:     % check for extreme values. Note that one of the tones might be switched off
rmeddis@0:     case 'maskerLevel'
rmeddis@0:         upperLevel=stimulusParameters.WRVlimits(2);
rmeddis@0:         lowerLevel=stimulusParameters.WRVlimits(1);
rmeddis@0:         if max(maskerLevel, cueMaskerLevel)> upperLevel
rmeddis@0:             errormsg=['Level(' num2str(max(maskerLevel,cueMaskerLevel)) ...
rmeddis@0:                 ') is too high ***'];
rmeddis@0:             withinRuns.forceThreshold=upperLevel;
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         if max(maskerLevel, cueMaskerLevel)< lowerLevel
rmeddis@0:             errormsg=['Level(' num2str(max(maskerLevel,cueMaskerLevel)) ...
rmeddis@0:                 ') is too low ***'];
rmeddis@0:             withinRuns.forceThreshold=lowerLevel;
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         
rmeddis@0:         if max(maskerLevel, cueMaskerLevel)> clippingLevel
rmeddis@0:             errormsg=['Level(' num2str(max(maskerLevel,cueMaskerLevel)) ...
rmeddis@0:                 ') is clipping ***'];
rmeddis@0:             withinRuns.forceThreshold=clippingLevel;
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:                 
rmeddis@0:     case 'targetLevel'
rmeddis@0:         upperLevel=stimulusParameters.WRVlimits(2);
rmeddis@0:         lowerLevel=stimulusParameters.WRVlimits(1);
rmeddis@0:         if ~withinRuns.catchTrial
rmeddis@0:             if max(targetLevel, cueTargetLevel)> upperLevel
rmeddis@0:                 errormsg=['target level (' ...
rmeddis@0:                     num2str(max(targetLevel, cueTargetLevel)) ...
rmeddis@0:                     ')  is too high ***'];
rmeddis@0:                 withinRuns.forceThreshold=upperLevel;
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:                 return
rmeddis@0:             end
rmeddis@0:             if max(targetLevel, cueTargetLevel)< lowerLevel
rmeddis@0:                 errormsg=['target level (' ...
rmeddis@0:                     num2str(max(targetLevel, cueTargetLevel)) ...
rmeddis@0:                     ')  is too low ***'];
rmeddis@0:                 withinRuns.forceThreshold=lowerLevel;
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:                 return
rmeddis@0:             end
rmeddis@0:             if max(targetLevel, cueTargetLevel)> clippingLevel
rmeddis@0:                 errormsg=['target level (' ...
rmeddis@0:                     num2str(max(targetLevel, cueTargetLevel)) ...
rmeddis@0:                     ')  is clipping ***'];
rmeddis@0:                 withinRuns.forceThreshold=upperLevel;
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:                 return
rmeddis@0:             end
rmeddis@0:         end    
rmeddis@0:     case 'maskerDuration'
rmeddis@0:         % this is odd! but harmless
rmeddis@0:         if max(maskerDuration, cueMaskerDuration)> ...
rmeddis@0:                 stimulusParameters.WRVlimits(2)
rmeddis@0:             errormsg=['maskerDuration (' ...
rmeddis@0:                 num2str(max(maskerDuration, cueMaskerDuration))...
rmeddis@0:                 ') is too long ***'];
rmeddis@0:             withinRuns.forceThreshold=stimulusParameters.WRVlimits(2);
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         
rmeddis@0:         if min(maskerDuration, cueMaskerDuration)...
rmeddis@0:                 < stimulusParameters.WRVlimits(1)
rmeddis@0:             errormsg=['maskerDuration (' num2str(maskerLevel) ...
rmeddis@0:                 ') too short ***'];
rmeddis@0:             withinRuns.forceThreshold=stimulusParameters.WRVlimits(1);
rmeddis@0:             withinRuns.forceThreshold=NaN;
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         
rmeddis@0:         % legacy programming
rmeddis@0:     case 'gapDuration'
rmeddis@0:         if gapDuration<0
rmeddis@0:             errormsg=['gapDuration (' num2str(gapDuration) ...
rmeddis@0:                 ') is less than zero  ***'];
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         
rmeddis@0:     case 'maskerFrequency'
rmeddis@0:         switch experiment.paradigm
rmeddis@0:             case 'bandwidth'
rmeddis@0:                 frequency=maskerFrequency';
rmeddis@0:                 if stimulusParameters.WRVstep<0
rmeddis@0:                     lowerLevel=stimulusParameters.targetFrequency;
rmeddis@0:                     upperLevel=stimulusParameters.targetFrequency*2;
rmeddis@0:                 else
rmeddis@0:                     lowerLevel=stimulusParameters.targetFrequency/3;
rmeddis@0:                     upperLevel=stimulusParameters.targetFrequency;
rmeddis@0:                 end
rmeddis@0:                 
rmeddis@0:                 if frequency(1)>upperLevel || frequency(1)<lowerLevel
rmeddis@0:                     errormsg=['frequency out of range: ' ...
rmeddis@0:                         num2str(frequency)];
rmeddis@0:                     withinRuns.forceThreshold=frequency;
rmeddis@0:                     return
rmeddis@0:                 end
rmeddis@0:             otherwise
rmeddis@0:         end
rmeddis@0:         
rmeddis@0:     case 'maskerRelativeFrequency'
rmeddis@0:         if  maskerRelativeFrequency<stimulusParameters.WRVlimits(1)
rmeddis@0:             errormsg=['masker frequency (' ...
rmeddis@0:                 num2str(frequencyDifference) ...
rmeddis@0:                 ')  is outside WRV limits ***'];
rmeddis@0:             withinRuns.forceThreshold=stimulusParameters.WRVlimits(1) ;
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         if   maskerRelativeFrequency>stimulusParameters.WRVlimits(2)
rmeddis@0:             errormsg=['masker frequency (' ...
rmeddis@0:                 num2str(frequencyDifference) ...
rmeddis@0:                 ')  is outside WRV limits ***'];
rmeddis@0:             withinRuns.forceThreshold=stimulusParameters.WRVlimits(2) ;
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % --------------------------------Ear ----------------------------------
rmeddis@0: globalStimParams.ears='specified';
rmeddis@0: % ear: 1=left, 2=right
rmeddis@0: switch experiment.ear
rmeddis@0:     case 'left'
rmeddis@0:         maskerEar=1;
rmeddis@0:         targetEar=1;
rmeddis@0:     case 'right'
rmeddis@0:         maskerEar=2;
rmeddis@0:         targetEar=2;
rmeddis@0:     case 'dichoticLeft'
rmeddis@0:         maskerEar=2;
rmeddis@0:         targetEar=1;
rmeddis@0:     case 'dichoticRight'
rmeddis@0:         maskerEar=1;
rmeddis@0:         targetEar=2;
rmeddis@0:     case 'diotic'
rmeddis@0:         maskerEar=1;
rmeddis@0:         targetEar=1;
rmeddis@0:         globalStimParams.ears='diotic';
rmeddis@0:     case {'MAPmodel', 'MAPmodelMultiCh', 'MAPmodelSingleCh', 'MAPmodelListen',...
rmeddis@0:             'statsModelLogistic', 'statsModelRareEvent'}
rmeddis@0:         maskerEar=1;
rmeddis@0:         targetEar=1;
rmeddis@0: end
rmeddis@0: 
rmeddis@0: backgroundType=stimulusParameters.backgroundType;
rmeddis@0: switch stimulusParameters.backgroundType
rmeddis@0:     case {'noiseDich', 'pinkNoiseDich'}
rmeddis@0: %     case 'Dich'
rmeddis@0:         % dich means put the background in the ear opposite to the target
rmeddis@0:         backgroundType=backgroundType(1:end-4);
rmeddis@0:         switch targetEar
rmeddis@0:             case 1
rmeddis@0:                 backgroundEar=2;
rmeddis@0:             case 2
rmeddis@0:                 backgroundEar=1;
rmeddis@0:         end
rmeddis@0:     otherwise
rmeddis@0: %             case {'none','noise', 'pinkNoise', 'TEN','babble'}
rmeddis@0:         backgroundEar=targetEar;
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % ------------------------------- Make Stimulus -------------------
rmeddis@0: % single interval up/down plays cue then target stimulus
rmeddis@0: % 2IFC uses cue stimulus as interval with no target
rmeddis@0: globalStimParams.FS=stimulusParameters.sampleRate;
rmeddis@0: dt=1/stimulusParameters.sampleRate;
rmeddis@0: globalStimParams.dt=dt;
rmeddis@0: stimulusParameters.dt=dt; % for use later
rmeddis@0: 
rmeddis@0: % calibration of sound output
rmeddis@0: correctiondB=stimulusParameters.calibrationdB;
rmeddis@0: globalStimParams.audioOutCorrection=10^(correctiondB/20);
rmeddis@0: % the output will be reduced by this amount in stimulusCreate
rmeddis@0: % i.e.  audio=audio/globalStimParams.audioOutCorrection
rmeddis@0: % A 91 dB level will yield a peak amp of 1 for calibration=0
rmeddis@0: % A 91 dB level will yield a peak amp of 0.4467 for calibration=7
rmeddis@0: % A 98 dB level will yield a peak amp of 1 for calibration=7
rmeddis@0: 
rmeddis@0: precedingSilence=stimulusParameters.stimulusDelay;
rmeddis@0: % all stimuli have 20 ms terminal silence.
rmeddis@0: % this is clearance for modelling late-ringing targets
rmeddis@0: terminalSilence=.03;
rmeddis@0: 
rmeddis@0: % Now compute overall duration of the stimulus
rmeddis@0: % note that all endsilence values are set to -1
rmeddis@0: %  so that they will fill with terminal silence as required to make
rmeddis@0: %  components equal in length
rmeddis@0: % We need to find the longest possible duration
rmeddis@0: duration(1)=precedingSilence+maskerDuration+cueGapDuration...
rmeddis@0:     +targetDuration+terminalSilence;
rmeddis@0: duration(2)=precedingSilence+maskerDuration+gapDuration...
rmeddis@0:     +targetDuration+ terminalSilence;
rmeddis@0: % If the gap is negative we need to ignore it when estimating total length
rmeddis@0: duration(3)=precedingSilence+maskerDuration+ terminalSilence;
rmeddis@0: globalStimParams.overallDuration=max(duration);
rmeddis@0: globalStimParams.nSignalPoints=...
rmeddis@0:     round(globalStimParams.overallDuration/globalStimParams.dt);
rmeddis@0: 
rmeddis@0: %           ----------------------------------------------cue stimulus
rmeddis@0: % cue masker
rmeddis@0: componentNo=1;
rmeddis@0: precedingSilence=stimulusParameters.stimulusDelay;
rmeddis@0: stimComponents(maskerEar,componentNo).type=maskerType;
rmeddis@0: stimComponents(maskerEar,componentNo).toneDuration=cueMaskerDuration;
rmeddis@0: stimComponents(maskerEar,componentNo).frequencies=cueMaskerFrequency;
rmeddis@0: stimComponents(maskerEar,componentNo).amplitudesdB=cueMaskerLevel;
rmeddis@0: stimComponents(maskerEar,componentNo).beginSilence=precedingSilence;
rmeddis@0: stimComponents(maskerEar,componentNo).endSilence=-1;
rmeddis@0: stimComponents(maskerEar,componentNo).AMfrequency=0;
rmeddis@0: stimComponents(maskerEar,componentNo).AMdepth=0;
rmeddis@0: if rampDuration<maskerDuration
rmeddis@0:     % ramps must be shorter than the signal
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOnDur=rampDuration;
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOffDur=rampDuration;
rmeddis@0: else
rmeddis@0:     % or squeeze the ramp in
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOnDur=maskerDuration/2;
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOffDur=maskerDuration/2;
rmeddis@0: end
rmeddis@0: stimComponents(maskerEar,componentNo).phases=...
rmeddis@0:     stimulusParameters.maskerPhase;
rmeddis@0: stimComponents(maskerEar,componentNo).niterations=0;    % for IRN only
rmeddis@0: % stimComponents(targetEar,componentNo)
rmeddis@0: 
rmeddis@0: % cue target
rmeddis@0: componentNo=2;
rmeddis@0: precedingSilence=precedingSilence + maskerDuration+cueGapDuration;
rmeddis@0: stimComponents(targetEar,componentNo).type=targetType;
rmeddis@0: stimComponents(targetEar,componentNo).toneDuration=targetDuration;
rmeddis@0: stimComponents(targetEar,componentNo).frequencies=cueTargetFrequency;
rmeddis@0: stimComponents(targetEar,componentNo).amplitudesdB=cueTargetLevel;
rmeddis@0: stimComponents(targetEar,componentNo).beginSilence=precedingSilence;
rmeddis@0: stimComponents(targetEar,componentNo).endSilence=-1;
rmeddis@0: stimComponents(targetEar,componentNo).AMfrequency=0;
rmeddis@0: stimComponents(targetEar,componentNo).AMdepth=0;
rmeddis@0: if rampDuration<targetDuration
rmeddis@0:     % ramps must be shorter than the signal
rmeddis@0:     stimComponents(targetEar,componentNo).rampOnDur=rampDuration;
rmeddis@0:     stimComponents(targetEar,componentNo).rampOffDur=rampDuration;
rmeddis@0: else
rmeddis@0:     stimComponents(targetEar,componentNo).rampOnDur=0;
rmeddis@0:     stimComponents(targetEar,componentNo).rampOffDur=0;
rmeddis@0: end
rmeddis@0: stimComponents(targetEar,componentNo).phases=...
rmeddis@0:     stimulusParameters.targetPhase;
rmeddis@0: % stimComponents(targetEar,componentNo)
rmeddis@0: 
rmeddis@0: % background same ear as target
rmeddis@0: componentNo=3;
rmeddis@0: stimComponents(backgroundEar,componentNo).type=backgroundType;
rmeddis@0: switch backgroundType
rmeddis@0:     case 'TEN'
rmeddis@0:         fileName=['..' filesep '..' filesep ...
rmeddis@0:             'multithresholdResources' filesep ...
rmeddis@0:             'backgrounds and maskers'...
rmeddis@0:             filesep 'ten.wav'];
rmeddis@0:         [tenNoise, FS]=wavread(fileName);
rmeddis@0:         tenNoise=resample(tenNoise, globalStimParams.FS, FS);
rmeddis@0:         stimComponents(backgroundEar,componentNo).type='file';
rmeddis@0:         stimComponents(backgroundEar,componentNo).stimulus=tenNoise';
rmeddis@0: end
rmeddis@0: stimComponents(backgroundEar,componentNo).toneDuration=...
rmeddis@0:     globalStimParams.overallDuration;
rmeddis@0: stimComponents(backgroundEar,componentNo).amplitudesdB=backgroundLevel;
rmeddis@0: stimComponents(backgroundEar,componentNo).beginSilence=0;
rmeddis@0: stimComponents(backgroundEar,componentNo).endSilence=-1;
rmeddis@0: stimComponents(backgroundEar,componentNo).AMfrequency=0;
rmeddis@0: stimComponents(backgroundEar,componentNo).AMdepth=0;
rmeddis@0: stimComponents(backgroundEar,componentNo).rampOnDur=rampDuration;
rmeddis@0: stimComponents(backgroundEar,componentNo).rampOffDur=rampDuration;
rmeddis@0: 
rmeddis@0: [cueStimulus, errormsg]=...
rmeddis@0:     stimulusCreate(globalStimParams, stimComponents, 0);
rmeddis@0: if ~isempty(errormsg)     % e.g. limits exceeded
rmeddis@0:     errormsg
rmeddis@0:     return
rmeddis@0: end
rmeddis@0: 
rmeddis@0: %               ------------------------------------------ test stimulus
rmeddis@0: % masker
rmeddis@0: componentNo=1;
rmeddis@0: precedingSilence=stimulusParameters.stimulusDelay;
rmeddis@0: stimComponents(maskerEar,componentNo).type=maskerType;
rmeddis@0: stimComponents(maskerEar,componentNo).toneDuration=maskerDuration;
rmeddis@0: stimComponents(maskerEar,componentNo).frequencies=maskerFrequency;
rmeddis@0: stimComponents(maskerEar,componentNo).amplitudesdB=maskerLevel;
rmeddis@0: stimComponents(maskerEar,componentNo).beginSilence=precedingSilence;
rmeddis@0: stimComponents(maskerEar,componentNo).endSilence=-1;
rmeddis@0: stimComponents(maskerEar,componentNo).AMfrequency=0;
rmeddis@0: stimComponents(maskerEar,componentNo).AMdepth=0;
rmeddis@0: if rampDuration<maskerDuration
rmeddis@0:     % ramps must be shorter than the signal
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOnDur=rampDuration;
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOffDur=rampDuration;
rmeddis@0: else
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOnDur=maskerDuration/2;
rmeddis@0:     stimComponents(maskerEar,componentNo).rampOffDur=maskerDuration/2;
rmeddis@0: end
rmeddis@0: stimComponents(maskerEar,componentNo).phases=...
rmeddis@0:     stimulusParameters.maskerPhase;
rmeddis@0: stimComponents(maskerEar,componentNo).niterations=0;    % for IRN only
rmeddis@0: 
rmeddis@0: % target
rmeddis@0: componentNo=2;
rmeddis@0: targetDelay=precedingSilence+ maskerDuration+ gapDuration;
rmeddis@0: stimComponents(targetEar,componentNo).type=targetType;
rmeddis@0: stimComponents(targetEar,componentNo).toneDuration=targetDuration;
rmeddis@0: stimComponents(targetEar,componentNo).frequencies=targetFrequency;
rmeddis@0: stimComponents(targetEar,componentNo).amplitudesdB=targetLevel;
rmeddis@0: stimComponents(targetEar,componentNo).beginSilence=targetDelay;
rmeddis@0: stimComponents(targetEar,componentNo).endSilence=-1;
rmeddis@0: stimComponents(targetEar,componentNo).AMfrequency=0;
rmeddis@0: stimComponents(targetEar,componentNo).AMdepth=0;
rmeddis@0: if rampDuration<targetDuration
rmeddis@0:     % ramps must be shorter than the signal
rmeddis@0:     stimComponents(targetEar,componentNo).rampOnDur=rampDuration;
rmeddis@0:     stimComponents(targetEar,componentNo).rampOffDur=rampDuration;
rmeddis@0: else
rmeddis@0:     stimComponents(targetEar,componentNo).rampOnDur=0;
rmeddis@0:     stimComponents(targetEar,componentNo).rampOffDur=0;
rmeddis@0: end
rmeddis@0: stimComponents(targetEar,componentNo).phases=stimulusParameters.targetPhase;
rmeddis@0: % stimComponents(targetEar,componentNo)
rmeddis@0: 
rmeddis@0: % background same ear as target
rmeddis@0: componentNo=3;
rmeddis@0: stimComponents(backgroundEar,componentNo).type=backgroundType;
rmeddis@0: switch backgroundType
rmeddis@0:     case 'TEN'
rmeddis@0:         fileName=['..' filesep '..' filesep ...
rmeddis@0:             'multithresholdResources' filesep ...
rmeddis@0:             'backgrounds and maskers'...
rmeddis@0:             filesep 'ten.wav'];
rmeddis@0:         [tenNoise, FS]=wavread(fileName);
rmeddis@0: 
rmeddis@0:         tenNoise=resample(tenNoise, globalStimParams.FS, FS);
rmeddis@0:         stimComponents(backgroundEar,componentNo).type='file';
rmeddis@0:         stimComponents(backgroundEar,componentNo).stimulus=tenNoise';
rmeddis@0: end
rmeddis@0: stimComponents(backgroundEar,componentNo).toneDuration=...
rmeddis@0:     globalStimParams.overallDuration;
rmeddis@0: stimComponents(backgroundEar,componentNo).amplitudesdB=backgroundLevel;
rmeddis@0: stimComponents(backgroundEar,componentNo).beginSilence=0;
rmeddis@0: stimComponents(backgroundEar,componentNo).endSilence=-1;
rmeddis@0: stimComponents(backgroundEar,componentNo).rampOnDur=rampDuration;
rmeddis@0: stimComponents(backgroundEar,componentNo).rampOffDur=rampDuration;
rmeddis@0: stimComponents(backgroundEar,componentNo).AMfrequency=0;
rmeddis@0: stimComponents(backgroundEar,componentNo).AMdepth=0;
rmeddis@0: 
rmeddis@0: % timings used when evaluating MAP peripheral model
rmeddis@0: % this is the Slope during which spikes are counted
rmeddis@0: switch experiment.paradigm
rmeddis@0:     case 'gapDetection'
rmeddis@0:         % gap is the 'target' in this case
rmeddis@0:         stimulusParameters.testTargetBegins=...
rmeddis@0:             stimulusParameters.stimulusDelay...
rmeddis@0:             +stimulusParameters.maskerDuration;
rmeddis@0:         stimulusParameters.testTargetEnds=...
rmeddis@0:             stimulusParameters.testTargetBegins+withinRuns.variableValue;
rmeddis@0: %     case 'SRT'
rmeddis@0: %         set(handles.editdigitInput,'visible','off')
rmeddis@0:     otherwise
rmeddis@0:         stimulusParameters.testTargetBegins=targetDelay;
rmeddis@0:         stimulusParameters.testTargetEnds=targetDelay+targetDuration;
rmeddis@0: end
rmeddis@0: 
rmeddis@0: % ------------------------------------------------------------- play!
rmeddis@0: % Create and play stimulus (as required by different paradigms)
rmeddis@0: switch experiment.ear
rmeddis@0:     case {'statsModelLogistic', 'statsModelRareEvent'}
rmeddis@0:         audio=[0;0];            % no need to compute stimulus
rmeddis@0:         
rmeddis@0:     otherwise                   % create the stimulus
rmeddis@0:         [targetStimulus, errormsg]= ...
rmeddis@0:             stimulusCreate(globalStimParams, stimComponents, 0);
rmeddis@0:         
rmeddis@0:         if ~isempty(errormsg)   % e.g. limits exceeded
rmeddis@0:             errormsg
rmeddis@0:             return
rmeddis@0:         end
rmeddis@0:         
rmeddis@0:         switch experiment.ear
rmeddis@0:             case {'MAPmodel' , 'MAPmodelMultiCh', 'MAPmodelSingleCh', 'MAPmodelListen'}
rmeddis@0:                 % model requires no calibration correction;
rmeddis@0:                 %  signal is already in Pascals
rmeddis@0:                 globalStimParams.audioOutCorrection=1;
rmeddis@0:                 % use only the targetStimulus for the MAP model
rmeddis@0:                 audio=targetStimulus;
rmeddis@0:                 
rmeddis@0:             otherwise           % left, right diotic dichotic
rmeddis@0:                 if stimulusParameters.includeCue
rmeddis@0:                     audio= [cueStimulus;  targetStimulus];
rmeddis@0:                 else            % no cue
rmeddis@0:                     audio=targetStimulus;
rmeddis@0:                 end
rmeddis@0:         end
rmeddis@0:         
rmeddis@0:         % playtime
rmeddis@0:         % order of the cue and test stimuli varies for 2AFC
rmeddis@0:         switch experiment.threshEstMethod
rmeddis@0:             case {'2I2AFC++', '2I2AFC+++'}
rmeddis@0:                 % intervening silence (currently none; masking delay serves this purpose)
rmeddis@0:                 IAFCinterveningSilence=zeros(round(AFCsilenceDuration/dt),2);
rmeddis@0:                 if rand>0.5				% put test stimulus first
rmeddis@0:                     stimulusParameters.testTargetBegins=targetDelay ;
rmeddis@0:                     stimulusParameters.testTargetEnds= ...
rmeddis@0:                         targetDelay+targetDuration;
rmeddis@0:                     stimulusParameters.testNonTargetBegins=...
rmeddis@0:                         length(cueStimulus)*dt ...
rmeddis@0:                         + AFCsilenceDuration +targetDelay ;
rmeddis@0:                     stimulusParameters.testNonTargetEnds=...
rmeddis@0:                         length(cueStimulus)*dt ...
rmeddis@0:                         + AFCsilenceDuration+targetDelay+targetDuration;
rmeddis@0:                     
rmeddis@0:                     set(handles.pushbutton1,'backgroundcolor','r'), drawnow
rmeddis@0:                     y=audioplayer(targetStimulus, globalStimParams.FS, 24);
rmeddis@0:                     playblocking(y)
rmeddis@0:                     set(handles.pushbutton1,'backgroundcolor',...
rmeddis@0:                         get(0,'defaultUicontrolBackgroundColor')), drawnow
rmeddis@0:                     y=audioplayer(IAFCinterveningSilence, ...
rmeddis@0:                         globalStimParams.FS, 24);
rmeddis@0:                     playblocking(y)
rmeddis@0:                     set(handles.pushbutton2,'backgroundcolor','r'), drawnow
rmeddis@0:                     y=audioplayer(cueStimulus, globalStimParams.FS, 24);
rmeddis@0:                     playblocking(y)
rmeddis@0:                     set(handles.pushbutton2,'backgroundcolor',...
rmeddis@0:                         get(0,'defaultUicontrolBackgroundColor')), drawnow
rmeddis@0:                     withinRuns.stimulusOrder='targetFirst';
rmeddis@0:                     audio= [targetStimulus; IAFCinterveningSilence; ...
rmeddis@0:                         cueStimulus];   % for plotting purposes later
rmeddis@0:                     
rmeddis@0:                 else					% put test stimulus second
rmeddis@0:                     stimulusParameters.testTargetBegins=...
rmeddis@0:                         length(cueStimulus)*dt ...
rmeddis@0:                         + AFCsilenceDuration +targetDelay ;
rmeddis@0:                     stimulusParameters.testTargetEnds=...
rmeddis@0:                         length(cueStimulus)*dt ...
rmeddis@0:                         + AFCsilenceDuration+targetDelay+targetDuration;
rmeddis@0:                     stimulusParameters.testNonTargetBegins=targetDelay ;
rmeddis@0:                     stimulusParameters.testNonTargetEnds=...
rmeddis@0:                         targetDelay+targetDuration;
rmeddis@0:                     
rmeddis@0:                     set(handles.pushbutton1,'backgroundcolor','r'),drawnow
rmeddis@0:                     y=audioplayer(cueStimulus, globalStimParams.FS, 24);
rmeddis@0:                     playblocking(y)
rmeddis@0:                     set(handles.pushbutton1,'backgroundcolor',...
rmeddis@0:                         get(0,'defaultUicontrolBackgroundColor')), drawnow
rmeddis@0:                     y=audioplayer(IAFCinterveningSilence, ...
rmeddis@0:                         globalStimParams.FS, 24);
rmeddis@0:                     playblocking(y)
rmeddis@0:                     set(handles.pushbutton2,'backgroundcolor','r'), drawnow
rmeddis@0:                     y=audioplayer(targetStimulus, globalStimParams.FS, 24);
rmeddis@0:                     playblocking(y)
rmeddis@0:                     set(handles.pushbutton2,'backgroundcolor',...
rmeddis@0:                         get(0,'defaultUicontrolBackgroundColor')), drawnow
rmeddis@0:                     withinRuns.stimulusOrder='targetSecond';
rmeddis@0:                     audio= [cueStimulus; IAFCinterveningSilence; ...
rmeddis@0:                         targetStimulus];    % for plotting purposes later
rmeddis@0:                 end
rmeddis@0:             otherwise                       % singleInterval
rmeddis@0:                 if strcmp(experiment.ear,'MAPmodel') ...
rmeddis@0:                         || strcmp(experiment.ear,'MAPmodelMultiCh') ...
rmeddis@0:                         || strcmp(experiment.ear,'MAPmodelSingleCh') ...
rmeddis@0:                         ||strcmp(experiment.ear,'MAPmodelListen')
rmeddis@0:                     % don't play for MAPmodel
rmeddis@0:                     switch experiment.ear
rmeddis@0:                         % except on special request
rmeddis@0:                         case {'MAPmodelListen'}
rmeddis@0:                             y=audioplayer(audio, globalStimParams.FS, 24);
rmeddis@0:                             playblocking(y) % suspends operations until completed
rmeddis@0:                     end
rmeddis@0:                 else
rmeddis@0:                     y=audioplayer(audio, globalStimParams.FS, 24);
rmeddis@0:                     playblocking(y)
rmeddis@0:                 end	  %   if experiment.ear
rmeddis@0:         end	% switch experiment.threshEstMethod
rmeddis@0: end % switch experiment.ear
rmeddis@0: 
rmeddis@0: 
rmeddis@0: % switch experiment.ear
rmeddis@0: %     case	{'MAPmodel', 'MAPmodelListen',  'MAPmodelMultiCh','MAPmodelSingleCh'}
rmeddis@0: %         % save audio for later reference or for input to MAP model
rmeddis@0: %         wavwrite(audio/max(audio), globalStimParams.FS,32,'stimulus')
rmeddis@0: % end
rmeddis@0: 
rmeddis@0: % Panel 1
rmeddis@0: % graphical presentation of the stimulus
rmeddis@0: % NB shown *after* the stimulus has been presented
rmeddis@0: axes(expGUIhandles.axes1), cla
rmeddis@0: % plot is HW rectified and plotted as dB re 28e-6
rmeddis@0: % calibration is ignored
rmeddis@0: t=dt:dt:dt*length(audio);
rmeddis@0: plot(t,stimulusParameters.calibrationdB+20*log10((abs(audio)+1e-10)/28e-6))
rmeddis@0: % set(gca,'xtick',[])
rmeddis@0: ylim([-20 100])
rmeddis@0: ylabel('stimulus (dB SPL)')
rmeddis@0: xlim([0 t(end)])
rmeddis@0: grid on
rmeddis@0: header=[betweenRuns.variableName1  ': ' ...
rmeddis@0:     num2str(betweenRuns.var1Sequence(betweenRuns.runNumber))];
rmeddis@0: header=[header '      ' num2str(...
rmeddis@0:     betweenRuns.var2Sequence(betweenRuns.runNumber)) ':' ...
rmeddis@0:     betweenRuns.variableName2 ];
rmeddis@0: title(header)
rmeddis@0: