|
function [res,fjac,domer] = mcp_func(x,jacflag)
|
|
global mcp_data
|
|
|
|
if jacflag
|
|
[res,fjac] = mcp_data.func(x,mcp_data.args{:});
|
|
fjac = sparse(fjac);
|
|
else
|
|
res = mcp_data.func(x,mcp_data.args{:});
|
|
fjac = [];
|
|
end
|
|
if isreal(res)
|
|
domer = 0;
|
|
else
|
|
domer = 1;
|
|
end
|