project1.prj.txt

这是机械工业张德丰《MATLAB与外部程序接口编程》随书源码

#include <vcl.h>
#pragma hdrstop
#include "Unitl.h"
#pragma package (smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
_fastcall TForm1::TForm1 (TComponent *Owner)
:TForm(Owner)
{
}
void DemoMATLAB ()
{
	Engine *eng;   //定义MATLAB引擎
	char buffer[256];  //定义数据缓冲区
	double array[10]={1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0};
	//应将array定义为双精度类型，这样才能和后面匹配
	mxArray *S=NULL,  *T=NULL;
	eng=engOpen (NULL);  //打开MATLAB引擎---①
	S=mxCreateDoubleMatrix (1, 10, mxREAL);  //产生矩阵变量
	memcpy ((void*)mxGetPr (S), (void*) array,sizeof (array));
	//该函数为C语言字符串复制函数，信息内容请参阅Cbuilder Help。
	engPutVariable (eng, "S", S);  //将变量X置入MATLAB的作空间
	engEvalString (eng, "T=log(S);");  //计算
	engEvalString (eng, "plot(S, T);");  //绘制图形
	ShowMwssage("ok");  //用来观察MATLAB绘制图形
	engOutputBuffer (eng, buffer, 256);
	//获取MATLAB输出
	T=engGetVariable (eng, "T");
	//获取计算结果
	……
	engClose (eng);
	//关闭MATLAB引擎，结束调用
	mxDestroyArray (S);
	//释放变量
	mxDestroyArray (T);
}
void _fastcall TForm1::Button1Click (TObject *Sender)
{
	DemoMATLAB ();  //演示MATLAB语言调用
}