xsearch

 19 July 17:21   

    function achievement = xsearch3()

    % all-encompassing beheld seek architecture

    % started 12/06/2005

    % accepted 12/06/2005

    % Todd S. Horowitz

    global screenRect MainWindow

    % this bit should create the cipher windows/macos9 portable

    if strcmp(computer, PCWIN)

     warning off MATLAB:DeprecatedLogicalAPI;

    end

    % get constant ascribe (optional)

    prompt = ;

    defaults = ;

    answer = inputdlg(prompt, Beginning Bureaucracy Information, 1, defaults);

    % now break answer

     = deal(answer);

    pTrials = str2num(pTrials);

    xTrials = str2num(xTrials);

    setsizes = str2num(setsizes);

    % additional above variables

    formatString = %s, %d, %d, %d, %d, %d, %d, %d, %d
; % this is for data output

    % adored variables: subject, block, trial, target, setSize, timeoutFlag, wrongKeyFlag, err, RT

    keys = ; % acknowledgment key assignments

    dataFileName = xsearch3Data;

    jitter = 10; % coordinates of stimuli will alter by up to this abundant in their filigree cells

    if exist(dataFileName, file) white

     midGray=black;

    end

    darkGray = (midGray+black)/2;

    lightGray = (midGray+white)/2;

    red = 1;

    blue = 2;

    green = 3;

    clut = screen(MainWindow, GetClut);

    clut (red + 1, :) = ;

    clut (blue + 1, :) = ;

    clut (green + 1, :) = ;

    if dacBits 1

     blockMessage = Convenance ;

     nTrials = pTrials;

     else

     blockMessage = Beginning ;

     nTrials = xTrials;

     end

     nTrialString = num2str(nTrials);

     screen(MainWindow, FillRect, midGray);

     message = ;

     CenterText(message);

     SitnWait;

    

     % balloon routine

     for balloon = 1:nTrials

     screen(MainWindow, FillRect, backgroundColor); %start with a bare screen

     screen(stimulus, FillRect, backgroundColor); %start with a bare screen

    

     % now baddest balloon properties

     target = randi(2); % 1 = ambition present, 2 = ambition absent

     setSize = setsizes(randi(nSetSizes));

     positionIndex = randperm(nPositions); % randomize adjustment of bang placement

     selectItem = mod(randperm(setSize ) - 1, 4) + 1; % this ensures that distractor types will be broadcast evenly

    

     % put stimuli assimilate bang screen

     for i = 1:setSize

     if ambition 1

     item = t(selectItem(1));

     else

     item = d(selectItem(i));

     end

     dx = round(randi(jitter) - jitter/2);

     dy = round(randi(jitter) - jitter/2);

     itemRect = CenterRectOnPoint(objectRect, X(positionIndex(i)) + dx, Y(positionIndex(i)) + dy);

     screen(CopyWindow, item, stimulus, objectRect, itemRect);

     end

    

     % present fixation cross

     screen(CopyWindow, fixation, MainWindow, objectRect, fixationRect);

     screen(MainWindow, WaitBlanking, fixationDuration); % synch to the vertical brace for fixationDuration refreshes

     % now archetype affectation to awning in one fell swoop

     screen(CopyWindow, stimulus, MainWindow, stimulusRect, fieldRect);

    

     % now delay for a response

     initTime = GetSecs;

     response = ;

    

     while isempty(response)&(GetSecs - initTime) < maxWait

     = KbCheck;

     if keyIsDown

     response = find(keyCode);

     response = response(1);

     responseTime = KbTime;

     end

     end

    

     if isempty(response)

     timeoutFlag = 1;

     err = 1;

     feedback = Time out!;

     RT = 0;

     else

     timeoutFlag = 0;

     responseKey = find(keys target

     err = 0;

     feedback = Correct!;

     else

     err = 1;

     feedback = Wrong!;

     end

     end

    

     % save balloon data

     % agenda that you should accessible and abutting the book every time you address to it, contrarily you may lose data in crashes

     dataFile = fopen(dataFileName, a);

     fprintf(dataFile, formatString, subject, block, trial, target, setSize, timeoutFlag, wrongKeyFlag, err, RT);

     fclose(dataFile);

    

    

     screen(MainWindow, FillRect, midGray);

     CenterText();

     WaitSecs(1);

    

     end % balloon loop

    end % block loop

    % apple-pie up and go home

    screen(MainWindow, FillRect, midGray);

    CenterText(Thank you for participating);

    SitnWait;

    clear screen;

    function SitnWait()

    FlushEvents(keyDown);

    GetChar;

    function CenterText (message, xoffset, yoffset, color, window)

    % book a argument cord centered on the screen

    % syntax = CenterText (message, , , , )

    % if you wish the argument account from center, use xoffset and yoffset

    % if window is not specified, prints to MainWindow, which haveto be a all-around in the calling function

    % 2/23/2000 accepts blush option

    % 4/23/2002 can now book to offscreen windows

    global screenX

    global screenY

    global MainWindow

    switch nargin

    case 1

     xoffset=0;

     yoffset=0;

     color = ;

     window = MainWindow;

    case 2

     yoffset=0;

     color = ;

     window = MainWindow;

    case 3

     color = ;

     window = MainWindow;

    case 4

     window = MainWindow;

    end

    windowRect = screen(window, Rect);

    width = screen(window, TextWidth, message);

    screen(window, DrawText, message, ((windowRect(3)/2)-(width/2))+xoffset, (windowRect(4)/2)+yoffset, color);

    function CenterCellText(window, messages, spacing, color)

    % prints a corpuscle arrangement of argument strings centered on the screen

    % syntax = CenterCellText(window, messages, , )

    % letters is a corpuscle arrangement of curve of text

    % agreement governs the ambit amid curve of text, in pixels

    % absence agreement is 20 pixels

    % added blush advantage 1/17/2003; alone does one blush for the accomplished thing

    % anchored amount of options bug 01/24/2003

    defaultSpacing = 30;

    switch nargin

    case 0

     error(CenterCellText requires at atomic two arguments!);

    case 1

     error(CenterCellText requires at atomic two arguments!);

    case 2

     spacing = defaultSpacing;

     color = ;

    case 3

     color = ;

    end

    lines = breadth (messages);

    % acquisition the average line

    middleLine = round(lines/2);

    yOffset = spacingfor y = 1:lines

     CenterText(messages, 0, yOffset(y), color, window);

    end