名前 題名 ▼ takiさん > // ------------------------------------ > > 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 > > // ------------------------------------ > > rad := (127 / 180) * pi; // 2.21656... > > a.Real := 0.0; // 0.0 > a.Imaginary := -rad; // -127 > > b := VarComplexExp(a); // b = e^a > > kaku := VarComplexAngle(b); // 偏角は? > kaku := kaku / pi * 180; > label5.Caption := floattostr(kaku); // -127度 > label6.Caption := floattostr(VarComplexAbs(b)); // 1.0 > > // ------------------------------------ > > > Realが0なら、Imaginaryがどんな値をとっても・・・ですよね。 > > すみません。Realが0でも意味がありました。 > しかも、長さは1.0になりました。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link