qpOASES-3.0beta/interfaces/matlab/qpOASES.cpp

Go to the documentation of this file.

/*
 *      This file is part of qpOASES.
 *
 *      qpOASES -- An Implementation of the Online Active Set Strategy.
 *      Copyright (C) 2007-2011 by Hans Joachim Ferreau, Andreas Potschka,
 *      Christian Kirches et al. All rights reserved.
 *
 *      qpOASES is free software; you can redistribute it and/or
 *      modify it under the terms of the GNU Lesser General Public
 *      License as published by the Free Software Foundation; either
 *      version 2.1 of the License, or (at your option) any later version.
 *
 *      qpOASES is distributed in the hope that it will be useful,
 *      but WITHOUT ANY WARRANTY; without even the implied warranty of
 *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 *      See the GNU Lesser General Public License for more details.
 *
 *      You should have received a copy of the GNU Lesser General Public
 *      License along with qpOASES; if not, write to the Free Software
 *      Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 */


#include <qpOASES/QProblem.hpp>


using namespace qpOASES;

#include "qpOASES_matlab_utils.cpp"



/*
 *      q p O A S E S m e x _ c o n s t r a i n t s
 */
void qpOASESmex_constraints(    int nV, int nC, int nP,
                                                                SymmetricMatrix *H, real_t* g, Matrix *A,
                                                                real_t* lb, real_t* ub, real_t* lbA, real_t* ubA,
                                                                int nWSRin, real_t* x0, Options* options,
                                                                int nOutputs, mxArray* plhs[]
                                                                )
{
        /* 1) Setup initial QP. */
        QProblem QP( nV,nC );
        QP.setOptions( *options );

        /* 2) Solve initial QP. */
        returnValue returnvalue;

        if ( x0 == 0 )
                returnvalue = QP.init( H,g,A,lb,ub,lbA,ubA, nWSRin,0 );
        else
                returnvalue = QP.init( H,g,A,lb,ub,lbA,ubA, nWSRin,0, x0,0,0,0 );

        /* 3) Solve remaining QPs and assign lhs arguments. */
        /*    Set up pointers to the current QP vectors */
        real_t* g_current   = g;
        real_t* lb_current  = lb;
        real_t* ub_current  = ub;
        real_t* lbA_current = lbA;
        real_t* ubA_current = ubA;

        /* Loop through QP sequence. */
        for ( int k=0; k<nP; ++k )
        {
                if ( k != 0 )
                {
                        /* update pointers to the current QP vectors */
                        g_current = &(g[k*nV]);
                        if ( lb != 0 )
                                lb_current = &(lb[k*nV]);
                        if ( ub != 0 )
                                ub_current = &(ub[k*nV]);
                        if ( lbA != 0 )
                                lbA_current = &(lbA[k*nC]);
                        if ( ubA != 0 )
                                ubA_current = &(ubA[k*nC]);

                        returnvalue = QP.hotstart( g_current,lb_current,ub_current,lbA_current,ubA_current, nWSRin,0 );
                }

                /* write results into output vectors */
                obtainOutputs(  k,&QP,returnvalue,nWSRin,
                                                nOutputs,plhs,nV,nC );
        }

        return;
}


/*
 *      q p O A S E S m e x _ b o u n d s
 */
void qpOASESmex_bounds( int nV, int nP,
                                                SymmetricMatrix *H, real_t* g,
                                                real_t* lb, real_t* ub,
                                                int nWSRin, real_t* x0, Options* options,
                                                int nOutputs, mxArray* plhs[]
                                                )
{
        /* 1) Setup initial QP. */
        QProblemB QP( nV );
        QP.setOptions( *options );

        /* 2) Solve initial QP. */
        returnValue returnvalue;

        if ( x0 == 0 )
                returnvalue = QP.init( H,g,lb,ub, nWSRin,0 );
        else
                returnvalue = QP.init( H,g,lb,ub, nWSRin,0, x0,0,0 );

        /* 3) Solve remaining QPs and assign lhs arguments. */
        /*    Set up pointers to the current QP vectors */
        real_t* g_current  = g;
        real_t* lb_current = lb;
        real_t* ub_current = ub;

        /* Loop through QP sequence. */
        for ( int k=0; k<nP; ++k )
        {
                if ( k != 0 )
                {
                        /* update pointers to the current QP vectors */
                        g_current = &(g[k*nV]);
                        if ( lb != 0 )
                                lb_current = &(lb[k*nV]);
                        if ( ub != 0 )
                                ub_current = &(ub[k*nV]);

                        returnvalue = QP.hotstart( g_current,lb_current,ub_current, nWSRin,0 );
                }

                /* write results into output vectors */
                obtainOutputs(  k,&QP,returnvalue,nWSRin,
                                                nOutputs,plhs,nV );
        }

        return;
}



/*
 *      m e x F u n c t i o n
 */
void mexFunction( int nlhs, mxArray* plhs[], int nrhs, const mxArray* prhs[] )
{
        /* inputs */
        SymmetricMatrix *H=0;
        Matrix *A=0;
        real_t *g=0, *A_for=0, *A_mem=0, *lb=0, *ub=0, *lbA=0, *ubA=0, *x0=0;
        int H_idx, g_idx, A_idx, lb_idx, ub_idx, lbA_idx, ubA_idx, x0_idx=-1, options_idx=-1;

        Options options;
        options.printLevel = PL_LOW;
        #ifdef __DEBUG__
        options.printLevel = PL_HIGH;
        #endif
        #ifdef __SUPPRESSANYOUTPUT__
        options.printLevel = PL_NONE;
        #endif

        /* dimensions */
        unsigned int nV=0, nC=0, nP=0;

        /* sparse matrix indices */
        long *Hdiag = 0;

        /* I) CONSISTENCY CHECKS: */
        /* 1) Ensure that qpOASES is called with a feasible number of input arguments. */
        if ( ( nrhs < 4 ) || ( nrhs > 9 ) )
                mexErrMsgTxt( "ERROR (qpOASES): Invalid number of input arguments!\n    Type 'help qpOASES' for further information." );

        /* 2) Check for proper number of output arguments. */
        if ( nlhs > 5 )
                mexErrMsgTxt( "ERROR (qpOASES): At most five output arguments are allowed: \n    [obj,x,y,status,nWSRout]!" );
        if ( nlhs < 1 )
                mexErrMsgTxt( "ERROR (qpOASES): At least one output argument is required: [obj,...]!" );


        /* II) PREPARE RESPECTIVE QPOASES FUNCTION CALL: */
        /*     Choose between QProblem and QProblemB object and assign the corresponding
         *     indices of the input pointer array in to order to access QP data correctly. */
        H_idx = 0;
        g_idx = 1;
        nV = mxGetM( prhs[ H_idx ] ); /* row number of Hessian matrix */
        nP = mxGetN( prhs[ g_idx ] ); /* number of columns of the gradient matrix (vectors series have to be stored columnwise!) */

        /* 0) Check whether options are specified .*/
        if ( ( !mxIsEmpty( prhs[nrhs-1] ) ) && ( mxIsStruct( prhs[nrhs-1] ) ) )
                options_idx = nrhs-1;

        /* 1) Simply bounded QP. */
        if ( ( ( nrhs >= 4 ) && ( nrhs <= 5 ) ) ||
                 ( ( options_idx > 0 ) && ( nrhs == 6 ) ) )
        {
                lb_idx   = 2;
                ub_idx   = 3;

                if ( nrhs >= 5 ) /* x0 specified */
                        x0_idx = 4;
                else
                        x0_idx = -1;
        }
        else
        {
                A_idx = 2;

                /* If constraint matrix is empty, use a QProblemB object! */
                if ( mxIsEmpty( prhs[ A_idx ] ) )
                {
                        lb_idx   = 3;
                        ub_idx   = 4;

                        if ( nrhs >= 8 ) /* x0 specified */
                                x0_idx = 7;
                        else
                                x0_idx = -1;
                }
                else
                {
                        lb_idx   = 3;
                        ub_idx   = 4;
                        lbA_idx  = 5;
                        ubA_idx  = 6;

                        if ( nrhs >= 8 ) /* x0 specified */
                                x0_idx = 7;
                        else
                                x0_idx = -1;

                        nC = mxGetM( prhs[ A_idx ] ); /* row number of constraint matrix */
                }
        }


        /* III) ACTUALLY PERFORM QPOASES FUNCTION CALL: */
        int nWSRin = 5*(nV+nC);
        if ( options_idx > 0 )
                setupOptions( &options,prhs[options_idx],nWSRin );

        /* ensure that data is given in real_t precision */
        if ( ( mxIsDouble( prhs[ H_idx ] ) == 0 ) ||
                 ( mxIsDouble( prhs[ g_idx ] ) == 0 ) )
                mexErrMsgTxt( "ERROR (qpOASES): All data has to be provided in double precision!" );

        /* Check inputs dimensions and assign pointers to inputs. */
        if ( mxGetN( prhs[ H_idx ] ) != nV )
        {
                char msg[200]; 
                snprintf(msg, 199, "ERROR (qpOASES): Hessian matrix input dimension mismatch (%ld != %d)!", 
                                (long int)mxGetN(prhs[H_idx]), nV);
                fprintf(stderr, "%s\n", msg);
                mexErrMsgTxt(msg);
        }

        /* check for sparsity */
        if ( mxIsSparse( prhs[ H_idx ] ) != 0 )
        {
                long *ir = (long *)mxGetIr(prhs[H_idx]);
                long *jc = (long *)mxGetJc(prhs[H_idx]);
                real_t *v = (real_t*)mxGetPr(prhs[H_idx]);
                /*
                for (long col = 0; col < nV; col++)
                        for (long idx = jc[col]; idx < jc[col+1]; idx++)
                                mexPrintf("   (%ld,%ld) %12.4f\n", ir[idx]+1, col+1, v[idx]);
                                */
                //mexPrintf( "%ld\n", ir[0] );
                SymSparseMat *sH;
                H = sH = new SymSparseMat(nV, nV, ir, jc, v);
                Hdiag = sH->createDiagInfo();
        }
        else
        {
                H = new SymDenseMat(nV, nV, nV, (real_t*) mxGetPr(prhs[H_idx]));
        }

        if ( smartDimensionCheck( &g,nV,nP, BT_FALSE,prhs,g_idx ) != SUCCESSFUL_RETURN )
                return;

        if ( smartDimensionCheck( &lb,nV,nP, BT_TRUE,prhs,lb_idx ) != SUCCESSFUL_RETURN )
                return;

        if ( smartDimensionCheck( &ub,nV,nP, BT_TRUE,prhs,ub_idx ) != SUCCESSFUL_RETURN )
                return;

        if ( smartDimensionCheck( &x0,nV,1, BT_TRUE,prhs,x0_idx ) != SUCCESSFUL_RETURN )
                return;

        if ( nC > 0 )
        {
                /* ensure that data is given in real_t precision */
                if ( mxIsDouble( prhs[ A_idx ] ) == 0 )
                        mexErrMsgTxt( "ERROR (qpOASES): All data has to be provided in real_t precision!" );

                /* Check inputs dimensions and assign pointers to inputs. */
                if ( mxGetN( prhs[ A_idx ] ) != nV )
                {
                        char msg[200]; 
                        snprintf(msg, 199, "ERROR (qpOASES): Constraint matrix input dimension mismatch (%ld != %d)!", 
                                        (long int)mxGetN(prhs[A_idx]), nV);
                        fprintf(stderr, "%s\n", msg);
                        mexErrMsgTxt(msg);
                }

                A_for = (real_t*) mxGetPr( prhs[ A_idx ] );

                if ( smartDimensionCheck( &lbA,nC,nP, BT_TRUE,prhs,lbA_idx ) != SUCCESSFUL_RETURN )
                        return;

                if ( smartDimensionCheck( &ubA,nC,nP, BT_TRUE,prhs,ubA_idx ) != SUCCESSFUL_RETURN )
                        return;

                /* Check for sparsity. */
                if ( mxIsSparse( prhs[ A_idx ] ) != 0 )
                {
                        long *ir = (long *)mxGetIr(prhs[A_idx]);
                        long *jc = (long *)mxGetJc(prhs[A_idx]);
                        real_t *v = (real_t*)mxGetPr(prhs[A_idx]);
                        A = new SparseMatrix(nC, nV, ir, jc, v);
                }
                else
                {
                        /* Convert constraint matrix A from FORTRAN to C style
                         * (not necessary for H as it should be symmetric!). */
                        A_mem = new real_t[nC*nV];
                        convertFortranToC( A_for,nV,nC, A_mem );
                        A = new DenseMatrix(nC, nV, nV, A_mem );
            A->doFreeMemory();
                }
        }

        allocateOutputs( nlhs,plhs,nV,nC,nP );

        if ( nC == 0 )
        {
                /* call qpOASES */
                qpOASESmex_bounds(      nV,nP,
                                                        H,g,
                                                        lb,ub,
                                                        nWSRin,x0,&options,
                                                        nlhs,plhs
                                                        );

        delete H;
                if (Hdiag) delete[] Hdiag;
                return;
                /* 2) Call usual version including constraints (using QProblem class) */
        }
        else
        {
                /* Call qpOASES. */
                qpOASESmex_constraints( nV,nC,nP,
                                                                H,g,A,
                                                                lb,ub,lbA,ubA,
                                                                nWSRin,x0,&options,
                                                                nlhs,plhs
                                                                );

                delete H; delete A;
                if (Hdiag) delete[] Hdiag;
                return;
        }
}

/*
 *      end of file
 */