newtonuc.m

来自「基于matlab的约束非线性规划算法库」· M 代码 · 共 20 行

function [pN, flag] = NewtonUC(Abounds,nMnfixed,J,f,X,ffun,params)
%Call: [pN, flag] = NewtonUC(Abounds,nMnfixed,J,f,X,ffun,params)
%Compute pN, the Newton direction for the unconstrained case
%
free = find(Abounds == 0);
B = J'*J;
G = hessianG(ffun,X,f,params);
G = G(free,free);
E = B+G;
b = -J'*f;
[R flag] = chol(E);
if flag ~= 0
    disp('Not pos. def. E in chol')
    flag -1002
    pN = [];
else
    pN = zeros(n);
    DeltaP2 = R\(R'\b);
    pN(free) = DeltaP2;
end