exm12032_1.c

《精通Matlab6.5版》张志勇等编著

#include <windows.h>		//
#include <stdlib.h>			//
#include <stdio.h>			//
#include "engine.h"			//

int PASCAL WinMain (HANDLE hInstance, HANDLE hPrevInstance,
							 LPSTR  lpszCmdLine, int    nCmdShow)
{
	Engine *ep;								//
	mxArray *P=NULL,*r=NULL;		//
	char buffer[301];						//
	double poly[4]={1,0,-2,5};			//
												//
	if (!(ep=engOpen(NULL))) {		//
		fprintf(stderr,"\nCan't start MATLAB engine\n");
		return EXIT_FAILURE;}

	P=mxCreateDoubleMatrix(1,4,mxREAL);		//
	mxSetClassName(P,"p");								//
	memcpy((char *)mxGetPr(P),(char *)poly,4*sizeof(double));
						//
						//
	engPutVariable(ep,"p",P);				//

	engOutputBuffer(ep,buffer,300);//
	engEvalString(ep,"disp(['多项式',poly2str(p,'x'),'   的根']),r=roots(p)");
		//
		//

	MessageBox(NULL,buffer,"exm12032_1展示MATLAB引擎的应用",MB_OK);
						//
						//
						//
	engClose(ep);						//
	mxDestroyArray(P);				//
	return EXIT_SUCCESS;
}