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,"\nCant 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;
}

（2）编译连接源程序
mex -f h:\matlab53\bin\bccengmatopts.bat engexam.c

（3）运行 engexam.exe

图 12.7.3 -1 运行程序 engexam.exe 得到的信息窗口