apis/examples_matlab_control/special__values_8m_source.html

function special_values(varargin)


    % check workspace info from arguments

    if nargin > 0

        wsInfo = gams.control.WorkspaceInfo();

        wsInfo.systemDirectory = varargin{1};

        ws = gams.control.Workspace(wsInfo);

    else

        ws = gams.control.Workspace();

    end


    model = {

    'Scalar GUndef                                      '

    '       GNA    / NA    /                            '

    '       GPInf  / +Inf  /                            '

    '       GMInf  / -Inf  /                            '

    '       GEps   / eps   /                            '

    '       matlabUndef                                 '

    '       matlabNA                                    '

    '       matlabPInf                                  '

    '       matlabMInf                                  '

    '       matlabEps ;                                 '

    '                                                   '

    '$onUndf                                            '

    '$gdxIn %gdxincname%                                '

    '$load matlabUndef matlabNA matlabPInf matlabMInf matlabEps   '

    '$gdxIn                                             '

    '                                                   '

    'GUndef = 1/0;                                      '

    'ExecError = 0;                                     '

    '                                                   '

    'abort$(GUndef <> matlabUndef) ''matlabUndef not as expected'', GUndef, matlabUndef;'

    'abort$(GNA    <> matlabNA   ) ''matlabNA    not as expected'', GNA,    matlabNA;   '

    'abort$(GPInf  <> matlabPInf ) ''matlabPInf  not as expected'', GPInf,  matlabPInf; '

    'abort$(GMInf  <> matlabMInf ) ''matlabMInf  not as expected'', GMInf,  matlabMInf; '

    'abort$(GEps   <> matlabEps  ) ''matlabEps   not as expected'', GEps,   matlabEps   '};

    model = sprintf('%s\n', model{:});


    dbIn = ws.addDatabase('myDB');

    rec = dbIn.addParameter('matlabUndef', 0).addRecord();

    rec.value = 1.0E300;

    rec = dbIn.addParameter('matlabNA', 0).addRecord();

    rec.value = NaN;

    rec = dbIn.addParameter('matlabPInf', 0).addRecord();

    rec.value = Inf;

    rec = dbIn.addParameter('matlabMInf', 0).addRecord();

    rec.value = -Inf;

    rec = dbIn.addParameter('matlabEps', 0).addRecord();

    rec.value = 4.94066E-324;


    gj = ws.addJobFromString(model);

    opt = ws.addOptions();

    opt.defines('gdxincname', dbIn.name);

    gj.run(opt, dbIn);


    dbOut = gj.outDB;

    GUndef = dbOut.getParameter('GUndef').record.value;

    if GUndef ~= 1.0E300

        error('GUndef not as expected: %f', GUndef);

    end

    GNA = dbOut.getParameter('GNA').record.value;

    if ~isnan(GNA)

        error('GNA not as expected: %f', GNA);

    end

    GPInf = dbOut.getParameter('GPInf').record.value;

    if ~isinf(GPInf)

        error('GPInf not as expected: %f', GPInf);

    end

    GMInf = dbOut.getParameter('GMInf').record.value;

    if ~isinf(GMInf) && GMInf < 0

        error('GMInf not as expected: %f', GMInf);

    end

    GEps = dbOut.getParameter('GEps').record.value;

    if GEps ~= 4.94066E-324

        error('GEps not as expected: %f', GEps);

    end


    % clear option and database

    opt.dispose();

    gj.outDB.dispose();


    % remove working directory

    rmdir(ws.workingDirectory, 's');


end