prune_snn.m

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

function [dX, dF_change_inv] = prune_snn(F_change_inv, X, D)
%PRUNE_SNN

%
% [dX, dF_change_inv] = prune_snn(F_change_inv, X, D)
%

FinvDDinv = inv(F_change_inv(D, D));
XD = X(D);

FF = - F_change_inv(:,D) * FinvDDinv;
dX = FF * XD; 

if (nargout > 1)
   dF_change_inv = FF * F_change_inv(D, :);
end