在Delphi中调用matlab的例子

2015-10-23 23:57| 发布者: aspen| 查看: 1202| 评论: 2|原作者: yejet|来自: 声振论坛

摘要: var V : Variant; MReal : OleVariant; MImage : OleVariant; begin i,j : integer; MReal := VarArrayCreate(, varDouble); MImage := VarArrayCreate(, varDouble); V := CreateOLEObject('Matlab ...

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

收藏分享邀请

上一篇：同伦算法的Matlab程序下一篇：遗传算法基础知识介绍

发表评论

账号		自动登录	找回密码
密码			我要加入

在Delphi中调用matlab的例子

最新评论

相关分类