Option
Explicit
Sub
Beispiel()
Const
C_ML_WORKSPACE
As
String
=
"base"
Dim
oML
As
MLApp.MLApp
Dim
A()
As
Double
Dim
Ai()
As
Double
Dim
strA
As
String
Dim
strAi
As
String
Dim
strAii
As
String
Set
oML =
New
MLApp.MLApp
A = RandomMatrix2D(2)
With
oML
.PutWorkspaceData
"A"
, C_ML_WORKSPACE, A
.Execute
"Ai = inv(A)"
.Execute
"Aii = inv(Ai)"
Ai = .GetVariable(
"Ai"
, C_ML_WORKSPACE)
strA = .Execute(
"A"
)
strAi = .Execute(
"Ai"
)
strAii = .Execute(
"Aii"
)
.Quit
End
With
Set
oML =
Nothing
MsgBox strA & strAi & strAii
End
Sub
Function
RandomMatrix2D(n
As
Long
)
As
Double
()
Const
C_MIN
As
Double
= 0
Const
C_MAX
As
Double
= 100
Randomize Timer
Dim
m()
As
Double
Dim
i
As
Long
Dim
j
As
Long
ReDim
m(0
To
n - 1, 0
To
n - 1)
For
i = 0
To
n - 1
For
j = 0
To
n - 1
m(i, j) = (C_MAX - C_MIN) *
CDbl
(Rnd()) + C_MIN
Next
Next
RandomMatrix2D = m
End
Function