wavelon.m

新的神经网络算法源程序

function [wavelonvalue, xt, xtd2] = wavelon(x,t,d)
%Wavelon: Iso Tropic Wavelet Activation Transfer Function.
%
%	[wavelonvalue, xt, xtd2] = wavelon(x,t,d)
%	xt = x - t
%	xtd2 = (d.*(x-t))' * (d.*(x-t))
%       wavelonvalue = wavedef(xtd2, dim(x), 0)
%
%	May be used for Batching.
%	See also Wavedef.

%	By Qinghua Zhang. April 10, 1992.

if nargin < 1 | nargin > 3
  error('Wrong number of arguments.');
end


[xl, xc] = size(x);
[tl, tc] = size(t);
[dl, dc] = size(d);

if (xl ~= tl) | (tl ~= dl)
  error('x, t and d should have the same number of lines.');
end

if tc ~= dc
  error('t and d should have the same number of columns.');
end

if (nargout > 1) & (xc ~= 1)
  error( ...
    'If there are more than one output arguments, x must be a column vector ');
end

wavelonvalue = zeros(tc, xc);

for j=1:xc
  xt = x(:,j) * ones(1,tc)-t;
  xtd = d .* xt;
  xtd2 = xtd .^2;
  if xl > 1
     xtd2 = sum(xtd2);
  end
  wavelonvalue(:,j) = xtd2';
end

wavelonvalue = wavedef(wavelonvalue, tl, 0);