对于我的实验,我想向参与者展示刺激和一些说明。然后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
答案 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