Delphi結合matlab編程的例子

Delphi與matlab結合進行編程的例子，你將了解如何創建一個matlab程序，平時在編程中是有必要學習掌握的一個小技巧。本例運行效果：

具體的代碼實現：

vIEw source print? 01 unit Unit1; 02 interface 03 uses 04   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 05   Dialogs,ComObj, StdCtrls; 06 type 07   TForm1 = class(TForm) 08     Button1: TButton; 09     Memo1: TMemo; 10     Label1: TLabel; 11     ListBox1: TListBox; 12     Label2: TLabel; 13     Label3: TLabel; 14     Label4: TLabel; 15     procedure Button1Click(Sender: TObject); 16     procedure FormCreate(Sender: TObject); 17     procedure ListBox1Click(Sender: TObject); 18   private 19     { Private declarations } 20   public 21     { Public declarations } 22   end; 23 var 24   Form1: TForm1; 25   matlab:OleVariant; 26 implementation 27 {$R *.dfm} 28 procedure TForm1.Button1Click(Sender: TObject); 29 begin 30 Matlab.Execute(Memo1.Text); //執行Matlab命令 31 end; 32 procedure TForm1.FormCreate(Sender: TObject); 33 begin 34 matlab:=CreateOleObject('Matlab.Application'); //創建一個matlab程序 35 end; 36 procedure TForm1.ListBox1Click(Sender: TObject); 37 var i:Integer; 38 begin 39 Memo1.Clear; 40 Case ListBox1.ItemIndex Of 41 0:Memo1.Lines.Add('[x,y,z]=peaks;'+#13#10+ 42                    'meshz(x,y,z);'+#13#10+ 43                    'axis([-inf inf -inf inf -inf inf]);'); 44 1:Memo1.Lines.Add('[x,y,z]=peaks;'+#13#10+ 45                    'waterfall(x,y,z);'+#13#10+ 46                    'axis([-inf inf -inf inf -inf inf]);'); 47 2:Memo1.Lines.Add('[x,y,z]=peaks;'+#13#10+ 48                    'meshc(x,y,z);'+#13#10+ 49                    'axis([-inf inf -inf inf -inf inf]);'); 50 3:Memo1.Lines.Add('[x,y,z]=peaks;'+#13#10+ 51                    'surfc(x,y,z);'+#13#10+ 52                    'axis([-inf inf -inf inf -inf inf]);'); 53 4:Memo1.Lines.Add('contour3(peaks, 20);'+#13#10+ 54                    'axis([-inf inf -inf inf -inf inf]);'); 55 5:Memo1.Lines.Add('contour(peaks, 20);'); 56 End; 57 end; 58 end.