一元三次方程(I)
程式編寫日期: 2006年1月13日
這個程式只能求一元三次方程的實根，若果有學習過複數的朋友，建議使用一元三次方程(II)。
程式 (143 bytes，使用記憶為A, X, Y及M):
?→X: ?→A: -A┘(3X→A: ?→Y: ?→M:
A3 - (AY+M)┘(2X→M: M2 + (Y┘(3X) - A2)3→Y:
0>Y => Goto 0: √YM+: A + 3√M + 3√(M - 2Ans◢
Y => ln 0: A - 3√M◢ Ans◢ Lbl 0: 23√ Pol( M, √-Y→X:
Y÷3→Y: A + Xcos Y◢ A + Xcos( Y + 120o◢
A + Xcos( Y + 240o
例題1: 解 3x3 - 5x2 + x - 4 =0
按 Prog 1 再按 3 EXE - 5 EXE 1 EXE - 4 EXE (顯示第一個根為1.86977)
EXE (出現Math ERROR，表示只有一個實根)
例題2: 解 2x3 - x2 - 72x + 36 =0
按 Prog 1 再按 2 EXE - 1 EXE - 72 EXE 36 EXE (顯示第一個根為6)
EXE (顯示第二個根為 -6) EXE (顯示第三個根為 0.5)
例題3: 解 x3 + 3x2 + 3x + 1 =0
按 Prog 1 再按 1 EXE 3 EXE 3 EXE 1 EXE (顯示第一個根為 -1)
EXE (顯示第二個根為 -1) EXE (顯示第三個根為 -1)
註1: 輸入的係數為整數或分數較為理想，若果輸入的係數為小數，準確度有可能會減少一點。