wef_snn.m

来自「神经网络的工具箱, 神经网络的工具箱,」· M 代码 · 共 51 行

function [E, Eimu] = wef_snn(y, t, g, errf) 
%WEF_SNN Weighted sum of error functions.
%        (1/sum_i g_i) * sum_i g_i * errf_i(y_i, t_i) 
%
% Syntax
%
%  E = wef_snn(y, t, g, errf)
%

if (isstr(y))
   switch lower(y)
     case 'deriv',
          E = 'dwef_snn';
     case '2deriv',
          E = 'd2wef_snn';
     otherwise,
          error('Unrecognized code.')
   end 
   return
end

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

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

Emu = sum(Eimu,1);
E = sum(Emu,2);