engexam.c

精通matlab

#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}; /*三次多项式的系数*/

	/*启动本机MATLAB引擎，如果出错则退出程序。
	如想启动远程主机上的MATLAB，则用相应主机名代替\0*/
	if (!(ep=engOpen("\0"))) {
		fprintf(stderr,"\nCan't start MATLAB engine\n");
		return EXIT_FAILURE;}

	/*创建变量P，将poly变量中定义的多项式系数值拷贝至该变量P*/
	P=mxCreateDoubleMatrix(1,4,mxREAL);
	/*给变量P取名为p，将P传递到引擎空间，p将被运用于MATLAB表达式中*/
	mxSetName(P,"p"); 
	memcpy((char *)mxGetPr(P),(char *)poly,4*sizeof(double));
	engPutArray(ep,P);

	/*利用MATLAB求解多项式根，并写至缓冲区*/
	engOutputBuffer(ep,buffer,300);
	engEvalString(ep,"r=roots(p)");

	/*将缓冲区中的内容输出屏幕窗口，关闭MATLAB引擎，释放指针P。*/
	MessageBox(NULL,buffer,"Engexam.c--多项式x^3-2x+5的根",MB_OK);
	engClose(ep);
	mxDestroyArray(P);

	return EXIT_SUCCESS;
}