一元二次方程式(II)

一元二次方程式(II)

更新日期: 2012年8月29日

程式參考了網友 Skwai 意見進行修改。

程式較特別是可以計算複數係數的一元二次方程。

程式需要在 CMPLX 模式下執行，因此在選擇新程式位置後，按 2 選用CMPLX模式。

程式 (49 bytes)

注意: E是按EXP。

?→A: ?→B: ?→C: B² - 4AC→C:

√(Abs(Ans => Ans∠ ( . 5 arg( C:

(Ans - B ) ┘( 2A◢ -B ┘A - Ans

例題1: 解 x² - 7x + 12 = 0

按 Prog 1 再按 1 EXE - 7 EXE 12 EXE (顯示第一個實數根為4) EXE (顯示第二個實數根為3)

∴ x = 4 或 x = 3

例題2: 解 (1+ i)x² + (3 - 2i)x - 5i = 0

按 Prog 1 再按 1 + i EXE 3 - 2i EXE - 5i EXE

(顯示第一個根的實數部為 1) 再按 Shift Re<=>Im (顯示第一個根虛數部為 2)

EXE (顯示第二個根的實數部為 -3/2) 再按 Shift Re<=>Im (顯示第二個根虛數部為 1/2 i)

所以方程的解為 x = 1 + 2i 或 x = -3/2 + i/2