main.cpp

来自「BP神经网络的C++程序,里面有源程序和生成的可执行文件,希望对正在学习的朋友有」· C++ 代码 · 共 47 行

//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#include <engine.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
	: TForm(Owner)
{
        AnsiString tmpStr;

}
//----------------------------------------------------------------------------
void __fastcall TMainForm::Button1Click(TObject *Sender)
{
        DemoMatlab();   // 演示Matlab 语言调用
}
//---------------------------------------------------------------------------
void TMainForm::DemoMatlab()
{
        Engine *eng; // 定义Matlab 引擎
        char buffer[200]; // 定义数据缓冲区
        int array[6]={1,2,3,4,5,6};
   mxArray *S = NULL, *T = NULL;
   engOpen(NULL); // 打开MATLAB 引擎－－－1

   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");      // 获得计算结果－－－－2

   engClose(eng);              // 关闭Matlab 引擎，结束调用
   mxDestroyArray(S);      // 释放变量
   mxDestroyArray(T);
}