nnfgflag.m

Martin T.Hagan等著,戴葵等译,神经网络设计,机械工业出版社,一书的所有例程

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;