hardlim.m

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

function a = hardlim(n,b)
%HARDLIM Hard limit transfer function.
%	
%	HARDLIM(N)
%	  N - SxQ Matrix of net input (column) vectors.
%	Returns 1 where N is positive, 0 elsewhere.
%	
%	EXAMPLE: n = -10:0.1:10;
%	         a = hardlim(n);
%	         plot(n,a)
%	
%	HARDLIM(Z,B) ...Used when Batching.
%	  Z - SxQ Matrix of weighted input (column) vectors.
%	  B - Sx1 Bias (column) vector.
%	Returns hard limit of net input values found by adding
%	  B to each column of Z.

% Mark Beale, 1-31-92
% Revised 12-15-93, MB
% Copyright (c) 1992-3 by the MathWorks, Inc.
% $Revision: 1.1 $  $Date: 1994/01/11 16:24:23 $

if nargin < 1, error('Not enough arguments.'); end

if nargin == 2
  [nr,nc] = size(n);
  n = n + b*ones(1,nc);
end
a = n >= 0;