wavedef.m

来自「新的神经网络算法源程序」· M 代码 · 共 27 行

function a = wavedef(z, n, order)
%Wavelon: Defines the Form of Iso Tropic Wavelet Activation Transfer Function.
%	  and its derivative
%
%	a = wavedef(z, n, order)
%	z = (x-t)'d'd(x-t), where x, t and d are input, translation and
%			    dilation of the wavelon respectively
%	n = dim(x)
%	order: order of derivative, = 0 or 1
%	See also Wavelon
%
%	For this file wavedef(z, n, 0) = (z-n)e^(-0.5z).

%	By Qinghua Zhang. April 10, 1992.

if nargin ~= 3
  error('Wrong number of arguments.');
end

if order == 0
  a = (z - n) .* exp(-0.5 * z);
elseif order == 1
  a = 0.5 * (2.0 - z + n) .* exp(-0.5 * z);
else
  error('order must be 0 or 1.');
end