如何使用Psychtoolbox在有限的时间内呈现刺激并仍然记录响应

时间:2018-08-24 18:51:53

标签: octave response-time psychtoolbox

对于我的实验,我想向参与者展示刺激和一些说明。然后2秒后,我希望刺激消失,但要保留指示,直到参与者做出反应。参与者应能够在刺激出现后立即做出反应,并且在刺激出现后最多10秒钟内做出反应。响应时间将被记录。

使用我当前的代码,参与者直到2秒钟后(刺激消失后)才能够做出响应。在屏幕上仍留有说明的情况下,刺激是否只出现2秒,但是参与者在刺激出现后能够立即做出反应?

%Show the instructions and the stimulus   
           Screen('DrawTexture', window, randFaceTexture2);
           DrawFormattedText(window, [instructions1], 'center', 600)

           stimTime = Screen('Flip', window);

           WaitSecs(2);

           %Stimulus disappears but instructions remain 
           DrawFormattedText(window, [instructions1], 'center', 600)
           Screen('Flip', window);

           if GetSecs() <= stimTime + 10
           keyIsDown = 0;
           startTime = GetSecs();
                while 1
                     [keyIsDown, secs, keyCode] = KbCheck;
                     FlushEvents('keyDown');
                     if keyIsDown
                          nKeys = sum(keyCode);
                               if nKeys == 1
                                    if keyCode(yes) || keyCode(no)
                                         reactionTime = 1000*(GetSecs - startTime);
                                         response = KbName(keyCode);
                                         Screen('Flip', window);
                                         break;
                                    elseif keyCode(escKey)
                                         ShowCursor;
                                         fclose(outfile);
                                         Screen('CloseAll');
                                    return 
                                    end 
                                    keyIsDown = 0;
                                    keyCode = 0;
                               end 
                     end 
                end 
           else 
                line3 = 'Sorry you''re out of time';
                DrawFormattedText(window, line3, 'center', 'center');
                Screen('Flip', window);
                keyIsDown = 0;
                rt = 0;
           end

1 个答案:

答案 0 :(得分:0)

代替使用WaitSecs()控制刺激物在屏幕上的显示时间,而是在经过适当的时间后,在响应检查循环中关闭刺激物。这是一个片段,显示了您对以上代码的相关更改。我省略了您如何轮询响应的详细信息。顺便说一句,我认为您对'if GetSecs()<= stimTime + 10'的使用可能无法实现您想要的功能,在您的代码中,该语句只会被评估一次,并且永远是正确的。

% time in seconds for the stimulus to remain onscreen
timeForStimulus = 2;
% time for the participant to respond, in seconds
timeToRespond = 10;

%Show the instructions and the stimulus
Screen('DrawTexture', window, randFaceTexture2);
DrawFormattedText(window, [instructions1], 'center', 600)

stimTime = Screen('Flip', window);
stimOnScreen = 1;

while GetSecs() <= (stimTime + timeToRespond)
    % turn the stimulus off, if the stim is on and the stim time has elapsed
    if (stimOnScreen == 1) && (GetSecs() > (stimTime + timeForStimulus))
        %Stimulus disappears but instructions remain
        DrawFormattedText(window, [instructions1], 'center', 600)
        Screen('Flip', window);
        stimOnScreen = 0;
    end

    % poll for keyboard response, etc.

end