ipopt_fungrad.m

来自「optimization toolbox」· M 代码 · 共 6 行

function  [nnz,ind,val] = pennlp_fungrad(x)


f = datasaver(2,x);
[ind,dummy,val] = find(f(:));
nnz = length(ind);