12.7 API应用程序接口
12.7.3 MATLAB引擎
【例 17.7.3 -1 】在 C 源程序中调用 MATLAB 引擎来计算三次多项式  的根。
（1）编写源程序 engexam.c 。
#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;
}
（2）编译连接源程序
mex -f h:\matlab53\bin\bccengmatopts.bat engexam.c
（3）运行 engexam.exe
图 12.7.3 -1 运行程序 engexam.exe 得到的信息窗口
|
