mex_engine.c

来自「科学运算语言matlab的程序设计有关的函数code.rar」· C语言 代码 · 共 20 行

   #include "engine.h"
   /*Function mex_engine*/
   #define N_MAX 10000
   void mexFunction( int nlhs, mxArray *plhs[],
                     int nrhs, const mxArray *prhs[])
   {
      mxArray *A;
      int n,m, i;
      double *pA;
      Engine *ep;
      ep=engOpen(NULL);
      A=mxCreateDoubleMatrix(1,N_MAX,mxREAL);
      engEvalString(ep,"Dat=randn(1,10000);");
      engEvalString(ep,"Dat1=fft(Dat);");
      A=engGetArray(ep,"Dat1");
      engClose(ep);
      plhs[0]=mxCreateDoubleMatrix(1,N_MAX,mxREAL); pA=mxGetPr(plhs[0]);
      memcpy(mxGetPr(A),pA,N_MAX);
   }