问MATLAB遇到内部错误，需要关闭

EN

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%  SCREEN & AUDIO SETUP %%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%%%%%%%%%%%%
%% SCREEN %%
%%%%%%%%%%%%

% Set up a nice blank screen.
whichScreen = 0;

% Full Screen mode
%window = Screen(whichScreen, 'OpenWindow');

% Small screen mode used for code testing
window = Screen('OpenWindow',0, [450 450 500], [5,5, 550,550]);

white = WhiteIndex(window); % pixel value for white
Screen(window, 'FillRect', white);
Screen(window, 'Flip');

% Set global text size for the display.
Screen('TextSize', window, 15);
Screen(window,'TextFont','Arial');
Screen('TextStyle', window, 0)


%%%%%%%%%%%
%% AUDIO %%
%%%%%%%%%%%

% Set initial audio parameters:
nrchannels = 1; % All stimuli are mono-sounds.
freq = 44100;

% Initialize sound driver.
InitializePsychSound;

try
    pahandle = PsychPortAudio('Open', [], [], 3, freq, nrchannels);
catch
    % If the above fails, use the audio device's standard frequency.
    psychlasterror('reset'); % I believe this some reseting of the error made in 'try'.
    pahandle = PsychPortAudio('Open', [], [], 3, [], nrchannels);
end



%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%
%%%%% MAIN LOOP %%%%%
%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%


home = '/Users/josh/Dropbox/Beverlab/Fall_2013_Study/Design/Matlab/'

SampleExperiment = {strcat(home,'Stimuli/tokensA/gipa_mono.wav'),...
    strcat(home,'Stimuli/tokensB/gabo_mono.wav')};


timeLimit = 10; % Set up the time limit.
ans = 0;  % This is used to track whether or not the participant answered.
numStim = 2; % Just using 2 right now to test the code

ListenChar(0);

for i=1:numStim;
    token = char(SampleExperiment(1,randi([1,2]))); % randomly select a wave file from 'SampleExperiment' and assign it to 'token'
    [y,freq] = wavread(token); % Read the current wav file.
    wavedata = y';  % Transpose wav data.
    PsychPortAudio('FillBuffer', pahandle, wavedata); % fill the buffer, ready to play
    t1 = PsychPortAudio('Start', pahandle, 1, 0, 1); % play the wave file and get timestamp in one go

    while GetSecs<t1+timeLimit
        if ans<6
            [secs, keyCode, deltaSecs] = KbWait([],2,t1+timeLimit);
            if isempty(find(keyCode,1))
                break
            end
            if ~isempty(find(keyCode,1))
                ans=ans+1;
            end
        end
        if ans==6
            WaitSecs(rand*3+1);
            break
        end
    end
    if ans<6
        DrawFormattedText(window, 'Lets try that again...press 6 times', 'center', 'center');
        Screen(window, 'Flip');
        WaitSecs(1);
        Screen(window, 'FillRect', white);
        Screen(window, 'Flip');

        [y,freq] = wavread(token); % Read the current wav file.
        wavedata = y';  % Transpose wav data.
        PsychPortAudio('FillBuffer', pahandle, wavedata); % fill the buffer, ready to play
        t1 = PsychPortAudio('Start', pahandle, 1, 0, 1); % play the wave file and get timestamp in one go

        while GetSecs<t1+timeLimit
            if ans<6
                [secs, keyCode, deltaSecs] = KbWait([],2,t1+timeLimit);
                if isempty(find(keyCode,1))
                    break
                end
                if ~isempty(find(keyCode,1))
                    ans=ans+1;
                end
            end
            if ans==6
                WaitSecs(rand*3+1);
                break
            end
        end
    end
end


Screen('CloseAll')