VB.NET调用MATLAB示例

本例用Execute函数从VB.NET客户端应用程序直接执行MATLAB命令，生成曲面图，生成复数并输出：[大谦MATLAB，dqmatlab点com]

code.vb.net 
Dim MReal(1, 3) As Double
Dim MImag(1, 3) As Double
Dim intI As Integer=0
Dim strComplex As String=""
Dim MatLab As MLApp.MLApp
MatLab=new MLApp.MLApp()
'执行MATLAB命令
MatLab.Execute("figure")
MatLab.Execute("surf(peaks)")
MatLab.Execute("a=[1 2 3 4; 5 6 7 8]")
MatLab.Execute("b=a + a ")
'将矩阵b传给VB.NET
MatLab.GetFullMatrix("b", "base", MReal, MImag)
'输出复数
For intI=0 To 3
    strComplex=strComplex & CStr(MReal(0, intI)) & "+" & CStr(MImag(0, intI)) & "i" & vbCrLf
Next intI
MsgBox(strComplex)

生成图形如图1-5所示，复数结果如图1-6所示。

Document Image Document Image

图1-5 曲面图 图1-6 复数