h6.c

《MATLAB实用指南》系列丛书DE源代码

/////////////////////Mex头文件////////////////////////////////////////////
#include "mex.h"
#define MAX 1000
void fill(double *pr,int *pm, int *pn, int max)
{int i; *pm=max/2; *pn=1;
	for(i=0;i<(*pm);i++)pr[i]=i*(4*3.14/max);
	}
void mexFunction(int nlhs,mxArray *plhs[],int nrhs, mxArray *prhs[])
{int m,n,max=MAX; mxArray *rP[1],*lP[1];
	rP[0]=mxCreateDoubleMatrix(max,1,mxREAL);
	fill(mxGetPr(rP[0]),&m,&n,MAX);
	mxSetM(rP[0],m);
	mxSetN(rP[0],n);
	mexCallMATLAB(1,lP,1,rP,"sin");
	mexCallMATLAB(0,NULL,1,lP,"plot");
	mxDestroyArray(rP[0]);
	mxDestroyArray(lP[0]);
	}