一元二次方程(I)複數係數版本

程式需要在 CMPLX 模式下執行,因此在輸入程式前請先按 Mode 2。

第一個程式 (46 bytes)

注意: E是按EXP。

?→A: ?→B: ?→C: B2 - 4AC + E -99:

√Abs Ans ∠ . 5 arg Ans - B: Ans ÷ 2A◢

-B ÷ A - Ans

 

第二個程式 (只適用於Truly SC185,35 bytes)

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

√Ans - B: Ans ÷ 2A◢ -B ÷ A - Ans

 

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

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

∴ x = 4 或 x = 3

 

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

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

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

EXE (顯示第二個根的實數部為 -1.5) 再按 Shift Re<=>Im (顯示第二個根虛數部為 0.5)

所以方程的解為 x = 1 + 2i 或 x = -1.5 + 0.5i

 

返回 fx-3650P 程式集

Free Web Hosting