comparison multithreshold 1.46/expGUI_MT.m @ 9:ecad0ea62b43

May27 mainly better parameters

 %
 % See also: GUIDE, GUIDATA, GUIHANDLES
 
 % Edit the above text to modify the response to help expGUI_MT
 
-% Last Modified by GUIDE v2.5 07-Apr-2011 07:20:00
+% Last Modified by GUIDE v2.5 29-May-2011 16:02:02
 
 % Begin initialization code - DO NOT EDIT
 gui_Singleton = 1;
 gui_State = struct('gui_Name',       mfilename, ...
     'gui_Singleton',  gui_Singleton, ...

 % identify paradigm selected
 chosenOption=get(handles.popupmenuParadigm,'value');
 paradigm=paradigmNames{chosenOption};
 experiment.paradigm=paradigm;
 
-%Paradigm: read in all relevant parameters
+        %Paradigm: read in all relevant parameters
 % a file must exist with this name 'paradigm_<paradigm>'
 % 'handles' are only occasionally used
 addpath ('paradigms')
 cmd=['paradigm_' paradigm '(handles);'];
 try

 catch
     error(['ExpGUI\aParadigmSelection:'...
         'paradigm file not found or error in file'])
 end
 rmpath ('paradigms')
+
+switch experiment.paradigm
+    % identify masker free paradigms
+    case {'training', 'discomfort','absThreshold', 'absThreshold_8',...
+            'absThreshold_16','TENtest', 'threshold_duration','SRT'...
+            'paradigm_thr_IFMC'}
+        experiment.maskerInUse=0;
+    otherwise
+        experiment.maskerInUse=1;
+end
 
 % if a variable is subject to change, specify list of values here
 % eg. stimulusParameters.targetFrequency=betweenRuns.variableList1;
 cmd=['stimulusParameters.' ...
     betweenRuns.variableName1 '=betweenRuns.variableList1;'];

 idx= find(strcmp(stimulusParameters.maskerType, maskerTypes));
 set(handles.popupmenuMaskerType,'value', idx)
 
 aShowRelevantObjects(handles)
 
-% % backgroundType
+% % backgroundType popup
 idx= find(strcmp(stimulusParameters.backgroundType, backgroundTypes));
 set(handles.popupmenuBackgroundType,'value', idx)
 set(handles.editBackgroundLevel,'string', ...
     num2str(stimulusParameters.backgroundLevel))
 
 % ---------------------------------------------- aShowRelevantObjects
 function aShowRelevantObjects(handles)
 global experiment stimulusParameters
+% called from aShowRelevantObjects
 % always on
 set(handles.edittargetLevel, 'visible', 'on')
 set(handles.edittargetDuration, 'visible', 'on')
 set(handles.edittargetFrequency, 'visible', 'on')
 
 switch experiment.ear
     case {'statsModelLogistic', 'statsModelRareEvent'}
         set(handles.editStatsModel, 'visible', 'on')
         set(handles.textStatsModel, 'visible', 'on')
         set(handles.pushbuttonStop, 'visible', 'on')
-        set(handles.pushbuttonOME, 'visible', 'off')
-        set(handles.pushbuttonBM, 'visible', 'off')
-        set(handles.pushbuttonRP, 'visible', 'off')
-        set(handles.pushbuttonAN, 'visible', 'off')
-        set(handles.pushbuttonRF, 'visible', 'off')
-        set(handles.pushbuttonSYN, 'visible', 'off')
-        set(handles.pushbuttonFM, 'visible', 'off')
-        set(handles.pushbuttonParams, 'visible', 'off')
-        set(handles.pushbuttonSingleShot, 'visible', 'off')
+showModelPushButtons(handles, 0)
         set(handles.editCatchTrialRate, 'visible', 'off')
         set(handles.textCatchTrials, 'visible', 'off')
         set(handles.editcalibrationdB, 'visible', 'off')
         set(handles.textcalibration, 'visible', 'off')
         set(handles.popupmenuCueNoCue, 'visible', 'off')
         set(handles.textCue, 'visible', 'off')
         set(handles.editMusicLevel,'visible', 'off')
         set(handles.textMusicLevel,'visible', 'off')
-        set(handles.editMAPplot,'visible', 'off')
-        set(handles.textMAPplot,'visible', 'off')
         
     case {'MAPmodel',  'MAPmodelListen', 'MAPmodelMultiCh', 'MAPmodelSingleCh'}
         set(handles.popupmenuCueNoCue, 'visible', 'off')
         set(handles.editStatsModel, 'visible', 'off')
         set(handles.textStatsModel, 'visible', 'off')
         set(handles.pushbuttonStop, 'visible', 'on')
-        set(handles.pushbuttonOME, 'visible', 'on')
-        set(handles.pushbuttonBM, 'visible', 'on')
-        set(handles.pushbuttonRP, 'visible', 'on')
-        set(handles.pushbuttonAN, 'visible', 'on')
-        set(handles.pushbuttonRF, 'visible', 'on')
-        set(handles.pushbuttonSYN, 'visible', 'on')
-        set(handles.pushbuttonFM, 'visible', 'on')
-        set(handles.pushbuttonParams, 'visible', 'on')
-        set(handles.pushbuttonSingleShot, 'visible', 'on')
+showModelPushButtons(handles, 1)
         set(handles.editcalibrationdB, 'visible', 'off')
         set(handles.textcalibration, 'visible', 'off')
         set(handles.textCue, 'visible', 'off')
         set(handles.editMusicLevel,'visible', 'off')
         set(handles.textMusicLevel,'visible', 'off')
-        set(handles.editMAPplot,'visible', 'on')
-        set(handles.textMAPplot,'visible', 'on')
         
     otherwise
+        % i.e. using real subjects (left, right, diotic, dichotic)
         set(handles.editStatsModel, 'visible', 'off')
         set(handles.textStatsModel, 'visible', 'off')
         set(handles.pushbuttonStop, 'visible', 'off')
-        set(handles.pushbuttonOME, 'visible', 'off')
-        set(handles.pushbuttonBM, 'visible', 'off')
-        set(handles.pushbuttonRP, 'visible', 'off')
-        set(handles.pushbuttonAN, 'visible', 'off')
-        set(handles.pushbuttonRF, 'visible', 'off')
-        set(handles.pushbuttonSYN, 'visible', 'off')
-        set(handles.pushbuttonFM, 'visible', 'off')
-        set(handles.pushbuttonParams, 'visible', 'off')
-        set(handles.pushbuttonSingleShot, 'visible', 'off')
+showModelPushButtons(handles, 0)
         set(handles.editCatchTrialRate, 'visible', 'on')
         set(handles.textCatchTrials, 'visible', 'on')
         set(handles.editcalibrationdB, 'visible', 'on')
         set(handles.textcalibration, 'visible', 'on')
         set(handles.popupmenuCueNoCue, 'visible', 'on')
         set(handles.textCue, 'visible', 'on')
         set(handles.editMusicLevel,'visible', 'on')
         set(handles.textMusicLevel,'visible', 'on')
-        set(handles.editMAPplot,'visible', 'off')
-        set(handles.textMAPplot,'visible', 'off')
 end
 
 switch experiment.threshEstMethod
     case {'MaxLikelihood','oneIntervalUpDown'}
         set(handles.popupmenuCueNoCue,'visible', 'on')

         set(handles.textCue,'visible', 'off')
         set(handles.editcueTestDifference,'visible', 'off')
         set(handles.textcueTestDifference,'visible', 'off')
 end
 
-
 % show/ remove masker related boxes
-switch experiment.paradigm
-    % masker free paradigms
-    case {'training', 'discomfort','absThreshold', 'absThreshold_8',...
-            'TENtest', 'threshold_duration','SRT'}
-        set(handles.editmaskerDuration,'visible', 'off')
-        set(handles.editmaskerLevel,'visible', 'off')
-        set(handles.editmaskerRelativeFrequency,'visible', 'off')
-        set(handles.editgapDuration,'visible', 'off')
-        set(handles.textmaskerDuration,'visible', 'off')
-        set(handles.textmaskerLevel,'visible', 'off')
-        set(handles.textmaskerRelativeFrequency,'visible', 'off')
-        set(handles.textgapDuration,'visible', 'off')
-        set(handles.popupmenuMaskerType,'visible', 'off')
-        set(handles.textMaskerType,'visible', 'off')
-        
-        % paradigms with maskers
-    case {'forwardMasking','forwardMaskingD','trainingIFMC', 'TMC','TMC_16ms', ...
-           'TMCmodel','IFMC','IFMC_8ms', 'IFMC_16ms','GOM','overShoot','overShootB',...
-           'gapDetection', 'psychometric', 'FMreProbe'}
-        set(handles.editmaskerDuration,'visible', 'on')
-        set(handles.editmaskerLevel,'visible', 'on')
-        set(handles.editmaskerRelativeFrequency,'visible', 'on')
-        set(handles.editgapDuration,'visible', 'on')
-        set(handles.popupmenuMaskerType,'visible', 'on')
-        set(handles.textmaskerDuration,'visible', 'on')
-        set(handles.textmaskerLevel,'visible', 'on')
-        set(handles.textmaskerRelativeFrequency,'visible', 'on')
-        set(handles.textgapDuration,'visible', 'on')
-        set(handles.popupmenuMaskerType,'visible', 'on')
-        set(handles.textMaskerType,'visible', 'on')
-        % masker relative frequency /type
-        chosenOption=get(handles.popupmenuMaskerType,'value');
-        maskerTypes=get(handles.popupmenuMaskerType,'string');
-        maskerType=maskerTypes{chosenOption};
-        switch maskerType
-            case 'tone'
-                set(handles.editmaskerRelativeFrequency,'visible', 'on')
-            otherwise
-                set(handles.editmaskerRelativeFrequency,'visible', 'off')
-        end
+if ~experiment.maskerInUse
+    set(handles.editmaskerDuration,'visible', 'off')
+    set(handles.editmaskerLevel,'visible', 'off')
+    set(handles.editmaskerRelativeFrequency,'visible', 'off')
+    set(handles.editgapDuration,'visible', 'off')
+    set(handles.textmaskerDuration,'visible', 'off')
+    set(handles.textmaskerLevel,'visible', 'off')
+    set(handles.textmaskerRelativeFrequency,'visible', 'off')
+    set(handles.textgapDuration,'visible', 'off')
+    set(handles.popupmenuMaskerType,'visible', 'off')
+    set(handles.textMaskerType,'visible', 'off')
+
+    % paradigms with maskers
+else
+    set(handles.editmaskerDuration,'visible', 'on')
+    set(handles.editmaskerLevel,'visible', 'on')
+    set(handles.editmaskerRelativeFrequency,'visible', 'on')
+    set(handles.editgapDuration,'visible', 'on')
+    set(handles.popupmenuMaskerType,'visible', 'on')
+    set(handles.textmaskerDuration,'visible', 'on')
+    set(handles.textmaskerLevel,'visible', 'on')
+    set(handles.textmaskerRelativeFrequency,'visible', 'on')
+    set(handles.textgapDuration,'visible', 'on')
+    set(handles.popupmenuMaskerType,'visible', 'on')
+    set(handles.textMaskerType,'visible', 'on')
+    % masker relative frequency /type
+    chosenOption=get(handles.popupmenuMaskerType,'value');
+    maskerTypes=get(handles.popupmenuMaskerType,'string');
+    maskerType=maskerTypes{chosenOption};
+    switch maskerType
+        case 'tone'
+            set(handles.editmaskerRelativeFrequency,'visible', 'on')
+        otherwise
+            set(handles.editmaskerRelativeFrequency,'visible', 'off')
+    end
 end
 
 eval(['set(handles.edit' stimulusParameters.WRVname ...
     ',''visible'',''off'' )'])
 

     set(handles.popupmenuBackgroundType, 'visible', 'on');
     set(handles.editBackgroundLevel,'visible','on')
     set(handles.textBGlevel,'visible','on')
 end
 
-
+% ------------------------------------------------ showModelPushButtons
+function showModelPushButtons(handles,on)
+if on
+    set(handles.pushbuttonOME, 'visible', 'on')
+    set(handles.pushbuttonBM, 'visible', 'on')
+    set(handles.pushbuttonRP, 'visible', 'on')
+    set(handles.pushbuttonAN, 'visible', 'on')
+    set(handles.pushbuttonPhLk, 'visible', 'on')
+    set(handles.pushbuttonSYN, 'visible', 'on')
+    set(handles.pushbuttonFM, 'visible', 'on')
+    set(handles.pushbuttonParams, 'visible', 'on')
+    set(handles.pushbuttonSingleShot, 'visible', 'on')
+    set(handles.editMAPplot,'visible', 'on')
+    set(handles.textMAPplot,'visible', 'on')
+
+else
+    set(handles.pushbuttonOME, 'visible', 'off')
+    set(handles.pushbuttonBM, 'visible', 'off')
+    set(handles.pushbuttonRP, 'visible', 'off')
+    set(handles.pushbuttonAN, 'visible', 'off')
+    set(handles.pushbuttonPhLk, 'visible', 'off')
+    set(handles.pushbuttonSYN, 'visible', 'off')
+    set(handles.pushbuttonFM, 'visible', 'off')
+    set(handles.pushbuttonParams, 'visible', 'off')
+    set(handles.pushbuttonSingleShot, 'visible', 'off')
+    set(handles.editMAPplot,'visible', 'off')
+    set(handles.textMAPplot,'visible', 'off')
+
+end
 
 % ------------------------------------------------ pushbuttonRun_Callback
 function pushbuttonRun_Callback(hObject, eventdata, handles)
 global checkForPreviousGUI % holds screen positioning across repeated calls 
-global experiment
+global experiment betweenRuns paradigmNames
 checkForPreviousGUI.GUIposition=get(handles.figure1,'position');
 experiment.singleShot=0;
-run (handles)
-experiment.stop=0;
+switch experiment.paradigm
+    case 'thr_IFMC'
+        %% special option for two successive and linked measurements
+        experiment.paradigm='threshold_16ms';
+        set(handles.editstopCriteriaBox,'string','30') % nTrials
+        run (handles)
+        
+        % use these threshold for IFMC
+        thresholds16ms=betweenRuns.thresholds;
+        optionNo=strmatch('IFMC_16ms',paradigmNames);
+        set(handles.popupmenuParadigm,'value',optionNo);
+        aParadigmSelection(handles)
+        set(handles.edittargetLevel,'string', thresholds16ms+10);
+        set(handles.editstopCriteriaBox,'string','30')  % nTrials
+        pause(.1) 
+        run (handles)
+        
+        % reset original paradigm
+        optionNo=strmatch('thr_IFMC',paradigmNames);
+        set(handles.popupmenuParadigm,'value',optionNo);
+        aParadigmSelection(handles)
+
+    case 'thr_TMC'
+        %% special option for two successive and linked measurements
+        experiment.paradigm='threshold_16ms';
+        set(handles.edittargetDuration,'string', num2str(0.25))
+        set(handles.editstopCriteriaBox,'string','30') % nTrials
+        run (handles)
+        
+        set(handles.edittargetDuration,'string', num2str(0.016))
+        set(handles.editstopCriteriaBox,'string','30') % nTrials
+        run (handles)
+
+        % use these threshold for TMC
+        thresholds16ms=betweenRuns.thresholds;
+        optionNo=strmatch('TMC_16ms',paradigmNames);
+        set(handles.popupmenuParadigm,'value',optionNo);
+        aParadigmSelection(handles)
+        set(handles.edittargetLevel,'string', thresholds16ms+10);
+        set(handles.editstopCriteriaBox,'string','30')  % nTrials
+        pause(.1) 
+        run (handles)
+        
+        % reset original paradigm
+        optionNo=strmatch('thr_TMC',paradigmNames);
+        set(handles.popupmenuParadigm,'value',optionNo);
+        aParadigmSelection(handles)
+
+    otherwise
+        run (handles)
+        experiment.stop=0;
+end
 
 function run (handles)
 global experiment expGUIhandles stimulusParameters
 tic
 expGUIhandles=handles;

         && length(stimulusParameters.WRVstartValues)>1
     errorMsg='multiple WRVstartValues inappropriate';
     return
 end
 
+% set the target level in advance for every wnticipated run
 switch experiment.paradigm
-    %     case { 'TMC',  'TMCmodel','IFMC'}
-    case {'trainingIFMC', 'TMC','TMC_16ms', 'TMC - ELP', 'IFMC', 'IFMC_16ms'}
-        
+    case {'trainingIFMC', 'TMC','TMC_16ms', 'TMC - ELP', ...
+            'IFMC', 'IFMC_16ms'}
         % For TMC and IFMC multiple target levels can be set
         if length(stimulusParameters.targetLevel)==1
             betweenRuns.targetLevels=...
                 repmat(stimulusParameters.targetLevel, 1, ...
                 length(betweenRuns.variableList1)...
                 *length(betweenRuns.variableList2));
         elseif length(stimulusParameters.targetLevel)==...
                 length(betweenRuns.variableList2)
+            % only one level specified, so use this throughout
             x=stimulusParameters.targetLevel;
             x=repmat(x,length(betweenRuns.variableList1),1);
             x=reshape(x,1,length(betweenRuns.variableList1)*length(betweenRuns.variableList2));
             betweenRuns.targetLevels=x;
         else

 global  stimulusParameters experiment
 aReadAndCheckParameterBoxes(handles);
 testBM(stimulusParameters.targetFrequency, experiment.name);
 
 function pushbuttonAN_Callback(hObject, eventdata, handles)
+global stimulusParameters
 aReadAndCheckParameterBoxes(handles);
 % now carry out tests
 showPSTHs=0;
-testAN
-
-function pushbuttonRF_Callback(hObject, eventdata, handles)
+targetFrequency=stimulusParameters.targetFrequency(1);
+BFlist=targetFrequency;
+
+testAN(targetFrequency,BFlist);
+
+function pushbuttonPhLk_Callback(hObject, eventdata, handles)
 aReadAndCheckParameterBoxes(handles);
-showPSTHs=1;
-testRF
+testPhaseLocking
 
 function pushbuttonSYN_Callback(hObject, eventdata, handles)
 aReadAndCheckParameterBoxes(handles);
 testSynapse