一元四次方程精簡版
精簡版較簡短，但要注意方程的形式為 x4 + ax3 + bx2 + cx + d = 0，與之前的版本的輸入方法不同。
更新日期: 2010年11月4日
程式一 (256 bytes，有記存答案)
程式需要在 CMPLX 模式下執行，因此在輸入程式前請先按 Mode 2。
?→B: -B┘4→B: ?→C: ?→A: ?→M:
3B2 2 - CB2 - ABM-: CB┘2 - 2B3 + A┘4→A: B2 - C┘6→C:
A => Goto 0: 3C + √( 9C2 - M→A: MM-: Goto 1:
Lbl 0: C3 - CM - A2: Ans - √(Ans2 - (M┘3 + C2)3:
iAns => 2 3√Abs Ans cos (arg iAns÷3) => Goto 2:
3√iAns + 3√(2A2 + 2CM - 2C3 - iAns: Lbl 2: √(Ans┘2 + C→M:
3C - M2 + A÷M→A: Lbl 1: 6C - A - 2M2→C:
Abs A => √Ans∠ . 5arg A: Ans - M + B→A◢
Abs C => √Ans∠ . 5arg C: Ans + M + B→C◢
2B - 2M - A→M◢ 4B - A - Ans - C→B
程式二 (239 bytes，沒有記存答案)
程式需要在 CMPLX 模式下執行，因此在輸入程式前請先按 Mode 2。
?→B: -B┘4→B: ?→C: ?→A: ?→M:
3B2 2 - CB2 - ABM-: CB┘2 - 2B3 + A┘4→A: B2 - C┘6→C:
A => Goto 0: 3C + √( 9C2 - M→A: MM-: Goto 1:
Lbl 0: C3 - CM - A2: Ans - √(Ans2 - (M┘3 + C2)3:
iAns => 2 3√Abs Ans cos (arg iAns÷3) => Goto 2:
3√iAns + 3√(2A2 + 2CM - 2C3 - iAns: Lbl 2: √(Ans┘2 + C→M:
3C - M2 + A÷M→A: Lbl 1: 6C - A - 2M2→C:
Abs A => √Ans∠ . 5arg A: Ans - M + B◢
2B - 2M - Ans◢ Abs C => √Ans∠ . 5arg CM-:
2Ans + M + B◢ M + B
例題1: 解 x4 + 2x3 - 13x2 - 14x + 24 = 0
程式一
按Prog 1 再按2 EXE - 13 EXE - 14 EXE 24 EXE (顯示第一個根為 3)
EXE (顯示第二個根為 1) EXE (顯示第三個根為 - 4) EXE (顯示第四個根為 - 2)
程式二
按Prog 1 再按2 EXE - 13 EXE - 14 EXE 24 EXE (顯示第一個根為 3)
EXE (顯示第二個根為 - 4) EXE (顯示第三個根為 1) EXE (顯示第四個根為 - 2)
例題2: 解 3x4 - 5x3 + x2 - 4x =0
程式一
按Prog 1 再按- 5 ab/c 3EXE 1 ab/c 3EXE - 4 ab/c 3 EXE
0 EXE (顯示第一個根實數部為 - 0.101554)
Shift Re<=>Im (顯示第 一個根虛數部為0.838323 i)
EXE (顯示第二個根為1.869774)
EXE (顯示第三個根的實數部為 - 0.101554)
Shift Re<=>Im (顯示第 三個根虛數部為 - 0.838323 i)
EXE (顯示第四個根為 0)
程式二
按Prog 1 再按- 5 ab/c 3EXE 1 ab/c 3EXE - 4 ab/c 3 EXE
0 EXE (顯示第一個根實數部為 - 0.101554)
Shift Re<=>Im (顯示第 一個根虛數部為0.838323 i)
EXE (顯示第二個根的實數部為 - 0.101554)
Shift Re<=>Im (顯示第二個根虛數部為 - 0.838323 i)
EXE (顯示第三個根為1.869774)
EXE (顯示第四個根為 0)
程式一執行完成後，按 RCL A 、RCL B、RCL C及RCL M分別顯示四根的數值。
註: 輸入的係數為整數或分數較為理想，若果輸入的係數為小數，準確度有可能會減少一點。