yejet 发表于 2005-6-25 12:10

在Delphi中调用matlab的例子

var
V : Variant;
MReal : OleVariant;
MImage : OleVariant;
begin
i,j : integer;
MReal := VarArrayCreate(, varDouble);
MImage := VarArrayCreate(, varDouble);
V := CreateOLEObject('Matlab.Application');
V.Execute('a=');
V.GetFullMatrix('a','base',VarArrayRef(MReal),VararrayRef(MImage));
for i := 0 to 1 do
for j := 0 to 3 do
Stringgrid1.Cells := MReal;
V.Execute('peaks');
MReal := VarArrayCreate(, varDouble);
MImage := VarArrayCreate(, varDouble);
for i := 0 to 1 do
for j := 0 to 3 do
MReal := i+4;
V.PutFullmatrix('b','base',VarArrayRef(MReal),VararrayRef(MImage));
end

yangfan120 发表于 2006-4-17 11:15

有价值，不错

有价值，不错

qiuyoyo 发表于 2006-7-10 21:11

楼主，搞个delphi调用matlab动态链接库的详细例子看一下啊～
页: [1]
查看完整版本: 在Delphi中调用matlab的例子