MATLAB与外部程序接口编程（源代码）

x// MatlabEngineDlg.cpp : implementation file // #include "stdafx.h" #include "MatlabEngine.h" #include "MatlabEngineDlg.h" #include "engine.h" //添加Matlab引擎头文件 添加MATLAB引擎库对应的静态链接库文件。 通过Visual C++的ClassWizard，添加按钮的单击响应事件，并添加如下代码。 #ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif // CAboutDlg dialog used for App About class CAboutDlg : public CDialog { public: CAboutDlg(); // Dialog Data //{{AFX_DATA(CAboutDlg) enum { IDD = IDD_ABOUTBOX }; //}}AFX_DATA // ClassWizard generated virtual function overrides //{{AFX_VIRTUAL(CAboutDlg) protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support //}}AFX_VIRTUAL // Implementation protected: //{{AFX_MSG(CAboutDlg) //}}AFX_MSG DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD) { //{{AFX_DATA_INIT(CAboutDlg) //}}AFX_DATA_INIT } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CAboutDlg) //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) //{{AFX_MSG_MAP(CAboutDlg) // No message handlers //}}AFX_MSG_MAP END_MESSAGE_MAP() ///////////////////////////////////////////////////////////////////////////// // CMatlabEngineDlg dialog CMatlabEngineDlg::CMatlabEngineDlg(CWnd* pParent /*=NULL*/) : CDialog(CMatlabEngineDlg::IDD, pParent) { //{{AFX_DATA_INIT(CMatlabEngineDlg) // NOTE: the ClassWizard will add member initialization here //}}AFX_DATA_INIT // Note that LoadIcon does not require a subsequent DestroyIcon in Win32 m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME); } void CMatlabEngineDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CMatlabEngineDlg) // NOTE: the ClassWizard will add DDX and DDV calls here //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CMatlabEngineDlg, CDialog) //{{AFX_MSG_MAP(CMatlabEngineDlg) ON_WM_SYSCOMMAND() ON_WM_PAINT() ON_WM_QUERYDRAGICON() ON_BN_CLICKED(IDC_MATLAB_ENGINE, OnMatlabEngine) //}}AFX_MSG_MAP END_MESSAGE_MAP() ///////////////////////////////////////////////////////////////////////////// // CMatlabEngineDlg message handlers BOOL CMatlabEngineDlg::OnInitDialog() { CDialog::OnInitDialog(); // Add "About..." menu item to system menu. // IDM_ABOUTBOX must be in the system command range. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX < 0xF000); CMenu* pSysMenu = GetSystemMenu(FALSE); if (pSysMenu != NULL) { CString strAboutMenu; strAboutMenu.LoadString(IDS_ABOUTBOX); if (!strAboutMenu.IsEmpty()) { pSysMenu->AppendMenu(MF_SEPARATOR); pSysMenu->AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu); } } // Set the icon for this dialog. The framework does this automatically // when the application's main window is not a dialog SetIcon(m_hIcon, TRUE); // Set big icon SetIcon(m_hIcon, FALSE); // Set small icon // TODO: Add extra initialization here return TRUE; // return TRUE unless you set the focus to a control } void CMatlabEngineDlg::OnSysCommand(UINT nID, LPARAM lParam) { if ((nID & 0xFFF0) == IDM_ABOUTBOX) { CAboutDlg dlgAbout; dlgAbout.DoModal(); } else { CDialog::OnSysCommand(nID, lParam); } } // If you add a minimize button to your dialog, you will need the code below // to draw the icon. For MFC applications using the document/view model, // this is automatically done for you by the framework. void CMatlabEngineDlg::OnPaint() { if (IsIconic()) { CPaintDC dc(this); // device context for painting SendMessage(WM_ICONERASEBKGND, (WPARAM) dc.GetSafeHdc(), 0); // Center icon in client rectangle int cxIcon = GetSystemMetrics(SM_CXICON); int cyIcon = GetSystemMetrics(SM_CYICON); CRect rect; GetClientRect(&rect); int x = (rect.Width() - cxIcon + 1) / 2; int y = (rect.Height() - cyIcon + 1) / 2; // Draw the icon dc.DrawIcon(x, y, m_hIcon); } else { CDialog::OnPaint(); } } // The system calls this to obtain the cursor to display while the user drags // the minimized window. HCURSOR CMatlabEngineDlg::OnQueryDragIcon() { return (HCURSOR) m_hIcon; } void CMatlabEngineDlg::OnMatlabEngine() { // TODO: Add your control notification handler code here Engine *ep; //定义Matlab引擎变量 MessageBox("单击确定按钮，Windows正在准备启动Matlab引擎!","Matlab引擎 ", MB_OK | MB_ICONINFORMATION); if (!(ep=engOpen("\0"))) //打开Matlab引擎 { fprintf(stderr, "\n Matlab引擎启动失败!\n"); MessageBox("Matlab引擎启动失败!","Matlab引擎 ", MB_OK |MB_ICONERROR); exit(-1); } MessageBox("单击确定按钮，隐藏MATLAB!","Matlab引擎",MB_OK | MB_ICO- NINFORMATION); engSetVisible(ep, 0); //隐藏Matlab窗口 MessageBox("单击确定按钮，系统重新显示MATLAB!", "Matlab引擎", MB_OK | MB_ICONINFORMATION); engSetVisible(ep, 1); //重新显示Matlab窗口 mxArray *T = NULL; double time[10] = { 0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0 }; //生成矩阵 T = mxCreateDoubleMatrix(1, 10, mxREAL); memcpy((void *)mxGetPr(T), (void *)time, sizeof(time)); //将矩阵变量写入Matlab引擎的工作区 engPutVariable(ep,"T", T); //通过Matlab引擎执行Matlab命令 engEvalString(ep, "D = .5.*(-9.8).*T.^2;"); engEvalString(ep, "plot(T,D);"); engEvalString(ep, "title('Position vs. Time for a falling object');"); engEvalString(ep, "xlabel('Time (seconds)');"); engEvalString(ep, "ylabel('Position (meters)');"); engEvalString(ep, "grid on;"); //释放矩阵变量T占用的内存空间 mxDestroyArray(T); MessageBox("通过例程，说明Matlab的图形显示能力!","Matlab引擎", MB_OK | MB_ICONINFORMATION); //画一朵花 engEvalString(ep, "x=-8:0.5:8;"); engEvalString(ep, "y=x;"); engEvalString(ep, "[Y,X]=meshgrid(y,x);"); engEvalString(ep, "R=sqrt(X.^2+Y.^2)+eps;"); engEvalString(ep, "Z=2*sin(R)./R;"); engEvalString(ep, "surf(X,Y,Z);"); MessageBox("关闭Matlab引擎，系统将退出Matlab应用程序!","Matlab引擎", MB_OK | MB_ICONINFORMATION); engClose(ep); //关闭Matlab引擎，退出Matlab }