Why is my prompt inpudlg isn´t functional?

Question

Veronika 2017-4-13

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/335169-why-is-my-prompt-inpudlg-isn-t-functional

评论： Veronika 2017-4-17

采纳的回答： KSSV

在 MATLAB Online 中打开

Dear all,

I would like to use prompt (inputdlg) for setting my points in segmentation like this:

fontSize = 15;
% baseFileName = '110.jpg';
baseFileName = 'thorax-mdl.jpg'; 
folder = pwd
fullFileName = fullfile(folder, baseFileName);
% Načtení obrazu.
grayImage = imread(fullFileName);
grayImage_pater = imread (fullFileName);
% Dimenze obrazu. 
% numberOfColorBands by měl být = 1.
% ***
[rows, columns, numberOfColorChannels] = size(grayImage);
if numberOfColorChannels > 1
  % Máme barevný obraz, musíme ho převést na černobílý = vybereme zelený kanál
  grayImage = grayImage(:, :, 2); % zelený kanál
end
eq_grayImage = histeq(grayImage);%ekvalizace pomocí histogramu obrazu
[rows, columns, numberOfColorChannels] = size(grayImage_pater);
if numberOfColorChannels > 1
  % Máme barevný obraz, musíme ho převést na černobílý = vybereme zelený kanál
  grayImage_pater = grayImage_pater(:, :, 2); % zelený kanál
    grayImage_pater(425:end, :) = 0;
end
eq_grayImage_pater = histeq(grayImage_pater);%
%Práh pro vytvoření binárního obrazu okolí
thresholdValue = 180;
binaryImage_okoli = eq_grayImage > thresholdValue;
% Odstranění okolí.
binaryImage_okoli = imclearborder(binaryImage_okoli);
% Vyplnění otvorů.
binaryImage_okoli = imfill(binaryImage_okoli, 'holes');
% Vymazání menších otvorů.
binaryImage_okoli = bwareaopen(binaryImage_okoli, 750);
se = strel('line',5,100);
binaryImage_okoli= imdilate(binaryImage_okoli,se);
figure(5);
imshow(grayImage);
hold on
prompt = {'Nastavení počtu komponentů:'};
dlg_title = 'Nastavení parametrů segmentace';
defaultans = {'50'};
num_lines = [ones(size(defaultans')) ones(size(defaultans'))*75];
answer = inputdlg(prompt, dlg_title,num_lines, defaultans);
% a = str2double( x{1,1} );
a = str2double(answer);
Npts1 = 35;      % počet bodů interpolovaných hranic
% Npts2 = 25;      % počet bodů interpolovaných hranic
% Npts3 = 5;       % počet bodů interpolovaných hranic
Ncomps = a;     % počet komponentů
shape.thorax=Model(binaryImage_okoli,Ncomps,Npts1);
tmp=shape.thorax{1};
plot(tmp(:,2), tmp(:,1), 'o-b')
legend('Okolí hrudníku')

And I attach my function Model and original image thorax-mdl.jpg.

But I have this error:

Error using bwboundaries
Expected input number 1, BW, to be one of these types:
double, single, uint8, uint16, uint32, uint64, int8, int16, int32, int64, logical
Instead its type was cell.
Error in bwboundaries>parseInputs (line 173)
validateattributes(BW_in, {'numeric','logical'}, {'real','2d','nonsparse'}, ...
Error in bwboundaries (line 135)
[BW, conn, findHoles] = parseInputs(varargin{:});
Error in Model (line 7)
         Components{i} = bwboundaries(bwboundaries(tmp{i}, Ncomps), linspace(0, 1,
         Npts1));
Error in opraveni (line 62)
shape.thorax=Model(binaryImage_okoli,Ncomps,Npts1);

Thank you for your answers.

4 个评论
显示 2更早的评论隐藏 2更早的评论

Veronika 2017-4-13

在 MATLAB Online 中打开

Ou, I forgot to add bwboundaries. Because I use bwboundaries instead of fourier_fit function. So this is my code:

fontSize = 15;
% baseFileName = '110.jpg';
baseFileName = 'thorax-mdl.jpg'; 
folder = pwd
fullFileName = fullfile(folder, baseFileName);
% Načtení obrazu.
grayImage = imread(fullFileName);
grayImage_pater = imread (fullFileName);
% Dimenze obrazu. 
% numberOfColorBands by měl být = 1.
% ***
[rows, columns, numberOfColorChannels] = size(grayImage);
if numberOfColorChannels > 1
  % Máme barevný obraz, musíme ho převést na černobílý = vybereme zelený kanál
  grayImage = grayImage(:, :, 2); % zelený kanál
end
eq_grayImage = histeq(grayImage);%ekvalizace pomocí histogramu obrazu
[rows, columns, numberOfColorChannels] = size(grayImage_pater);
if numberOfColorChannels > 1
  % Máme barevný obraz, musíme ho převést na černobílý = vybereme zelený kanál
  grayImage_pater = grayImage_pater(:, :, 2); % zelený kanál
    grayImage_pater(425:end, :) = 0;
end
eq_grayImage_pater = histeq(grayImage_pater);%
%Práh pro vytvoření binárního obrazu okolí
thresholdValue = 180;
binaryImage_okoli = eq_grayImage > thresholdValue;
% Odstranění okolí.
binaryImage_okoli = imclearborder(binaryImage_okoli);
% Vyplnění otvorů.
binaryImage_okoli = imfill(binaryImage_okoli, 'holes');
% Vymazání menších otvorů.
binaryImage_okoli = bwareaopen(binaryImage_okoli, 750);
se = strel('line',5,100);
binaryImage_okoli= imdilate(binaryImage_okoli,se);
figure(4)
imshow(grayImage, []);
title('Segmentace okolí', 'FontSize', fontSize); 
axis image;% Ujištění, že se obraz po zvětšení okna nezdeformuje.
hold on;
% Nastavení obrazu.
% Zvětšení obrazu na celou obrazovku.
set(gcf, 'Units', 'Normalized', 'OuterPosition', [0 0 1 1]);
% Odstranění panelu nástrojů a rozbalovacího menu.
set(gcf, 'Toolbar', 'none', 'Menu', 'none');
% Přidání titulku okna.
set(gcf, 'Name', 'Segmentace okolí', 'NumberTitle', 'Off') 
tmp = bwboundaries(binaryImage_okoli);
shape.thorax = tmp{1};
% boundaries = bwboundaries(handles.binaryImage_okoli);
numberOfBoundaries = size(tmp, 1);
for k = 1 : numberOfBoundaries
  thisBoundary = tmp{k};
  plot(thisBoundary(:,2), thisBoundary(:,1), 'r', 'LineWidth', 2);
end
figure(5);
imshow(grayImage);
hold on
prompt = {'Nastavení počtu komponentů:'};
dlg_title = 'Nastavení parametrů segmentace';
defaultans = {'50'};
num_lines = [ones(size(defaultans')) ones(size(defaultans'))*75];
answer = inputdlg(prompt, dlg_title,num_lines, defaultans);
% a = str2double( x{1,1} );
a = str2double(answer);
Npts1 = 35;      % počet bodů interpolovaných hranic
% Npts2 = 25;      % počet bodů interpolovaných hranic
% Npts3 = 5;       % počet bodů interpolovaných hranic
Ncomps = a;     % počet komponentů
shape.thorax=Model(binaryImage_okoli,Ncomps,Npts1);
tmp=shape.thorax{1};
plot(tmp(:,2), tmp(:,1), 'o-b')
legend('Okolí hrudníku')

In Model.m I didn´t change anything. Now, I have this error:

Error using coder.internal.errorIf (line 8)
A scalar connectivity specifier CONN must either be 4 or 8.
Error in bwboundaries>parseInputs (line 197)
        coder.internal.errorIf(conn~=4 && conn~=8, ...
Error in bwboundaries (line 135)
[BW, conn, findHoles] = parseInputs(varargin{:});
Error in Model (line 7)
         Components{i} = bwboundaries(bwboundaries(tmp{i}, Ncomps), linspace(0, 1,
         Npts1));
Error in opraveni (line 84)
shape.thorax=Model(binaryImage_okoli,Ncomps,Npts1);

KSSV 2017-4-13

Is this the final output?

Veronika 2017-4-13

Yes! Please, how did you do that?

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

KSSV 2017-4-13

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/335169-why-is-my-prompt-inpudlg-isn-t-functional#answer_262878

在 MATLAB Online 中打开

There is no problem with inputdlg. Instead of calling function model.m, use:

% shape.thorax=Model(binaryImage_okoli,Ncomps,Npts1);
shape.thorax=bwboundaries(binaryImage_okoli);

If you use this, there is no purpose of inputdlg.

14 个评论
显示 12更早的评论隐藏 12更早的评论

KSSV 2017-4-17

在 MATLAB Online 中打开

clc; clear all;
fontSize = 15;
% baseFileName = '110.jpg';
baseFileName = 'thorax-mdl.jpg'; 
folder = pwd
fullFileName = fullfile(folder, baseFileName);
% Na?tení obrazu.
grayImage = imread(fullFileName);
grayImage_pater = imread (fullFileName);
% Dimenze obrazu. 
% numberOfColorBands by m?l být = 1.
% ***
[rows, columns, numberOfColorChannels] = size(grayImage);
if numberOfColorChannels > 1
  % Máme barevný obraz, musíme ho p?evést na ?ernobílý = vybereme zelený kanál
  grayImage = grayImage(:, :, 2); % zelený kanál
end
eq_grayImage = histeq(grayImage);%ekvalizace pomocí histogramu obrazu
[rows, columns, numberOfColorChannels] = size(grayImage_pater);
if numberOfColorChannels > 1
  % Máme barevný obraz, musíme ho p?evést na ?ernobílý = vybereme zelený kanál
  grayImage_pater = grayImage_pater(:, :, 2); % zelený kanál
    grayImage_pater(425:end, :) = 0;
end
eq_grayImage_pater = histeq(grayImage_pater);%
%Práh pro vytvo?ení binárního obrazu okolí
thresholdValue = 180;
binaryImage_okoli = eq_grayImage > thresholdValue;
% Odstran?ní okolí.
binaryImage_okoli = imclearborder(binaryImage_okoli);
% Vypln?ní otvor?.
binaryImage_okoli = imfill(binaryImage_okoli, 'holes');
% Vymazání menších otvor?.
binaryImage_okoli = bwareaopen(binaryImage_okoli, 750);
se = strel('line',5,100);
binaryImage_okoli= imdilate(binaryImage_okoli,se);
figure(4)
imshow(grayImage, []);
title('Segmentace okolí', 'FontSize', fontSize); 
axis image;% Ujišt?ní, že se obraz po zv?tšení okna nezdeformuje.
hold on;
% Nastavení obrazu.
% Zv?tšení obrazu na celou obrazovku.
set(gcf, 'Units', 'Normalized', 'OuterPosition', [0 0 1 1]);
% Odstran?ní panelu nástroj? a rozbalovacího menu.
set(gcf, 'Toolbar', 'none', 'Menu', 'none');
% P?idání titulku okna.
set(gcf, 'Name', 'Segmentace okolí', 'NumberTitle', 'Off') 
tmp = bwboundaries(binaryImage_okoli);
shape.thorax = tmp{1};
% boundaries = bwboundaries(handles.binaryImage_okoli);
numberOfBoundaries = size(tmp, 1);
for k = 1 : numberOfBoundaries
  thisBoundary = tmp{k};
  plot(thisBoundary(:,2), thisBoundary(:,1), 'r', 'LineWidth', 2);
end
figure(5);
imshow(grayImage);
hold on
prompt = {'Nastavení po?tu komponent?:'};
dlg_title = 'Nastavení parametr? segmentace';
defaultans = {'50'};
num_lines = [ones(size(defaultans')) ones(size(defaultans'))*75];
answer = inputdlg(prompt, dlg_title,num_lines, defaultans);
% a = str2double( x{1,1} );
a = str2double(answer);
Npts1 = 35;      % po?et bod? interpolovaných hranic
% Npts2 = 25;      % po?et bod? interpolovaných hranic
% Npts3 = 5;       % po?et bod? interpolovaných hranic
Ncomps = a;     % po?et komponent?
% shape.thorax=Model(binaryImage_okoli,Ncomps,Npts1);
shape.thorax=bwboundaries(binaryImage_okoli);
tmp=shape.thorax{1};
%%do interpolation 
x = tmp(:,2) ; y = tmp(:,1) ;
% select according to Ncomps
skip = ceil(length(x)/Ncomps) ;
xi = x(1:skip:end) ;
yi = y(1:skip:end) ;
plot(xi,yi, 'o-b')
legend('Okolí hrudníku')

Veronika 2017-4-17

But, I have still one problem this blue curve isn´t closed. I mean this:

Is there any option for connect these points? Thank you for your answer.

Veronika 2017-4-17

在 MATLAB Online 中打开

Stephen Cobeldick: I tried str2double, but this error appears:

Cell contents reference from a non-cell array object.
Error in DP_segment_final>Okoli_Callback (line 420)
params.Height = answer{1};
Error in gui_mainfcn (line 95)
        feval(varargin{:});
Error in DP_segment_final (line 44)
    gui_mainfcn(gui_State, varargin{:});
Error in
matlab.graphics.internal.figfile.FigFile/read>@(hObject,eventdata)DP_segment_final('Okoli_Callback',hObject,eventdata,guidata(hObject)) 
Error while evaluating UIControl Callback

Can you advice me?

请先登录，再进行评论。

Why is my prompt inpudlg isn´t functional?

4 个评论
显示 2更早的评论隐藏 2更早的评论

采纳的回答

14 个评论
显示 12更早的评论隐藏 12更早的评论

更多回答（0 个）

另请参阅

类别

标签

Community Treasure Hunt

Why is my prompt inpudlg isn´t functional?

4 个评论 显示 2更早的评论隐藏 2更早的评论

采纳的回答

14 个评论 显示 12更早的评论隐藏 12更早的评论

更多回答（0 个）

另请参阅

类别

标签

Community Treasure Hunt

4 个评论
显示 2更早的评论隐藏 2更早的评论

14 个评论
显示 12更早的评论隐藏 12更早的评论