Это идея, которую я упомянул в своем комментарии.
num_im = 3; % Number of images
% Initialize
rating = zeros(num_im,1);
fig = zeros(num_im,1);
txt = zeros(num_im,1);
% Main loop
for i = 1:num_im
% image processing calculation
pause(1); % a dummy calculation
% Open a figure
fig(i) = figure('Name', ['Image #' num2str(i)],...
'CloseRequestFcn', [... % read the text edit
'temp = str2double(get(txt(' num2str(i) '), ''String'')); ',...
'if isnan(temp), errordlg(''Please enter the rating.''); ',... % Error if invalid
'else, rating(' num2str(i) ') = temp; delete(fig(' num2str(i) ')); end']);
subplot(2,1,1, 'position', [0 0.5 1 0.5]);
% Show your image
[im, map] = imread('trees.tif');
imshow(im, map);
% Text edit
txt(i) = uicontrol('Units','Normalized',...
'Style','edit',...
'Position', [0.3 0.2 0.4 0.2]);
end
Не забудьте щелкнуть в другом месте после того, как вы введете оценки, чтобы text box
распознал ваш ввод.
Он будет хранить все рейтинги в матрице rating
.
Однако это не ограничивает количество открытых фигур. См. Изменить, если вы хотите ограничить их.
Редактировать
Ограничить количество открываемых фигур. Я предлагаю вам поставить все изображения после расчета в очередь и установить таймер, чтобы запрашивать рейтинг пользователя в фоновом режиме, пока не будут заданы все рейтинги.
Мэйн.м
num_im = 4; % Number of images
max_num_figs = 2; % maximum number of open figures
% Initialize
rating = zeros(num_im,1);
fig = zeros(num_im,1);
txt = zeros(num_im,1);
show_idx = 0; % Number of shown images
Calc_idx = 0; % Number of images in Queue
num_open_figs = 0; % number of open figures
Queue = cell(num_im, 1);
% Main loop
% Start a timer for asking the user rating in background
tmr = timer('ExecutionMode', 'fixedRate',...
'Period', 0.5, 'TimerFcn', 'tmr_callback');
start(tmr);
for k = 1:num_im
% image processing calculation
pause(1); % a dummy calculation
% Put the image and its data into a Queue ith
[im, map] = imread('trees.tif');
Queue{Calc_idx+1} = {im, map};
Calc_idx = Calc_idx + 1;
end
tmr_callback.m
% Create a GUI if there is any unshown images in the Queue
% and if open figures are less than maximum number of figures
if show_idx < Calc_idx && num_open_figs < max_num_figs
num_open_figs = num_open_figs + 1;
show_idx = show_idx + 1; % Number of shown images
% Open a figure
fig(show_idx) = figure('Name', ['Image #' num2str(show_idx)],...
'CloseRequestFcn', [...
'temp = str2double(get(txt(' num2str(show_idx) '), ''String'')); ',... % Read the text edit
'if isnan(temp), errordlg(''Please enter the rating.''); ',... % Error if invalid
'else, rating(' num2str(show_idx) ') = temp; delete(fig(' num2str(show_idx) ')); ',...
'num_open_figs = num_open_figs - 1; end']);
subplot(2,1,1, 'position', [0 0.5 1 0.5]);
imshow(Queue{show_idx}{:});
% Text edit
txt(show_idx) = uicontrol('Units','Normalized',...
'Style','edit',...
'Position', [0.3 0.2 0.4 0.2]);
% turn off the timer if all ratings are asked.
if (show_idx == num_im)
stop(tmr);
end
end
Я также предлагаю записывать данные (рейтинг) в файл после того, как пользователь введет каждый из них. Например, вы можете использовать dlmwrite
.
10.06.2013