一元四次方程
程式編寫日期: 2006年8月4日 最新更新日期: 2011年6月6日
注意 : 若果不需要記存方程的答案，程式中綠色部份可以不輸入。
程式 (277 / 273 bytes)
程式需要在 CMPLX 模式下執行，因此在輸入程式前請先按 Mode 2。
?→M: ?→B: B┘- 4M→B: ?→C: C┘M→C: ?→A: A┘M→A: M: ?→M:
3B2 2 - CB2 - AB - M┘Ans→M: CB┘2 - 2B3 + A┘4→A: B2 - C┘6→C:
A => Goto 0: 3C→C: C + √( C2 + M→A: MM-: Goto 1:
Lbl 0: CM + C3 - 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→C: C + A÷M→A: Lbl 1: 2C - A→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
註:若果是Truly SC-183 / SC-185計算機，可以把程式碼"Abs A => √Ans∠ . 5arg A: Ans - M + B→A◢Abs C => √Ans∠ . 5arg C: Ans + M + B→C◢"化簡為" √A - M + B→A◢ √C + M + B→C◢"
另一個較精簡的版本 (250 / 239 bytes)
例題1: 解 2x4 - 11x3 - 12x2 + 71x + 70 = 0
按 Prog 1 再按 2 EXE - 11 EXE - 12 EXE 71 EXE 70 EXE (顯示第一個根為 -1)
EXE (顯示第二個根為 5) EXE (顯示第三個根為 - 2) EXE (顯示第四個根為 7/2)
例題2: 解 3x4 - 5x3 + x2 - 4x =0
按 Prog 1 再按 3 EXE - 5 EXE 1 EXE - 4 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)
程式執行完成後，按 RCL A 、RCL B、RCL C及RCL M分別顯示四根的數值。
註: 輸入的係數為整數或分數較為理想，若果輸入的係數為小數，準確度有可能會減少一點。