【正文】 ,39。39。 hc2=uimenu(hc,39。,39。)。set(h,39。excel39。 30 圖 （ 1） 圖 31 圖 （ 2） 圖 32 圖 （ 3） （ 4） 圖 = vbLinkNone = MATLAB|Engine = EngEvalString = vbLinkManual szCommand = szCommand = vbLinkNone = vbLinkNone = MATLAB|Engine 33 = EngFigureResult = vbLinkManual If ( = yes) Then = () Else = LoadPicture End If = vbLinkNone = MATLAB|Engine = EngStringResult = vbLinkManual = vbLinkNone （ 5） DDE中的 MATLAB 客戶 【例 】設(shè)計一個 DDE 對話程序。) result = (x=imread(39。,39。Quit39。SaveAs39。, 39。, A)。Range39。)。按任意鍵，當前激活表由第一張變?yōu)橹付ǖ牡诙垺? disp(39。 % % disp(39。 mxDestroyArray(SV)。 cout奇異值為 。 mxDestroyArray(Ain)。 Engine * ep。 mxDestroyArray(result)。 若想退出，請對 Exit 變量賦任何數(shù)值。)。 engEvalString(ep, engzzy(z)。 //MATLAB 環(huán)境外 數(shù)據(jù)示例 if (!(ep = engOpen(\0))) //開啟本地 MATLAB引擎，如失敗給出警告。 mxDestroyArray(P)。多項式 39。t start MATLAB engine\n)。 result = create()。 } mxDestroyArray(pa1)。 } if (!(mxIsFromGlobalWS(pa2))) { printf(Error saving global matrix: result is not global\n)。 } pa1 = matGetVariable(pmat, LocalDouble)。 mxDestroyArray(pa1)。 memcpy((void *)(mxGetPr(pa2)), (void *)data, sizeof(data))。 pmat = matOpen(file, w)。 return。m, amp。 *pn = 1。 % 2020 年 11 月編寫 （ 5） A=39。 // status=mxGetString(prhs[0],input_buf0,buflen0)。 //16 if (mxIsChar(prhs[0])!=1||mxIsChar(prhs[1])!=1) //17 mexErrMsgTxt(Inputs must be a string.)。 編程示例 【例 】創(chuàng)建一個 C 語言 MEX 文件，實現(xiàn)對 MATLAB 兩個“單行”字符串的合并。 int mxGetN(const mxArray *array_ptr)。 c=exm12020_1(a,b) c = C MEX 文件的執(zhí)行流程 編寫 C MEX 文件的常用庫函數(shù)和示例 常用的 MEX庫函數(shù) （ 1） include void mexFunction(int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[]) 4 { /* 其他 C 源碼 …… */ } （ 2） include void mexErrMsgTxt(const char *error_msg)。 // if (mrows0!=mrows1||ncols0!=ncols1) //28 mexErrMsgTxt(Inputs must be same dimension.)。 mrows1=mxGetM(prhs[1])。 } （ 2） [] include // 1 // void myplus(double y[],double x[],double z[]) { y[0]=x[0]+z[0]。39。由此產(chǎn)生的 PPT 文件，可以在放映過程中，實時地進行 MATLAB 調(diào)用。 第 節(jié)集中介紹：如何 編寫 C MEX 源碼程序，也就是如何為現(xiàn)有的 C 程序編寫接口程序，使之成為 MATLAB 函數(shù)文件；運用這種技術(shù)，讀者可以把積累的優(yōu)秀 C 程序改造成可在 MATLAB 中方便調(diào)用的指令。這開放性表現(xiàn)在兩方面：一， MATLAB 適應(yīng)各科學、專業(yè)研究的需要，提供了各種專業(yè)性的工具包；二， MATLAB 為實現(xiàn)與外部應(yīng)用程序的“無縫”結(jié)合，提供了專門的應(yīng)用程序接口 API。 第 節(jié)用三個算例來說明如何應(yīng)用 ActiveX 實 現(xiàn) MATLAB 與外部應(yīng)用程序的通信。本章內(nèi)容是根據(jù) 。通過本例，從感性上認識：（ A）一般 C 源碼文件如何改寫成具有約定格式的C MEX 源碼文件；（ B） C MEX 源碼文件的基本結(jié)構(gòu)；（ C）基本的編譯鏈接方法；（ D） DLL 文件的調(diào)用方法。 //16 else if (nlhs1) //15 mexErrMsgTxt(Too many output arguments)。 // if (!mxIsDouble(prhs[1])||mxIsComplex(prhs[1])||!(mrows1==1 amp。 //34 myplus(y,x,z)。 int mexPutVariable(const char *workspace, const char *var_name, mxArray *array_ptr)。 5 void mxSetPr(mxArray *array_ptr, double *pr)。 int buflen,buflen0,buflen1,status。 6 input_buf0=(char *)mxCalloc(buflen0,sizeof(char))。 // plhs[0]=mxCreateString(output_buf)。本例演示：（ A）如何在 MEX 文件中調(diào)用MATLAB 的內(nèi)建指令；（ B）如何在 MEX文件中調(diào)用用戶的自編 M文件。 mxArray *rhs[1], *lhs[1]。 mexCallMATLAB(0, NULL, 1, lhs, plot)。 double data[9] = { , , , , , , , , }。 mxSetClassName(pa1, LocalDouble)。 matPutVariable(pmat, LocalString,pa3)。 } // pmat = matOpen(file, r)。 } pa2 = matGetVariable(pmat, GlobalDouble)。 } mxGetString(pa3, str, 255)。 } printf(Done\n)。 char buffer[301]。 engPutVariable(ep,P)。]),r=roots(p))。 mxArray *Pz = NULL, *result = NULL。 mxSetClassName(Pz, z)。下面處于程序段 2運行過程中！ \n)。 此界面上，可輸入任何 MATLAB指令。