frac_tree_s_main.c

本人收集的一些有关matlab的代码程序设计 也不知道改选什么分类

/*
 * MATLAB Compiler: 2.0
 * Date: Wed Apr 19 20:11:53 2000
 * Arguments: "-m" "frac_tree_s.m" 
 */

#ifndef MLF_V2
#define MLF_V2 1
#endif

#include "matlab.h"
#include "frac_tree_s.h"

static mlfFunctionTableEntry function_table[1]
  = { { "frac_tree_s", mlxFrac_tree_s, 0, 2 } };

/*
 * The function "main" is a Compiler-generated main wrapper, suitable for
 * building a stand-alone application. It initializes a function table for use
 * by the feval function, and then calls the function "mlxFrac_tree_s".
 * Finally, it clears the feval table and exits.
 */
int main(int argc, const char * * argv) {
    int status = 0;
    mxArray * varargin = mclInitialize(NULL);
    mxArray * result = mclInitialize(NULL);
    mlfEnterNewContext(0, 0);
    mlfFunctionTableSetup(1, function_table);
    mlfAssign(&varargin, mclCreateCellFromStrings(argc - 1, argv + 1));
    mlfAssign(
      &result,
      mlfFeval(
        mclValueVarargout(),
        mlxFrac_tree_s,
        mlfIndexRef(varargin, "{?}", mlfCreateColonIndex()),
        NULL));
    mxDestroyArray(varargin);
    if (mclIsInitialized(result) && ! mxIsEmpty(result)) {
        status = mclArrayToInt(result);
    }
    mxDestroyArray(result);
    mlfFunctionTableTakedown(1, function_table);
    mlfRestorePreviousContext(0, 0);
    return status;
}