|
rad := (127 / 180) * pi;
a.Real := 0.0; // 0.0
a.Imaginary := rad; // 127
b := VarComplexExp(a); // b = e^a
kaku := VarComplexAngle(b); // 偏角は?
kaku := kaku / pi * 180;
label3.Caption := floattostr(kaku); // 127度
label4.Caption := floattostr(VarComplexAbs(b)); // 1.0
// 改めて確認すると
label5.Caption := floattostr(b.Real); // -0.601815..
label6.Caption := floattostr(b.Imaginary); // 0.798635..
|