ifdefine matlab_VC中使用MATLAB的M文件

展开全部

先将.m文件写成类似

[x]=function 文件名(a)

end

的形式

如再将.m文件生成.dll文件

matlab6.5下生成动态链接库命令

mex -setup

mbuild -setup

mcc -t -h -L C -W lib:sy -T link:lib 文件名.m

再在VC里调用

// zzDlg.cpp : implementation file

//

#include "stdafx.h"

#include "zz.h"

#include "zzDlg.h"

#include "sy.h"

#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()

/

// CZzDlg dialog

CZzDlg::CZzDlg(CWnd* pParent /*=NULL*/)

: CDialog(CZzDlg::IDD, pParent)

{

//{{AFX_DATA_INIT(CZzDlg)

// 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 CZzDlg::DoDataExchange(CDataExchange* pDX)

{

CDialog::DoDataExchange(pDX);

//{{AFX_DATA_MAP(CZzDlg)

// NOTE: the ClassWizard will add DDX and DDV calls here

//}}AFX_DATA_MAP

}

BEGIN_MESSAGE_MAP(CZzDlg, CDialog)

//{{AFX_MSG_MAP(CZzDlg)

ON_WM_SYSCOMMAND()

ON_WM_PAINT()

ON_WM_QUERYDRAGICON()

ON_BN_CLICKED(IDC_BUTTON1, OnButton1)

//}}AFX_MSG_MAP

END_MESSAGE_MAP()

/

// CZzDlg message handlers

BOOL CZzDlg::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 !e69da5e6ba903231313335323631343130323136353331333264633561= 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 CZzDlg::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 CZzDlg::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 CZzDlg::OnQueryDragIcon()

{

return (HCURSOR) m_hIcon;

}

void CZzDlg::OnButton1()

{

CString str;

UpdateData(true);

syInitialize();

static double x1[36]={211,205,206};//这里是调用你那个.m文件函数的输入数组的值

//static double x2[2];

double result[5]={0};

mxArray *A=mclGetUninitializedArray();

//mxArray *B=mclGetUninitializedArray();

mxArray *C=mclGetUninitializedArray();

mlfAssign(&A,mlfDoubleMatrix(36,1,x1,NULL));

//mlfAssign(&B,mlfDoubleMatrix(2,1,x2,NULL));

mlfAssign(&C,mlfGreyneural(A));

double * md=mxGetPr(C);

//double result[0]=md[0];

//double result[1]=md[0];

//double result[2]=md[2];

//double result[3]=md[3];

//double result[4]=md[4];

mxDestroyArray(A);

//mxDestroyArray(B);

mxDestroyArray(C);

str.Format("%f",md[0]);

::AfxMessageBox(str);

syTerminate();

}

追问

我的输入参数为CString类型应该怎么办??

追答

转成int型的

网上有好多这样的东西

已赞过

已踩过<

你对这个回答的评价是？

评论

收起