/*
 * MATLAB Compiler: 3.0
 * Date: Sun May 13 16:47:41 2007
 * Arguments: "-B" "macro_default" "-O" "all" "-O" "fold_scalar_mxarrays:on"
 * "-O" "fold_non_scalar_mxarrays:on" "-O" "optimize_integer_for_loops:on" "-O"
 * "array_indexing:on" "-O" "optimize_conditionals:on" "-M" "-silentsetup" "-d"
 * "d:/MATLAB6p5/work/nnToolKit/src" "-B" "csglcom:nnToolKit,nnToolKit,2.0"
 * "-B" "sgl" "-m" "-W" "main" "-L" "C" "-t" "-T" "link:exe" "-h"
 * "libmmfile.mlib" "-W" "mainhg" "libmwsglm.mlib" "-t" "-W"
 * "comhg:nnToolKit,nnToolKit,2.0" "-T" "link:lib" "-h" "libmmfile.mlib" "-i"
 * "-i" "D:/MATLAB6p5/work/nnToolKit/lmnet/LmSimu.m"
 * "D:/MATLAB6p5/work/nnToolKit/lmnet/LmTrain.m"
 * "D:/MATLAB6p5/work/nnToolKit/sofm/SofmSimu.m"
 * "D:/MATLAB6p5/work/nnToolKit/sofm/SofmTrain.m" 
 */
#include "calcjx.h"
#include "libmatlbm.h"
#include "libmmfile.h"
static mxArray * _mxarray0_;
static mxArray * _mxarray1_;
static mxArray * _mxarray2_;
static mxArray * _mxarray3_;

static mxChar _array5_[1] = { 'p' };
static mxArray * _mxarray4_;

static mxChar _array7_[1] = { 'w' };
static mxArray * _mxarray6_;
static mxArray * _mxarray8_;

void InitializeModule_calcjx(void) {
    _mxarray0_ = mclInitializeDouble(1.0);
    _mxarray1_ = mclInitializeDouble(0.0);
    _mxarray2_ = mclInitializeDoubleVector(0, 0, (double *)NULL);
    _mxarray3_ = mclInitializeDouble(-1.0);
    _mxarray4_ = mclInitializeString(1, _array5_);
    _mxarray6_ = mclInitializeString(1, _array7_);
    _mxarray8_ = mclInitializeDouble(2.0);
}

void TerminateModule_calcjx(void) {
    mxDestroyArray(_mxarray8_);
    mxDestroyArray(_mxarray6_);
    mxDestroyArray(_mxarray4_);
    mxDestroyArray(_mxarray3_);
    mxDestroyArray(_mxarray2_);
    mxDestroyArray(_mxarray1_);
    mxDestroyArray(_mxarray0_);
}

static mxArray * mlfCalcjx_repcol(mxArray * m_in, mxArray * n);
static void mlxCalcjx_repcol(int nlhs,
                             mxArray * plhs[],
                             int nrhs,
                             mxArray * prhs[]);
static mxArray * mlfCalcjx_repcolint(mxArray * m_in, mxArray * n);
static void mlxCalcjx_repcolint(int nlhs,
                                mxArray * plhs[],
                                int nrhs,
                                mxArray * prhs[]);
static mxArray * mlfCalcjx_reprow(mxArray * m_in, mxArray * n);
static void mlxCalcjx_reprow(int nlhs,
                             mxArray * plhs[],
                             int nrhs,
                             mxArray * prhs[]);
static mxArray * mlfCalcjx_reprowint(mxArray * m_in, mxArray * n);
static void mlxCalcjx_reprowint(int nlhs,
                                mxArray * plhs[],
                                int nrhs,
                                mxArray * prhs[]);
static mxArray * Mcalcjx(int nargout_,
                         mxArray * net,
                         mxArray * PD,
                         mxArray * BZ,
                         mxArray * IWZ,
                         mxArray * LWZ,
                         mxArray * N,
                         mxArray * Ac,
                         mxArray * Q,
                         mxArray * TS);
static mxArray * Mcalcjx_repcol(int nargout_, mxArray * m_in, mxArray * n);
static mxArray * Mcalcjx_repcolint(int nargout_, mxArray * m_in, mxArray * n);
static mxArray * Mcalcjx_reprow(int nargout_, mxArray * m_in, mxArray * n);
static mxArray * Mcalcjx_reprowint(int nargout_, mxArray * m_in, mxArray * n);

static mexFunctionTableEntry local_function_table_[4]
  = { { "repcol", mlxCalcjx_repcol, 2, 1, NULL },
      { "repcolint", mlxCalcjx_repcolint, 2, 1, NULL },
      { "reprow", mlxCalcjx_reprow, 2, 1, NULL },
      { "reprowint", mlxCalcjx_reprowint, 2, 1, NULL } };

_mexLocalFunctionTable _local_function_table_calcjx
  = { 4, local_function_table_ };

/*
 * The function "mlfCalcjx" contains the normal interface for the "calcjx"
 * M-function from file "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines
 * 1-223). This function processes any input arguments and passes them to the
 * implementation version of the function, appearing above.
 */
mxArray * mlfCalcjx(mxArray * net,
                    mxArray * PD,
                    mxArray * BZ,
                    mxArray * IWZ,
                    mxArray * LWZ,
                    mxArray * N,
                    mxArray * Ac,
                    mxArray * Q,
                    mxArray * TS) {
    int nargout = 1;
    mxArray * jx = NULL;
    mlfEnterNewContext(0, 9, net, PD, BZ, IWZ, LWZ, N, Ac, Q, TS);
    jx = Mcalcjx(nargout, net, PD, BZ, IWZ, LWZ, N, Ac, Q, TS);
    mlfRestorePreviousContext(0, 9, net, PD, BZ, IWZ, LWZ, N, Ac, Q, TS);
    return mlfReturnValue(jx);
}

/*
 * The function "mlxCalcjx" contains the feval interface for the "calcjx"
 * M-function from file "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines
 * 1-223). The feval function calls the implementation version of calcjx
 * through this function. This function processes any input arguments and
 * passes them to the implementation version of the function, appearing above.
 */
void mlxCalcjx(int nlhs, mxArray * plhs[], int nrhs, mxArray * prhs[]) {
    mxArray * mprhs[9];
    mxArray * mplhs[1];
    int i;
    if (nlhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: calcjx Line: 1 Column: "
            "1 The function \"calcjx\" was called with mor"
            "e than the declared number of outputs (1)."),
          NULL);
    }
    if (nrhs > 9) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: calcjx Line: 1 Column: "
            "1 The function \"calcjx\" was called with mor"
            "e than the declared number of inputs (9)."),
          NULL);
    }
    for (i = 0; i < 1; ++i) {
        mplhs[i] = NULL;
    }
    for (i = 0; i < 9 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 9; ++i) {
        mprhs[i] = NULL;
    }
    mlfEnterNewContext(
      0,
      9,
      mprhs[0],
      mprhs[1],
      mprhs[2],
      mprhs[3],
      mprhs[4],
      mprhs[5],
      mprhs[6],
      mprhs[7],
      mprhs[8]);
    mplhs[0]
      = Mcalcjx(
          nlhs,
          mprhs[0],
          mprhs[1],
          mprhs[2],
          mprhs[3],
          mprhs[4],
          mprhs[5],
          mprhs[6],
          mprhs[7],
          mprhs[8]);
    mlfRestorePreviousContext(
      0,
      9,
      mprhs[0],
      mprhs[1],
      mprhs[2],
      mprhs[3],
      mprhs[4],
      mprhs[5],
      mprhs[6],
      mprhs[7],
      mprhs[8]);
    plhs[0] = mplhs[0];
}

/*
 * The function "mlfCalcjx_repcol" contains the normal interface for the
 * "calcjx/repcol" M-function from file
 * "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines 223-230). This function
 * processes any input arguments and passes them to the implementation version
 * of the function, appearing above.
 */
static mxArray * mlfCalcjx_repcol(mxArray * m_in, mxArray * n) {
    int nargout = 1;
    mxArray * m = NULL;
    mlfEnterNewContext(0, 2, m_in, n);
    m = Mcalcjx_repcol(nargout, m_in, n);
    mlfRestorePreviousContext(0, 2, m_in, n);
    return mlfReturnValue(m);
}

/*
 * The function "mlxCalcjx_repcol" contains the feval interface for the
 * "calcjx/repcol" M-function from file
 * "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines 223-230). The feval
 * function calls the implementation version of calcjx/repcol through this
 * function. This function processes any input arguments and passes them to the
 * implementation version of the function, appearing above.
 */
static void mlxCalcjx_repcol(int nlhs,
                             mxArray * plhs[],
                             int nrhs,
                             mxArray * prhs[]) {
    mxArray * mprhs[2];
    mxArray * mplhs[1];
    int i;
    if (nlhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: calcjx/repcol Line: 223 Colu"
            "mn: 1 The function \"calcjx/repcol\" was called wi"
            "th more than the declared number of outputs (1)."),
          NULL);
    }
    if (nrhs > 2) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: calcjx/repcol Line: 223 Colu"
            "mn: 1 The function \"calcjx/repcol\" was called wi"
            "th more than the declared number of inputs (2)."),
          NULL);
    }
    for (i = 0; i < 1; ++i) {
        mplhs[i] = NULL;
    }
    for (i = 0; i < 2 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 2; ++i) {
        mprhs[i] = NULL;
    }
    mlfEnterNewContext(0, 2, mprhs[0], mprhs[1]);
    mplhs[0] = Mcalcjx_repcol(nlhs, mprhs[0], mprhs[1]);
    mlfRestorePreviousContext(0, 2, mprhs[0], mprhs[1]);
    plhs[0] = mplhs[0];
}

/*
 * The function "mlfCalcjx_repcolint" contains the normal interface for the
 * "calcjx/repcolint" M-function from file
 * "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines 230-237). This function
 * processes any input arguments and passes them to the implementation version
 * of the function, appearing above.
 */
static mxArray * mlfCalcjx_repcolint(mxArray * m_in, mxArray * n) {
    int nargout = 1;
    mxArray * m = NULL;
    mlfEnterNewContext(0, 2, m_in, n);
    m = Mcalcjx_repcolint(nargout, m_in, n);
    mlfRestorePreviousContext(0, 2, m_in, n);
    return mlfReturnValue(m);
}

/*
 * The function "mlxCalcjx_repcolint" contains the feval interface for the
 * "calcjx/repcolint" M-function from file
 * "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines 230-237). The feval
 * function calls the implementation version of calcjx/repcolint through this
 * function. This function processes any input arguments and passes them to the
 * implementation version of the function, appearing above.
 */
static void mlxCalcjx_repcolint(int nlhs,
                                mxArray * plhs[],
                                int nrhs,
                                mxArray * prhs[]) {
    mxArray * mprhs[2];
    mxArray * mplhs[1];
    int i;
    if (nlhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: calcjx/repcolint Line: 230 Col"
            "umn: 1 The function \"calcjx/repcolint\" was called "
            "with more than the declared number of outputs (1)."),
          NULL);
    }
    if (nrhs > 2) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: calcjx/repcolint Line: 230 Col"
            "umn: 1 The function \"calcjx/repcolint\" was called "
            "with more than the declared number of inputs (2)."),
          NULL);
    }
    for (i = 0; i < 1; ++i) {
        mplhs[i] = NULL;
    }
    for (i = 0; i < 2 && i < nrhs; ++i) {
        mprhs[i] = prhs[i];
    }
    for (; i < 2; ++i) {
        mprhs[i] = NULL;
    }
    mlfEnterNewContext(0, 2, mprhs[0], mprhs[1]);
    mplhs[0] = Mcalcjx_repcolint(nlhs, mprhs[0], mprhs[1]);
    mlfRestorePreviousContext(0, 2, mprhs[0], mprhs[1]);
    plhs[0] = mplhs[0];
}

/*
 * The function "mlfCalcjx_reprow" contains the normal interface for the
 * "calcjx/reprow" M-function from file
 * "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines 237-244). This function
 * processes any input arguments and passes them to the implementation version
 * of the function, appearing above.
 */
static mxArray * mlfCalcjx_reprow(mxArray * m_in, mxArray * n) {
    int nargout = 1;
    mxArray * m = NULL;
    mlfEnterNewContext(0, 2, m_in, n);
    m = Mcalcjx_reprow(nargout, m_in, n);
    mlfRestorePreviousContext(0, 2, m_in, n);
    return mlfReturnValue(m);
}

/*
 * The function "mlxCalcjx_reprow" contains the feval interface for the
 * "calcjx/reprow" M-function from file
 * "d:\matlab6p5\toolbox\nnet\nnutils\calcjx.m" (lines 237-244). The feval
 * function calls the implementation version of calcjx/reprow through this
 * function. This function processes any input arguments and passes them to the
 * implementation version of the function, appearing above.
 */
static void mlxCalcjx_reprow(int nlhs,
                             mxArray * plhs[],
                             int nrhs,
                             mxArray * prhs[]) {
    mxArray * mprhs[2];
    mxArray * mplhs[1];
    int i;
    if (nlhs > 1) {
        mlfError(
          mxCreateString(
            "Run-time Error: File: calcjx/reprow Line: 237 Colu"
            "mn: 1 The function \"calcjx/reprow\" was called wi"
            "th more than the declared number of outputs (1)."),
          NULL);
    }
    if (nrhs > 2) {