2

我有这个程序，如您所见，它从目录中提取随机图片，并要求用户进行比较。使用滑块设置值后，用户按下“下一次试用”按钮，重置滑块和随机图片对。如何修改代码，以便在重复一定次数（按下按钮）后，程序自动结束（最好带有“实验结束”消息）？

我在 MATLAB 文档中找不到有关如何执行此操作的任何信息。我是否需要设置一个变量，以便每次按下按钮时都会将“1”添加到变量的值中，以便当它达到某个数字（例如“100”）时终止？这是最简单的方法吗？

这是脚本：

function trials

files = dir(fullfile('samples','*.png'));
nFiles = numel(files);
combos = nchoosek(1:nFiles, 2);
index = combos(randperm(size(combos, 1)), :);
picture1 = files(index(1)).name;
picture2 = files(index(2)).name;
image1 = fullfile('samples',picture1);
image2 = fullfile('samples',picture2);
subplot(1,2,1); imshow(image1);
subplot(1,2,2); imshow(image2);

uicontrol('Style', 'text',...
        'Position', [200 375 200 20],...
        'String','How related are these pictures?');
uicontrol('Style', 'text',...
        'Position', [50 375 100 20],...
        'String','Unrelated');
uicontrol('Style', 'text',...
        'Position', [450 375 100 20],...
        'String','Closely related');
uicontrol('Style','pushbutton','String','Next Trial',...
        'Position', [250 45 100 20],...
        'Callback','clf; trials()');

h = uicontrol(gcf,...
   'Style','slider',...
   'Min' ,0,'Max',50, ...
   'Position',[100 350 400 20], ...
   'Value', 25,...
   'SliderStep',[0.02 0.1], ...
   'BackgroundColor',[0.8,0.8,0.8]);

set(gcf, 'WindowButtonMotionFcn', @cb);

lastVal = get(h, 'Value'); 

function cb(s,e)
    if get(h, 'Value') ~= lastVal 
    lastVal = get(h, 'Value'); 
    fprintf('Slider value: %f\n', lastVal); 
    end
end

end
4

1 回答 1

3

我在这里看到的一个问题是“下一次试用”按钮的回调只是trials再次调用该函数。这将再次生成图像组合，您只希望/需要执行一次。您应该将回调设置为另一个嵌套函数（如cb），以便它可以访问已经生成的组合。

另一个问题是如何初始化picture1和picture2. 您应该像这样进行索引：

picture1 = files(index(1,1)).name;  %# Note that index is 2-dimensional!
picture2 = files(index(1,2)).name;

现在，您首先要初始化一个变量来跟踪函数内的试验次数trials，以及最大试验次数：

nReps = 1;
maxReps = 100;

然后您的“下一次试用”按钮回调将如下所示：

function newTrial(s, e)
    %# I assume you need the slider value for each trial, so fetch it
    %#   and save/store it here.

    %# Check the number of trials:
    if (nReps == maxReps)
        close(gcf);  %# Close the figure window
    else
        nReps = nReps + 1;
    end

    %# Get the new images:
    picture1 = files(index(nReps, 1)).name;
    picture2 = files(index(nReps, 2)).name;
    image1 = fullfile('samples', picture1);
    image2 = fullfile('samples', picture2);

    %# Plot the new images:
    subplot(1,2,1);
    imshow(image1);
    subplot(1,2,2);
    imshow(image2);

    %# Reset the slider to the default value:
    set(h, 'Value', 25);
end


另一个建议...而不是使用FPRINTF在屏幕上显示滑块值，我将在您的 GUI 中创建一个文本对象并简单地更新其字符串值：

hText = uicontrol('Style', 'text', ...
                  'String', 'Slider value: 25', ... );

%# And in function cb...
set(hText, 'String', sprintf('Slider value: %f', lastVal));
于 2012-02-22T16:51:59.663 回答