function ML = exponents(poly,x)
%EXPONENTS Internal function to extract powers of nonlinear expression

% Author Johan L鰂berg
% $Id: exponents.m,v 1.1 2004/10/06 14:18:29 johanl Exp $

mt = yalmip('monomtable');
x_lin = getvariables(poly);

x_var = getvariables(x);

ML = mt(x_lin,x_var);
if any(ismember(1,poly))
    ML = [zeros(1,length(x));ML];
end