VB.net 调用matlab引擎计算

1、新建VB.net工程，添加按钮控件；

2、VS中，项目->添加引用，打开“添加引用对话框”。在COM标签中选择“Matlab Application （Version 7.11） Type Library“，点击“确定”；

3、matlab中编写m文件，保存为EngineTest.m文件（'E:\储层伤害项目\matlab program\matlabcodesEngine'）

这里有输入、输出、绘图

function y=EngineTest(xmax)
x=[0:1:xmax]
y=sin(x)
plot(y)
end

 

3、按钮的click事件中填写如下代码

注意PutFullMatrix、GetFullMatrix连个函数分别有四个参数，含义分别为：

Name(String)：Matlab函数名

WorkSpace(String)：有三种取值："base"       默认工作空间输出name的mxArray结构体
                                                      "global"     全局工作空间
                                                      "caller"       MEX中使用，该取值已无意义

Pr：输入或输出参数的实部

Pi：输入或输出参数的虚部

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As MLApp.MLApp = New MLApp.MLApp ‘定义a为matlab对象
        Dim xmaxreal As Double = {100}                       '定义输入数据的实部
        Dim xmaximag() As Double = {100}                   ’定义输入数据的虚部
        a.PutFullMatrix("xmax", "base", xmaxreal , xmaximag) ‘想matlab发送输入数据xmax（实部xmaxreal，虚部xmaximag）

        a.Execute("path(path,'E:\储层伤害项目\matlab program\matlabcodesEngine')")’设置matlab当前工作路径，否则可能找不到自定义的matlab函数
        a.Execute("Result = EngineTest(xmax)")‘调用matlab函数EngineTest（保存在EngineTestm中）。

       ’第一种输入参数定义方法（这里的100是根据matlab函数中实际大小定的）

        Dim prResult(100) As Double   'OK too
        Dim piResult(100) As Double

       ’第二种输入参数定义方法（这里的100是根据matlab函数中实际大小定的）

        'Dim prResult As Array = Array.CreateInstance(GetType(Double), 11) 'OK
        'Dim piResult As Array = Array.CreateInstance(GetType(Double), 11)
        Call a.GetFullMatrix("Result", "base", prResult, piResult)‘从Result中得到matlab的计算结果

         a.Quit()
    End Sub

原文网址：点击打开链接