在 Delphi 中的複數(Complex)使用
發表於 : 2008年 11月 27日, 17:52
在 unit VarCmplx 中, 可以查到相關的資料. Delphi 中, 複數(complex) 是利用 variant 來表示的, 其內含了 Real, Imaginary, Radius, Theta, FixedTheta 五個 published 變數, 可以直接作加減乘除(但不含整數除法), 可以利用這些 published 變數來設定複數的資料.
以下為一些常用 function 的例子:
以下為一些常用 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;