nnfgflag.m

来自「神经网络设计书籍配套源码（matlab平台）」· M 代码 · 共 26 行

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.

% First Version, 8-31-95.

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

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;