0001 function [g, dg] = opf_nle_fcn1(x) 0002 Pg = x{1}; 0003 g = Pg(1)*Pg(2) - Pg(6); 0004 if nargout == 2 0005 dg = [Pg(2) Pg(1) 0 0 0 -1]; 0006 end