非標準形式一元二次方程
程式由 tony200910041 提供。
更新日期: 2011年9月25日
這個程式可以計算非標準形式的一元次方程，例如普通的是ax2+bx+c=0,但有時並非這個形式，例如: a(x-h)2+k=0, (px-q)(rx-s)=0等等，但使用時要進入程式編輯模式中修改函數部份的程式。
程式需要在 REG Quad 模式下執行，因此在輸入程式前請先按 Mode Mode 2 → 3 進入REG Quad模式。
藍色的英文字為統計模式中的變數(x1 按 Shift 2 → → → 1，x2 按 Shift 2 → → → 2。
程式一 (23 bytes，不包括綠色的函數方程)
Stat clear: Lbl 0: C: C , Ans2 - 7Ans + 12 DT: 4>C => Goto 0: 0 x1◢ 0 x2
程式二 (29 bytes，不包括綠色的函數方程)
Stat clear: E 2: Lbl 0: Ans , Ans2 - 7Ans + 12 DT:
4>C => E 2 + C => Goto 0: 0 x1◢ 0 x2
註1: 一元二次方程形式必須為 f(x)= 0的形式，其中 f(x)為一元二次方程式的函數部份。
註2: 綠色的Ans2 - 7Ans + 12 是二次函數方程的函數部份(變數是Ans)，若果想計算其它 一元二次方程，只要修改綠色的部份。
註3: 這個版本程式計算出的答案準確度可能比它版本低一點。
註4: 程式二的函數方程可以包括較普通的除項。
註5: 二次方程式係數儲存在統計記憶C, B 及A中。
例題1: 解 x2 - 7x + 12 = 0
先修改程式綠色函數部份為 Ans2 - 7Ans + 12
再 按 Prog 1 (顯示第一個實數根為4) EXE (顯示第二個實數根為3)
∴ x = 4 或 x = 3
例題2: 解 x2 + 6x + 25 = 0
先修改程式綠色函數部份為 Ans2 + 6Ans + 25
再 按 Prog 1 (顯示Math ERROR表示無實數解)
例題3: 解 (x - 3)(x - 4) = 0
先修改程式綠色函數部份為 (Ans - 3)(Ans - 4)
再 按 Prog 1 (顯示第一個實數根為4) EXE (顯示第二個實數根為3)
∴ x = 4 或 x = 3
例題4: 解 (x3 - 2x2 - x + 2) / (x - 1) = 0 (只限程式二)
先修改程式綠色函數部份為 (Ans3 - 2Ans2 - Ans + 2) / (Ans - 1)
再 按 Prog 1 (顯示第一個實數根為2) EXE (顯示第二個實數根為-1)
∴ x = 2 或 x = - 1