VC6调用matlab7里的m程序的案例及方法

VC + MATLAB7 C Shared Library
所有调用 MATLAB7 Compiler 产生的共享库的程序都具有如下的大致结构：
1 ． 声明变量或者是函数作为输入变量；
2 ． 调用 mclInitalizeApplication 函数，并测试是否成功，该函数设置了一个全局的 MCR 状态，并且构建 MCR 实例；
3 ． 对于每个库，调用一次 <libraryname>Initalize 函数，为库创建一个 MCR 实例；
4 ． 调用库中的函数，并处理其结果（这是程序的主要部分）；
5 ． 为每个库调用一次 <libraryname>Terminate 函数，用于注销相联系的 MCR ；
6 ． 调用 mclTerminateApplication 函数，释放与全局 MCR 状态相联系的资源；
7 ． 清除变换，关闭文件等，然后退出。
根据 MATLAB 的帮助文档中提供的例子，利用如下文件进行练习：
<matlabroot>/extern/examples/compiler/addmatrix.m
<matlabroot>/extern/examples/compiler/multiplymatrix.m
<matlabroot>/extern/examples/compiler/eigmatrix.m
实现步骤：
1 ） 先将这几个文件拷贝到当前目录下，然后利用 mcc 创建共享库，指令如下：
mcc –v -B csharedlib:libmatrix addmatrix.m multiplymatrix.m eigmatrix.m
其中，操作参数 -B csharedlib 是一个绑定的操作，其等效指令为 -W lib:<libname> -T link:lib 。
2 ）在 VC 中创建一个 MFC 工程（本人创建的为基于对话框的），环境设置根据如下帖子： 怎样设置 Visual Studio 与 Matlb Complier 4.0 一起工作 中的指导进行。在本例子中，只需要在 VC 中进行如下步骤：
A. Tools->Options->Directories->Show directories for ： Include files-><matlab7root> /Extern/Include ；
B. Tools->Options->Directories->Show directories for ： Library files-><matlab7root> /Extern/Lib/Win32/Microsoft/msvc60 ；
C. Project->Setting->C/C++->Category ： Code Generation->Use run-time library ： Debug Multithread DLL ；
D. Project->Setting->Link->Category ： Input->Object/library modules ： mclmcrrt.lib libmatrix.lib （ mcc 生成的共享库）。
3 ）拷贝 MATLAB 当前目录下刚才用 mcc 生成的 libmatrix.h ， libmatrix.dll ， libmatrix.lib ，以及 libmatrix.ctf 文件到 VC 当前工程目录下，并用 Project->Add to Project->Files… 将 libmatrix.h 加入到当前工程中。
4 ）在当前工程的对话框的头文件中加入 #include "libmatrix.h" 与 #include "mclmcr.h" ；
5 ）在 BOOL CMatlab7dllDlg::OnInitDialog() 中进行 MATLAB 库文件的初始化，在 void CMatlab7dllDlg::OnDestroy() 中进行 MATLAB 库文件资源的释放，否则可能出现按钮只能够按一次，第二次运行则出错的现象；
6 ）调用 MATLAB 产生的库文件中函数的处理函数定义在一个按钮的响应函数中，并且要注意的是：如果一个 mxArray 变量需要重用的时候，必须用 mxDestroyArray(out); out=0; 即先进行变量注销，再设置为空。
附上这几个主要函数如下：




1 ． BOOL CMatlab7dllDlg::OnInitDialog()




...{


CDialog::OnInitDialog();


……………


// TODO: Add extra initialization here




/**//* Call the mclInitializeApplication routine. Make sure that the application


* was initialized properly by checking the return status. This initialization


* has to be done before calling any MATLAB API's or MATLAB Compiler generated


* shared library functions. */


if( !mclInitializeApplication(NULL,0) )




...{


AfxMessageBox( "Could not initialize the application.");


exit(1);


}




/**//* Call the library intialization routine and make sure that the


* library was initialized properly. */


if (!libmatrixInitialize())




...{


AfxMessageBox("Could not initialize the library.");


exit(1);


}


return TRUE; // return TRUE unless you set the focus to a control


}




2 ． void CMatlab7dllDlg::OnDestroy()




...{


CDialog::OnDestroy();




/**//* Call the library termination routine */


libmatrixTerminate();


mclTerminateApplication();


}




3 ． void CMatlab7dllDlg::OnRUN()




...{


CString str;




mxArray *in1, *in2; /**//* Define input parameters */




mxArray *out = NULL;/**//* and output parameters to be passed to the library functions */







double data[] = ...{1,2,3,4,5,6,7,8,9};






/**//* Create the input data */


in1 = mxCreateDoubleMatrix(3,3,mxREAL);


in2 = mxCreateDoubleMatrix(3,3,mxREAL);





memcpy(mxGetPr(in1), data, 9*sizeof(double));


memcpy(mxGetPr(in2), data, 9*sizeof(double));







/**//* Call the library function */


mlfAddmatrix(1, &out, in1, in2);




/**//* Display the return value of the library function */


str="The value of added matrix is: ";


str = str + Display(out);


AfxMessageBox(str);






/**//* Destroy the return value since this varaible will be resued in


* the next function call. Since we are going to reuse the variable,


* we have to set it to NULL. Refer to MATLAB Compiler documentation


* for more information on this. */


mxDestroyArray(out); out=0;




mlfMultiplymatrix(1, &out, in1, in2);


str = "The value of the multiplied matrix is: ";


str = str+Display(out);


AfxMessageBox(str);




mxDestroyArray(out); out=0;




mlfEigmatrix(1, &out, in1);


str = "The Eigen value of the first matrix is: ";


str = str+Display(out);


AfxMessageBox(str);




mxDestroyArray(out); out=0;




/**//* Free the memory created */


mxDestroyArray(in1); in1=0;


mxDestroyArray(in2); in2 = 0;




AfxMessageBox("OK, Finished!");


}




4 ． CString CMatlab7dllDlg::Display(const mxArray *in)




...{


CString str, strout=" ";




int i=0, j=0; /**//* loop index variables */




int r=0, c=0; /**//* variables to store the row and column length of the matrix */




double *data; /**//* variable to point to the double data stored within the mxArray */




/**//* Get the size of the matrix */


r = mxGetM(in);


c = mxGetN(in);




/**//* Get a pointer to the double data in mxArray */


data = mxGetPr(in);




/**//* Loop through the data and display the same in matrix format */




for( i = 0; i < c; i++ )...{




for( j = 0; j < r; j++)...{


str.Format("%4.2f ",data[i*c+j]);


strout = strout+str;


}


strout = strout+" ";


}


strout = strout +" ";


return strout;


}



5 ．附 m 文件：
1 ） addmatrix.m
function a = addmatrix(a1, a2)
%ADDMATRIX Add two matrices
% Copyright 2003 The MathWorks, Inc.
a = a1 + a2;

2) multiplymatrix.m
function m = multiplymatrix(a1, a2)
%MULTIPLYMATRIX Multiplies two matrices
% Copyright 2003 The MathWorks, Inc.
m = a1*a2;

3) eigmatrix.m
function e = eigmatrix(a1)
%EIGMATRIX Returns the eigen value of the given matrix
% Copyright 2003 The MathWorks, Inc.
e = eig(a1);

发布到目标机器上的时候需要拷贝过去的文件有： MCRInstaller.exe ，工程文件的可执行程序，共享库 (DLL) ，共享库对应的 .ctf 文件。点击运行 MCRInstaller.exe 文件，安装好 MCR 之后，将 <mcr_root>/runtime/win32 加入到系统的环境变量 path 中去