nnfgflag.m

《神经网络设计》英文版的配套源代码

function f=nnfgflag(n)
%NNFGFLAG Neural Network Design utility function.

% NNFGFLAG(N)
%   N - Name of figure (string).
% Returns handle to figure with name N if it exists.
% Returns 0, otherwise.

% Copyright 1994-2002 PWS Publishing Company and The MathWorks, Inc.
% First Version, 8-31-95.
% $Revision: 1.11 $

%==================================================================

z = get(0,'children');
for i=1:length(z)
  typ = get(z(i),'type');
  if strcmp(typ,'figure')
    nam = get(z(i),'name');
  if strcmp(nam,n)
    f = z(i);
    return
  end
  end
end

f = 0;