在 Delphi 中的複數(Complex)使用

有關Delphi 的語法, 程式, 等
回覆文章
頭像
tim
文章: 1380
註冊時間: 2008年 11月 26日, 00:49

在 Delphi 中的複數(Complex)使用

文章 tim »

在 unit VarCmplx 中, 可以查到相關的資料. Delphi 中, 複數(complex) 是利用 variant 來表示的, 其內含了 Real, Imaginary, Radius, Theta, FixedTheta 五個 published 變數, 可以直接作加減乘除(但不含整數除法), 可以利用這些 published 變數來設定複數的資料.

以下為一些常用 function 的例子:

代碼: 選擇全部

     
    procedure Tform1.Button1Click(Sender: TObject); 
    var 
      a: Variant; 
      b: double; 
    begin 
      a := VarComplexCreate(1,1); // 1+1i 
      //a := VarComplexExp(a); // e^a 
      a := VarComplexExp(VarComplexCreate(0,2)); // e^2i 
      a.Real := 0.1; 
      b := VarComplexAbs(a); 
      showmessage(a.Real); 
      showmessage(floattostr(b)); 
    end; 
多多留言, 整理文章, 把經驗累積下來.....
回覆文章