✔ 最佳答案
你可以看以下網址, 有很多有用的program可以找到:
http://hk.geocities.com/kl_cheuk/3650P/3650.htm
quadratic equation program:
http://hk.geocities.com/kl_cheuk/3650P/quadratic1.htm
一元二次方程(I)
程式編寫日期:2005年10月19日
這個程式可解一元二次方程(包括複數根)、亦可以計二次函數的最大/最小值及其對應的x值。另外若果輸入數據為整數(或分數)及答案為有理數時,答案會以分數形式表示,建議將計數機預先設定為假分數形式表示(按六次 Mode,再按 2 EXE )。
注意:若果你不用計複數根,為被免混淆及使用方便,建議在Comp Mode之下輸入程式(先按Mode 1)。若要計複數根,先進入複數模式(先按Mode 2),然後輸入程式,當執行程式時,程式會自動進入複數模式。
程式 (共42 bytes,使用記憶為A, B, C及M):
?→A: ?→B: ?→M: -B┘(2A→C: AC2M-:
C+√-M┘A→A◢ 2C - A→B
無記存兩根的程式 (38 bytes) 有判別式的程式 (47 或 43 bytes)
程式其它版本(包括小數版) (35 bytes 至 46 bytes)
程式特別版 (45 至 51 bytes) 如何用這個程式計二次函數的因式分解
複數係數版 (46 bytes)
例題1: 解 x2 - 7x + 12 = 0
按 Prog 1 再按 1 EXE - 7 EXE 12 EXE (顯示第一個實數根為4) EXE (顯示第二個實數根為3)
∴ x = 4 或 x = 3
例題2: 解 x2 + 6x + 25 = 0
假設程式是在複數模式中輸入
按 Prog 1 再按 1 EXE 6 EXE 25 EXE ( 此時計算機右上角出現R<=>I,表示為複數解)
(顯示第一個根的實數部為-3) 再按 Shift Re<=>Im (顯示第一個根虛數部為 4)
EXE (顯示第二個根的實數部為-3) 再按 Shift Re<=>Im (顯示第二個根虛數部為 - 4)
所以方程的解為 x = -3 ± 4i
程式執行完成後,按 RCL A、RCL B 分別會顯示兩個根的數值,
按 RCL C、RCL M 分別會顯示頂點 x、y (最大/最小點)座標的數值。
注意: 若果程式在comp Mode之下輸入,根又是複數(非實數根),計數機會出現Math error,不過
頂點的坐標依然會被儲存在記憶C及M之中。
Simultaneous Linear equation program:
http://hk.geocities.com/kl_cheuk/3650P/simultaneous1.htm
聯立二元一次方程(I)
程式編寫日期: 2005年10月28日
程式 (53 bytes)
?→A: ?→B: ?→C: ?→D: ?→X: ?→Y:
AX - DB→M: M-1(CX - YB→X◢ M-1(AY - DC→Y
分數版程式 (55 bytes)
精簡版程式 (49 bytes)
例題: 解聯立方程 :
圖片參考:
http://hk.geocities.com/kl_cheuk/3650P/Image76.gif
按 Prog 1 再按 1 EXE 1 EXE 7 EXE 1 EXE - 1 EXE 1 EXE (顯示4) EXE (顯示3)
因此解答為 x = 4 及 y = 3.
程式執行完成後,按 RCL X 、RCL Y及RCL M分別顯示x的值、y的值及方程組行列式的值。