dwef_snn.m

神经网络的工具箱, 神经网络的工具箱,

function dE_dy = dwef_snn(y, t, g, errf) 
%DWEF_SNN 1st derivative of wef_snn with respect to y.

[n, q] = size(y);
nf = 1/(sum(g(find(~isnan(g)))));
g = nf * g;

%#function se_snn dse_snn
%#function relerr_snn drelerr_snn
%#function loglikelihood_snn dloglikelihood_snn 
%#function crosslogistic_snn dcrosslogistic_snn
%#function crossentropy_snn dcrossentropy_snn
dE_dy = zeros(n,q);
if isstr(errf)
   ii = find(~isnan(g));
   dE_dy(ii) = g(ii) .* feval(feval(errf, 'deriv'), y(ii), t(ii));
elseif (size(errf,2) == 1)
   for i = 1:size(y,1)
       mu = find(~isnan(g(i,:)));
       dE_dy(i,mu) = g(i,mu) .* ...
                     feval(feval(errf{i,1}, 'deriv'), y(i,mu), t(i,mu));
   end
else
   for i = 1:size(y,1)
       for mu = find(~isnan(g(i,:))); 
           dE_dy(i, mu) = g(i, mu) * ...
	         feval(feval(errf{i,mu}, 'deriv'), y(i,mu), t(i,mu));
       end
   end
end