第
第三支烟
Unregistered / Unconfirmed
GUEST, unregistred user!
我在一程序中需要调用MATLAB，然后把数据传送给MATLAB进行计算，然后将结果再传回程序，由于将来我要用到实时控制中去，所以要求定时精度要高，所以下了一个CTIMER控件，但发现总是出错，于是又自己写了调用系统多媒体定时器的函数，用这种方法计时，可是还是出错！！！
用来传参数和计算的函数是在时钟里调用，也就是说每一次时钟触发都要调用一次，进行传参数，计算，收回结果，检查发现，用CB自己的TIMER时一切正常，能够准确将本程序中的参数（如下a,b)传入MATLAB并计算和收回结果，但在其它两种方法调用时，都不能把参数传入，导致无数可取，所以出错,原码如下，请高手指教，不胜感激。
unit1.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "winio.h"
#include "Engine.h"
#include "mmsystem.h"
#include <ExtCtrls.hpp>
#include "CairnTimer.hpp"
float a=2;
float b=200;
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TEdit *Edit1;
TButton *Button3;
TTimer *Timer1;
TButton *Button4;
TButton *Button5;
TCairnTimer *CairnTimer1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
void pascal TimerEvent(UINT TimerID, UINT msg, DWORD dwUser, DWORD dwa, DWORD dwb);（自己写的定时器回调）
void pascal MatlabEng(TObject *Sender);(开启MATLAB用函数）
pascal MatFuzzy(float a,float b) ;（传参数和计算并收回结果）
//---------------------------------------------------------------------------
#endif
unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CairnTimer"
#pragma resource "*.dfm"
UINT TimerID; //定义定时器句柄
UINT TimerResolution=10;//定义定时器周期,默认为10毫秒
UINT TimerAccuracy=5; //定义定时器精度，默认为5毫秒
TForm1 *Form1;
Engine *eng;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
//按钮一的作用是开始用多媒体定时计时，出错
{
TIMECAPS timecaps;
//从系统获得关于定时器服务能力的信息，
//分辨率不能超出系统许可值（1到16毫秒）
// if(timeGetDevCaps(&timecaps,sizeof(TIMECAPS))==TIMERR_NOERROR)
//TimerAccuracy=Min(Max(timecaps.wPeriodMin,Accuracy),timecaps.wPeriodMax);
TimerAccuracy=10;
timeBeginPeriod(TimerAccuracy);
//设置定时器分辨率
// TimerResolution=1; //设置定时间隔为1毫秒
//产生间隔1毫秒，周期执行的定时器事件；
TimerID=timeSetEvent(TimerResolution,TimerAccuracy,&TimerEvent,1,TIME_PERIODIC);//启动定时器
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
//按钮二的作用是停止计时
{
timeKillEvent(TimerID); //删除定时器事件
timeEndPeriod(TimerAccuracy); //清除定时器分辨率
Form1->Timer1->Enabled=false;
Form1->CairnTimer1->Enabled=false;
}
//---------------------------------------------------------------------------
void pascal TimerEvent(UINT TimerID, UINT msg, DWORD dwUser, DWORD dwa, DWORD dwb)
//定时器回调
{
float XXX;
XXX=MatFuzzy(a,b);//调用对MATLAB进行传参数和计算的函数
Form1->Edit1->Text=FloatToStr(XXX);
}
//--------------------------------------------------------------------------------
void pascal MatlabEng(TObject *Sender)//打开MATLAB的函数
{ if (!(eng))//判断MATLAB打开否，否则打开
{
if (!(eng =engOpen("/0")))
{
ShowMessage("MATLAB引擎打开失败，请重试");
exit(-1);
}
}
engEvalString(eng,"fuzzy");//打开MATLAB里的FUZZY，以便手动导入FIS文件，这个与本程序无关，是MATLAB的问题
}
//------------------------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
//按钮三的作用是打开MATLAB
{
MatlabEng(Sender);
}
//---------------------------------------------------------------------------
pascal MatFuzzy(float a,float b)
{ if (!eng)
{
ShowMessage("MATLAB引擎打开失败，请重试");
Form1->Button2Click(Form1->Button2);
return 0;
}
else
{ float *Errorpr,*rErrorpr,*OutPutVpr; //声明用于传址的指针变量
double *OutPut;
Errorpr=&a;
rErrorpr=&b;
//OutPutVpr=&NowSta.OutPutV;
mxArray *ErrorMat=NULL, *rErrorMat=NULL,*OutPutVMat=NULL;
ErrorMat = mxCreateDoubleMatrix(1,1,mxREAL);
rErrorMat= mxCreateDoubleMatrix(1,1,mxREAL);
OutPutVMat= mxCreateDoubleMatrix(1,1,mxREAL);
mxSetName(ErrorMat,"ErrorMat");
mxSetName(rErrorMat,"rErrorMat");
mxSetName(OutPutVMat,"OutPutVMat");
memcpy((char*)mxGetPr(ErrorMat),(char*)Errorpr,sizeof(float));
memcpy((char*)mxGetPr(rErrorMat),(char*)rErrorpr,sizeof(float));
engPutArray(eng,ErrorMat);
engPutArray(eng,rErrorMat);
engPutArray(eng,OutPutVMat);
engEvalString(eng,"OutPutVMat=evalfis([ErrorMat;rErrorMat],fis)");
OutPutVMat=engGetArray(eng,"OutPutVMat");
OutPut=mxGetPr(OutPutVMat);
//mxDestroyArray(OutPutVMat); //清除MATLAB内的变量
//NowSta.OutPutV =*OutPut;
return *OutPut;
}
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
//TIMER的事件函数，与多媒体定时的一样
{ float XXX;
XXX=MatFuzzy(a,b);
Form1->Edit1->Text=FloatToStr(XXX);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
//打开TIMER定时，用TIMER进行计时，此时一切正常
{
Form1->Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
//用CTIMER进行计时，出错！！！
{
Form1->CairnTimer1->Enabled=true;
}
//---------------------------------------------------------------------------
如上所示，可以看出，三个定时方案不同，可响应定时事件是完全一样的，可问题是只有使用CB自己的TIMER时正常，其它两个都有不行，请高手帮忙，我搞不懂
在本程序中，MATLAB只是一个用来计算的工具，不用太懂，大概机理是在程序中用eng =engOpen("/0")这个函数来调出MATLAB，然后eng 就是代表MATLAB环境，程序往里面送数，计算和取结果就行了，如果你想知道有关CB中调用MATLAB的详细情况，请你参考
http://matlab.myrice.com/matlab_and_c.htm
如哪位高手能帮忙解决这个问题，我可以送你1000分，是我基本所有，谢谢
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
下面是我找到的CB中调节器用MATLAB的例子，给大家看看，以便解决问题
发信人: jackie (jackie), 信区: Delphi_CBuilder
标 题: C++Builder调用Matlab的实现方法
发信站: 交大华缘站 (Sun Nov 7 23:04:37 1999) , 转信
国防科技大学机电工程与仪器系
张云洲
---- 摘要：本文简要叙述了Matlab语言的优点，介绍了在用Borland C++Builder语言开发的
Windows应用程序中，调用matlab语言实现科学计算和图形绘制的方法。
---- 关键词：C++Builder Matlab调用 混合编程
1. 引言
---- Matlab是一个高度集成的系统，集科学计算、图象处理、声音处理于一体，具有极高的编程
效率。近年来，Matlab已经从最初的“矩阵实验室”，渗透到科学与工程计算的多个领域，在自
动控制、信号处理、神经网络、模糊逻辑、小波分析等多个方向，都有着广泛的应用。
---- Borland C++Builder是一种新颖的可视化编程语言。在工程应用中，我们一般用
C++Builder语言编写应用程序，实现交互界面、数据采集和端口操作等，但C++Builder在数值处
理分析和算法工具等方面，其效率远远低于Matlab语言。在准确方便地绘制数据图形方面，
Matlab语言更具有无可比拟的优势。此外，Matlab还提供功能强大的工具箱。但Matlab的缺点是
不能实现端口操作和实时控制。因此，若能将两者结合运用，实现优势互补，将获得极大的效
益。
---- 本文结合实际介绍了应用Borland C++Builder3.0开发的Windos应用程序中，对Matlab的
调用方法。
---- 2. C++Builder调用Matlab的实现方案
---- 2.1 实现思路
---- 在高版本的Maltab中（如Matlab V4.2）提供了DDE接口，用户可以通过Windows的DDE通讯
基制实现外部调用。这种实现方式比较简单，但将增大主程序代码，影响运行速度。
---- 在Windows系统中，DLL是一种很特别的可执行文件，可以被多个Windows应用程序同时访
问，具有固定的共享数据段。该数据段的数据在DLL被Windows下载前会一直保留在内存中，因此
可以通过DLL实现用户程序与Matlab之间的数据传输和函数调用。
---- 具体地说，就是利用Matlab的32位动态连接库（DLL），生成相应的可以被C++Builder调用
的DLL，用来提供二者之间的基本支撑环境。只需在用户程序中加载该DLL，即可实现其数据段的
共享。然后在用户程序中操作DLL数据段的数据，并通过某种方式在用户程序中使Matlab执行该
DLL，就可实现用户程序对Matlab的调用。其形式可以是混合编程或函数调用，非常方便而高
效。
---- 2.2 实现方式
---- Matlab提供了可外部连接的DLL文件，通过将其转换为相应的Lib文件，并加以必要的设
置，就可以在C++Builder中直接进行Matlab函数调用，实现C++ Builder语言与Matlab语言的混
合编程。
---- 2.2.1 运行环境要求
---- 由于Matlab提供的是32位的DLL。其运行环境要求是Matlab V4.2或更高版本。C++Builder
可以进行32位编程，这里我们采用的是V3.0版本。
---- 2.2.2 C++Builder下LIB文件的生成
---- Matlab提供的Def文件允许用户通过Implib命令生成相应的Lib文件。其命令格式为：
---- Implib ???.lib ???.def
---- 在< matlab >/extern/include目录下，提供了如下三个.Def文件：
---- _libeng.def，_libmat.def，_libmx.def
---- 通过上述命令可以生成相应的三个Lib文件。这些Lib文件中包含了可外部调用的Matlab函
数的必要信息。
---- 3. C++Builder调用Matlab实现计算和绘图
---- 为清楚起见，作者通过一个简单的CBuilder例程进行说明。该实例通过调用Matlab实现矩
阵运算并绘制图形，来演示C++Builder对Matlab的调用。在C++Builder编辑环境中，建立一个新
的窗体MyForm，并放置一个按钮Demo。将工程文件命名为Try.prj，其主函数为try.cpp。在主函
数中，我们将使用一个实现Matlab调用的子函数DemoMatlab，作为按钮Demo的响应事件。其源代
码如下：
#include < vcl.h >
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TMyForm *MyForm;
__fastcall TMyForm::TMyForm(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TMyForm:
emoClick(TObject *Sender)
{
DemoMatlab(); //演示Matlab语言调用
}
---- 为了调用Matlab中的函数，必须进行必要的设置，将包含这些函数的文件加入工程文件
Try.prj。以下是操作过程：
---- a． 在头文件中加入Engine.h。其包含了启动Matlab调用和关闭的函数声明。
---- b． 打开Project|Option…对话框，点击Directories/Conditionals
在Include Path中，加入目录路径< matlab >/extern/include，该路径包含了engine.h和
matlab.h等有用的头文件。
在Library Path中，加入< matlab >/bin和< matlab >/extern/include。这两个目录路径包
含了可外部调用的DLL和LIB文件。
---- c. 点选Project|Add to Project…对话框，加入如下库文件：
---- _libeng.lib，_libmat.lib和_libmx.lib。
---- 在进行了这些必要的设置之后，我们就可以选用适当的函数来实现目标。 以下是子函数
DemoMatlab的程序代码。
void DemoMatlab
{
Engine *eng; //定义Matlab引擎
char buffer[200]; //定义数据缓冲区
int array[6]={1,2,3,4,5,6};
mxArray *S = NULL, *T = NULL;
engOpen(NULL); //打开MATLAB 引擎 ---①
S= mxCreateDoubleMatrix(1,6, mxREAL);
// 产生矩阵变量
mxSetName(S, "S");
memcpy((char *) mxGetPr(S),
(char *) array, 6*sizeof(int));
engPutArray(eng, S); //将变量X置入Matlab的工作空间
engEvalString(eng, "T = S/S.^2;");
//计算
engEvalString(eng, "plot(S, T);");
//绘制图形
…… ……
engOutputBuffer(eng, buffer, 200);
//获取Matlab输出
T = engGetArray(eng, "T");
//获得计算结果----②
engClose(eng);
//关闭Matlab引擎，结束调用
mxDestroyArray(S);
//释放变量
mxDestroyArray(T);
}
---- 若还需要执行其它功能和任务，那么按照上面介绍的方法，进行变量声明后，在①、②处加
写需要的语句既可。
---- 当然，使用这种方法调用Matlab不能脱离Matlab环境的支撑。但当我们不需要看到Matlab
的命令窗口时，可将其赋予Swhide属性而加以隐藏。
---- 4. 结语
---- 按照本文介绍的方法来实现C++Builder下应用程序对Matlab的调用，可以充分利用
Matlab强大的科学计算功能和丰富的工具箱，而且具有混合编程、方便高效的优点。这是C++语言
和其它高级语言所无法比拟的。按照本文的方法，我们还可以编写程序来最充分地利用Matlab的
其它资源，开发满足自己需要的程序，更有效地完成我们的工作。
用来传参数和计算的函数是在时钟里调用，也就是说每一次时钟触发都要调用一次，进行传参数，计算，收回结果，检查发现，用CB自己的TIMER时一切正常，能够准确将本程序中的参数（如下a,b)传入MATLAB并计算和收回结果，但在其它两种方法调用时，都不能把参数传入，导致无数可取，所以出错,原码如下，请高手指教，不胜感激。
unit1.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "winio.h"
#include "Engine.h"
#include "mmsystem.h"
#include <ExtCtrls.hpp>
#include "CairnTimer.hpp"
float a=2;
float b=200;
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TEdit *Edit1;
TButton *Button3;
TTimer *Timer1;
TButton *Button4;
TButton *Button5;
TCairnTimer *CairnTimer1;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Timer1Timer(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
void __fastcall Button5Click(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
void pascal TimerEvent(UINT TimerID, UINT msg, DWORD dwUser, DWORD dwa, DWORD dwb);（自己写的定时器回调）
void pascal MatlabEng(TObject *Sender);(开启MATLAB用函数）
pascal MatFuzzy(float a,float b) ;（传参数和计算并收回结果）
//---------------------------------------------------------------------------
#endif
unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CairnTimer"
#pragma resource "*.dfm"
UINT TimerID; //定义定时器句柄
UINT TimerResolution=10;//定义定时器周期,默认为10毫秒
UINT TimerAccuracy=5; //定义定时器精度，默认为5毫秒
TForm1 *Form1;
Engine *eng;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
//按钮一的作用是开始用多媒体定时计时，出错
{
TIMECAPS timecaps;
//从系统获得关于定时器服务能力的信息，
//分辨率不能超出系统许可值（1到16毫秒）
// if(timeGetDevCaps(&timecaps,sizeof(TIMECAPS))==TIMERR_NOERROR)
//TimerAccuracy=Min(Max(timecaps.wPeriodMin,Accuracy),timecaps.wPeriodMax);
TimerAccuracy=10;
timeBeginPeriod(TimerAccuracy);
//设置定时器分辨率
// TimerResolution=1; //设置定时间隔为1毫秒
//产生间隔1毫秒，周期执行的定时器事件；
TimerID=timeSetEvent(TimerResolution,TimerAccuracy,&TimerEvent,1,TIME_PERIODIC);//启动定时器
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
//按钮二的作用是停止计时
{
timeKillEvent(TimerID); //删除定时器事件
timeEndPeriod(TimerAccuracy); //清除定时器分辨率
Form1->Timer1->Enabled=false;
Form1->CairnTimer1->Enabled=false;
}
//---------------------------------------------------------------------------
void pascal TimerEvent(UINT TimerID, UINT msg, DWORD dwUser, DWORD dwa, DWORD dwb)
//定时器回调
{
float XXX;
XXX=MatFuzzy(a,b);//调用对MATLAB进行传参数和计算的函数
Form1->Edit1->Text=FloatToStr(XXX);
}
//--------------------------------------------------------------------------------
void pascal MatlabEng(TObject *Sender)//打开MATLAB的函数
{ if (!(eng))//判断MATLAB打开否，否则打开
{
if (!(eng =engOpen("/0")))
{
ShowMessage("MATLAB引擎打开失败，请重试");
exit(-1);
}
}
engEvalString(eng,"fuzzy");//打开MATLAB里的FUZZY，以便手动导入FIS文件，这个与本程序无关，是MATLAB的问题
}
//------------------------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
//按钮三的作用是打开MATLAB
{
MatlabEng(Sender);
}
//---------------------------------------------------------------------------
pascal MatFuzzy(float a,float b)
{ if (!eng)
{
ShowMessage("MATLAB引擎打开失败，请重试");
Form1->Button2Click(Form1->Button2);
return 0;
}
else
{ float *Errorpr,*rErrorpr,*OutPutVpr; //声明用于传址的指针变量
double *OutPut;
Errorpr=&a;
rErrorpr=&b;
//OutPutVpr=&NowSta.OutPutV;
mxArray *ErrorMat=NULL, *rErrorMat=NULL,*OutPutVMat=NULL;
ErrorMat = mxCreateDoubleMatrix(1,1,mxREAL);
rErrorMat= mxCreateDoubleMatrix(1,1,mxREAL);
OutPutVMat= mxCreateDoubleMatrix(1,1,mxREAL);
mxSetName(ErrorMat,"ErrorMat");
mxSetName(rErrorMat,"rErrorMat");
mxSetName(OutPutVMat,"OutPutVMat");
memcpy((char*)mxGetPr(ErrorMat),(char*)Errorpr,sizeof(float));
memcpy((char*)mxGetPr(rErrorMat),(char*)rErrorpr,sizeof(float));
engPutArray(eng,ErrorMat);
engPutArray(eng,rErrorMat);
engPutArray(eng,OutPutVMat);
engEvalString(eng,"OutPutVMat=evalfis([ErrorMat;rErrorMat],fis)");
OutPutVMat=engGetArray(eng,"OutPutVMat");
OutPut=mxGetPr(OutPutVMat);
//mxDestroyArray(OutPutVMat); //清除MATLAB内的变量
//NowSta.OutPutV =*OutPut;
return *OutPut;
}
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
//TIMER的事件函数，与多媒体定时的一样
{ float XXX;
XXX=MatFuzzy(a,b);
Form1->Edit1->Text=FloatToStr(XXX);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
//打开TIMER定时，用TIMER进行计时，此时一切正常
{
Form1->Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
//用CTIMER进行计时，出错！！！
{
Form1->CairnTimer1->Enabled=true;
}
//---------------------------------------------------------------------------
如上所示，可以看出，三个定时方案不同，可响应定时事件是完全一样的，可问题是只有使用CB自己的TIMER时正常，其它两个都有不行，请高手帮忙，我搞不懂
在本程序中，MATLAB只是一个用来计算的工具，不用太懂，大概机理是在程序中用eng =engOpen("/0")这个函数来调出MATLAB，然后eng 就是代表MATLAB环境，程序往里面送数，计算和取结果就行了，如果你想知道有关CB中调用MATLAB的详细情况，请你参考
http://matlab.myrice.com/matlab_and_c.htm
如哪位高手能帮忙解决这个问题，我可以送你1000分，是我基本所有，谢谢
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
下面是我找到的CB中调节器用MATLAB的例子，给大家看看，以便解决问题
发信人: jackie (jackie), 信区: Delphi_CBuilder
标 题: C++Builder调用Matlab的实现方法
发信站: 交大华缘站 (Sun Nov 7 23:04:37 1999) , 转信
国防科技大学机电工程与仪器系
张云洲
---- 摘要：本文简要叙述了Matlab语言的优点，介绍了在用Borland C++Builder语言开发的
Windows应用程序中，调用matlab语言实现科学计算和图形绘制的方法。
---- 关键词：C++Builder Matlab调用 混合编程
1. 引言
---- Matlab是一个高度集成的系统，集科学计算、图象处理、声音处理于一体，具有极高的编程
效率。近年来，Matlab已经从最初的“矩阵实验室”，渗透到科学与工程计算的多个领域，在自
动控制、信号处理、神经网络、模糊逻辑、小波分析等多个方向，都有着广泛的应用。
---- Borland C++Builder是一种新颖的可视化编程语言。在工程应用中，我们一般用
C++Builder语言编写应用程序，实现交互界面、数据采集和端口操作等，但C++Builder在数值处
理分析和算法工具等方面，其效率远远低于Matlab语言。在准确方便地绘制数据图形方面，
Matlab语言更具有无可比拟的优势。此外，Matlab还提供功能强大的工具箱。但Matlab的缺点是
不能实现端口操作和实时控制。因此，若能将两者结合运用，实现优势互补，将获得极大的效
益。
---- 本文结合实际介绍了应用Borland C++Builder3.0开发的Windos应用程序中，对Matlab的
调用方法。
---- 2. C++Builder调用Matlab的实现方案
---- 2.1 实现思路
---- 在高版本的Maltab中（如Matlab V4.2）提供了DDE接口，用户可以通过Windows的DDE通讯
基制实现外部调用。这种实现方式比较简单，但将增大主程序代码，影响运行速度。
---- 在Windows系统中，DLL是一种很特别的可执行文件，可以被多个Windows应用程序同时访
问，具有固定的共享数据段。该数据段的数据在DLL被Windows下载前会一直保留在内存中，因此
可以通过DLL实现用户程序与Matlab之间的数据传输和函数调用。
---- 具体地说，就是利用Matlab的32位动态连接库（DLL），生成相应的可以被C++Builder调用
的DLL，用来提供二者之间的基本支撑环境。只需在用户程序中加载该DLL，即可实现其数据段的
共享。然后在用户程序中操作DLL数据段的数据，并通过某种方式在用户程序中使Matlab执行该
DLL，就可实现用户程序对Matlab的调用。其形式可以是混合编程或函数调用，非常方便而高
效。
---- 2.2 实现方式
---- Matlab提供了可外部连接的DLL文件，通过将其转换为相应的Lib文件，并加以必要的设
置，就可以在C++Builder中直接进行Matlab函数调用，实现C++ Builder语言与Matlab语言的混
合编程。
---- 2.2.1 运行环境要求
---- 由于Matlab提供的是32位的DLL。其运行环境要求是Matlab V4.2或更高版本。C++Builder
可以进行32位编程，这里我们采用的是V3.0版本。
---- 2.2.2 C++Builder下LIB文件的生成
---- Matlab提供的Def文件允许用户通过Implib命令生成相应的Lib文件。其命令格式为：
---- Implib ???.lib ???.def
---- 在< matlab >/extern/include目录下，提供了如下三个.Def文件：
---- _libeng.def，_libmat.def，_libmx.def
---- 通过上述命令可以生成相应的三个Lib文件。这些Lib文件中包含了可外部调用的Matlab函
数的必要信息。
---- 3. C++Builder调用Matlab实现计算和绘图
---- 为清楚起见，作者通过一个简单的CBuilder例程进行说明。该实例通过调用Matlab实现矩
阵运算并绘制图形，来演示C++Builder对Matlab的调用。在C++Builder编辑环境中，建立一个新
的窗体MyForm，并放置一个按钮Demo。将工程文件命名为Try.prj，其主函数为try.cpp。在主函
数中，我们将使用一个实现Matlab调用的子函数DemoMatlab，作为按钮Demo的响应事件。其源代
码如下：
#include < vcl.h >
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TMyForm *MyForm;
__fastcall TMyForm::TMyForm(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TMyForm:
emoClick(TObject *Sender){
DemoMatlab(); //演示Matlab语言调用
}
---- 为了调用Matlab中的函数，必须进行必要的设置，将包含这些函数的文件加入工程文件
Try.prj。以下是操作过程：
---- a． 在头文件中加入Engine.h。其包含了启动Matlab调用和关闭的函数声明。
---- b． 打开Project|Option…对话框，点击Directories/Conditionals
在Include Path中，加入目录路径< matlab >/extern/include，该路径包含了engine.h和
matlab.h等有用的头文件。
在Library Path中，加入< matlab >/bin和< matlab >/extern/include。这两个目录路径包
含了可外部调用的DLL和LIB文件。
---- c. 点选Project|Add to Project…对话框，加入如下库文件：
---- _libeng.lib，_libmat.lib和_libmx.lib。
---- 在进行了这些必要的设置之后，我们就可以选用适当的函数来实现目标。 以下是子函数
DemoMatlab的程序代码。
void DemoMatlab
{
Engine *eng; //定义Matlab引擎
char buffer[200]; //定义数据缓冲区
int array[6]={1,2,3,4,5,6};
mxArray *S = NULL, *T = NULL;
engOpen(NULL); //打开MATLAB 引擎 ---①
S= mxCreateDoubleMatrix(1,6, mxREAL);
// 产生矩阵变量
mxSetName(S, "S");
memcpy((char *) mxGetPr(S),
(char *) array, 6*sizeof(int));
engPutArray(eng, S); //将变量X置入Matlab的工作空间
engEvalString(eng, "T = S/S.^2;");
//计算
engEvalString(eng, "plot(S, T);");
//绘制图形
…… ……
engOutputBuffer(eng, buffer, 200);
//获取Matlab输出
T = engGetArray(eng, "T");
//获得计算结果----②
engClose(eng);
//关闭Matlab引擎，结束调用
mxDestroyArray(S);
//释放变量
mxDestroyArray(T);
}
---- 若还需要执行其它功能和任务，那么按照上面介绍的方法，进行变量声明后，在①、②处加
写需要的语句既可。
---- 当然，使用这种方法调用Matlab不能脱离Matlab环境的支撑。但当我们不需要看到Matlab
的命令窗口时，可将其赋予Swhide属性而加以隐藏。
---- 4. 结语
---- 按照本文介绍的方法来实现C++Builder下应用程序对Matlab的调用，可以充分利用
Matlab强大的科学计算功能和丰富的工具箱，而且具有混合编程、方便高效的优点。这是C++语言
和其它高级语言所无法比拟的。按照本文的方法，我们还可以编写程序来最充分地利用Matlab的
其它资源，开发满足自己需要的程序，更有效地完成我们的工作。