function [F,properties,arguments,fcn]=model(X,method,options,extstruct)
%MODEL  Extracts nonlinear operator models
%
% [F,properties] = model(x)
%
% MODEL returns the constraints needed to model a variable related to an
% extended operator such as min, max, abs, norm, geomean, ...
%
% Examples :
%
% sdpvar x y;
% t = min(x,y);
% [F,properties] = epigraph(t)
% Gives (F = set(t<x) + set(t<y))
%
% sdpvar x y
% t = max(norm([x;y],1+y))
% [F,properties] = epigraph(t)
% Gives (F = set(u<t) + set(1+y<t))
% where u is the variable modelling norm([x;y])

% Author Johan Löfberg
% $Id: model.m,v 1.36 2006/07/28 06:27:01 joloef Exp $

extvar = getvariables(X);
arguments   = cell(1,length(extvar));
properties  = cell(1,length(extvar));

if nargin<2
    method = 'graph';
end

if nargin < 3
    options = [];
end

if nargin<4
    extstruct = yalmip('extstruct',extvar);
elseif isempty(extstruct)
    extstruct = yalmip('extstruct',extvar);
end

if isempty(extstruct)
    error('This is not a nonlinear operator variable');
end

fcn = extstruct.fcn;
switch fcn
    % *********************************************************************
    % mpower, max, min  are currently implmeneted in a non-standard way for
    % both performance and technical reasons
    % *********************************************************************
    case 'mpower'
        [F,properties,arguments] = mpower_internal(X,method,options,extstruct);

    case 'max'
        [F,properties,arguments] = max_internal(X,method,options,extstruct);

    case 'min'
        [F,properties,arguments] = min_internal(X,method,options,extstruct);

    otherwise
        try
            [F,properties,arguments] = feval(extstruct.fcn,method,extstruct.var,extstruct.arg{:});
        catch
            error(['Failed when trying to create a model for the "' extstruct.fcn '" operator']);
        end
end
% This field is not official, and currently only used in sort
if ~isfield(properties,'models')
    properties.models = getvariables(extstruct.var);
end