mex_engine.c

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

   #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);
   }