三次多項式化簡

程式由網友博&碩提供及參考了網友 superMANganese 及 roviury的修改意見，程式可以化簡一個三次的多項式。程式一雖然較長一點，但較接程式開始位置，較快找到函數方程，方便修改函數方程。

程式更新日期: 2010年1月14日

注意 : 若果不用記存答案，程式中綠色部份可以不輸入。

程式一 (68 bytes / 64 bytes，不包括紫色的函數方程)

For -1→M To 2:

(3M - 1)(M² - 2M + 9) - 2M→X:

D→C: B→D: A→B: X→A: Next:

. 5(D - B + 3^-1(A - C→A◢ . 5(B - 2D + C→B◢

Ans - A + D - C→C◢ D

程式二(64 bytes / 60 bytes，不包括紫色的函數方程)

For -1→M To 2: D→C: B→D: A→B:

(3M - 1)(M² - 2M + 9) - 2M→A: Next:

. 5(D - B + 3^-1(A - C→A◢ . 5(B - 2D + C→B◢

Ans - A + D - C→C◢ D

註: 紫色的 (3M - 1)(M² - 2M + 9) - 2M 是函數方程(變數是M)，若果想化簡其它三次多項式，只要修改紫色的部份即可。

例題: 化簡 (3x - 1)(x² - 2x + 9) - 2x

按 Prog 1 (顯示3) EXE (顯示 -7) EXE (顯示27) EXE (顯示-9)

所以 (3x - 1)(x² - 2x + 9) - 2x = 3x³ - 7x² + 27x - 9

註: 計算完結後可以按 RCL A, RCL B, RCL C及RCL D可順序顯示三次方程式的係數。