hardlim.m

提供一matlab编写的人工免疫的算法源程序

function a = hardlim(n,b)
%HARDLIM Hard limit transfer function.
%	
%	Syntax
%
%	  A = hardlim(N)
%	  info = hardlim(code)
%
%	Description
%	
%	  HARDLIM is a transfer function.  Transfer functions
%	  calculate a layer's output from its net input.
%	
%	  HARDLIM(N) takes one input,
%	    N - SxQ matrix of net input (column) vectors.
%	  and returns 1 where N is positive, 0 elsewhere.
%	
%	  HARDLIM(CODE) returns useful information for each CODE string:
%	    'deriv'  - Name of derivative function.
%	    'name'   - Full name.
%	    'output' - Output range.
%	    'active' - Active input range.
%	
%	Examples
%
%	  Here is how to create a plot of the HARDLIM transfer function.
%	
%	    n = -5:0.1:5;
%	    a = hardlim(n);
%	    plot(n,a)
%
%	Network Use
%
%	  You can create a standard network that uses HARDLIM
%	  by calling NEWP.
%
%	  To change a network so that a layer uses HARDLIM set
%	  NET.layers{i}.transferFcn to 'hardlim'.
%
%	  In either case, call SIM to simulate the network with HARDLIM.
%	  See NEWP for simulation examples.
%
%	Algorithm
%
%	    hardlim(n) = 1, if n >= 0
%	                 0, otherwise
%
%	See also SIM, HARDLIMS.

% Mark Beale, 1-31-92
% Revised 12-15-93, MB
% Revised 11-31-97, MB
% Copyright (c) 1992-1998 by The MathWorks, Inc.
% $Revision: 1.6 $  $Date: 1998/06/11 17:21:47 $

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

% FUNCTION INFO
if isstr(n)
  switch (n)
    case 'deriv',
      a = 'dhardlim';
    case 'name',
      a = 'Hard Limit';
    case 'output',
      a = [0 1];
    case 'active',
      a = [0 0];
    case 'type',
      a = 1;
	
	% **[ NNT2 Support ]**
    case 'delta',
      a = 'none';
	  nntobsu('hardlim','Use HARDLIM(''deriv'') instead of HARDLIM(''delta'').')
    case 'init',
      a = 'rands';
	  nntobsu('hardlim','Use network propreties to obtain initialization info.')
	  
    otherwise
      error('Unrecognized code.')
  end
  return
end

% CALCULATION
  
% **[ NNT2 Support ]**
if nargin == 2  
  nntobsu('hardlim','Use HARDLIM(NETSUM(Z,B)) instead of HARDLIM(Z,B).')
  n = n + b(:,ones(1,size(n,2)));
end

a = (n >= 0);