nnd.m

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

function nnd(cmd)
%NND Neural Network Design graphical user interface.

% First Version, 8-31-95.

% BRING UP FIGURE IF IT EXISTS

me = 'nnd';
fig = nnfgflag(me);
if length(get(fig,'children')) == 0, fig = 0; end
if nargin == 0, cmd = ''; end

% CREATE FIGURE ========================================================

if strcmp(cmd,'') & (fig)
  figure(fig)

elseif strcmp(cmd,'') & (~fig)

  % START WITH STANDARD TITLE FIGURE

  fig = nntitlef(me,'DESIGN','Demonstrations', ...
    'PWS Publishing Co.','20 Park Plaza','Boston, MA  02116');

  % UNLOCK
  set(fig,'nextplot','add')

  % ICONS
  nndicon(2,130,230,'shadow')
  nndicon(3,170,130,'shadow')
  nndicon(4,210,230,'shadow')
  nndicon(7,250,130,'shadow')
  nndicon(10,290,230,'shadow')
  nndicon(11,330,130,'shadow')
  nndicon(14,370,230,'shadow')
  
  % BUTTONS
  drawnow % Let everthing else appear before buttons
  set(nnsfo('b7','Contents'), ...
    'callback','nndtoc')
  nnsfo('b9','Close')
  
  % LOCK FIGURE AND RETURN
  set(fig,'nextplot','new')

  nnchkfs;
end