nndrawax.m

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

function h=nndrawax(c,e)
%NNDRAWAX Neural Network Design utility function.

%
%	NNDRAWAX(C)
%	  C - Color (default = dark blue).
%   E - Erase mode (default = 'normal');
%	Draws the x- and y-axes on a plot with color C.

% First Version, 8-31-95.

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

% DEFAULTS
if nargin < 1, c = nndkblue; end
if nargin < 2, e = 'normal'; end

ca = gca;
NP = get(ca ,'nextplot');
set(ca ,'nextplot','add')

xlim = get(ca,'xlim');
xmin = xlim(1);
xmax = xlim(2);
ylim = get(ca,'ylim');
ymin = ylim(1);
ymax = ylim(2);
g = plot([xmin xmax NaN 0 0],[0 0 NaN ymax ymin],':',...
  'color',c,...
  'erasemode',e);

set(ca,'nextplot',NP)

if nargout, h = g; end