聯立三元一次方程及行列式(II)

聯立三元一次方程及行列式(II)

程式新版 (舊版保留在網頁下方)

程式編寫日期: 2008年3月14日修改日期: 2008年11月25日

這個程式完全使用了克萊瑪法則 (Cramer's rule)，因此沒有第一版程式的限制條件，但程式會較長一點。若果輸入係數為整數，答案會以分數形式表示，建議將計數機預先設定為假分數形式表示(按 SHIFT SETUP → → 2 )。

程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。

注意: 藍色的英文字為統計模式中的變數(n 按 shift 1 3 ，maxX 按 shift 2 2 2，maxY 按 shift 2 2 → 2)，FreqOn 按 Shift MODE ← ← 1。

程式 (153 bytes)

FreqOn: ?→A: ?→B: ?→C: ?→D: ?→X: ?→Y: ?→M:

A: ?→A: AnsY - BX , AnsA - XD ; AnsM - XC DT:

BM - YC→X: BA - YD→Y: CA - MD→M: ?→A: ?→B:

?→C: ?→D: AX + CmaxX - Bn◢ (DX - CY + BM)┘Ans◢

AX + CmaxX - Bn→X: (C maxY - AM - Dn)┘X◢

(AY + DmaxX - B maxY)┘X

註: 若果方程組的行列式為零時，會出現Math ERROR，表示方程無唯一解(無限解或無解)。

例題1: 解聯立方程 :

按 Prog 1 再按 1 EXE 1 EXE 1 EXE 6 EXE 1 EXE -1 EXE 2 EXE 5 EXE 1 EXE 3 EXE 1 EXE 10 EXE

(顯示方程組行列式為 -2) EXE (顯示x=1) EXE (顯示y=2) EXE (顯示z=3)

例題2: 計算下列的行列式:　

按 Prog 1 再按 1 EXE 2 EXE 3 EXE EXE (不輸入數值)

7 EXE 8 EXE 9 EXE EXE (不輸入數值)

6 EXE 5 EXE 2 EXE EXE (不輸入數值，最後顯示行列式的值為12)

程式執行完成後，請按AC中止程式。行列式的值儲存於記憶X。

程式舊版

程式編寫日期: 2007年10月3日

這個程式完全使用了克萊瑪法則 (Cramer's rule)，因此沒有第一版程式的限制條件，但程式會較長。

程式需要在 SD 模式下執行，因此在選擇新程式位置後，按 4 選用SD模式。

注意: 藍色的英文字為統計模式中的變數(n 按 shift 1 3 ，Σx 按 shift 1 2)

第一個程式 (小數版，165 bytes)

ClrStat: ?→A: ?→B: ?→C: ?→D: ?→X: ?→Y: ?→M:

; AM - XC - 1 DT: AY - BX DT: A: ?→A: Ans A - XD ; 0 DT:

BM - YC→X: BA - YD→Y: CA - MD→M: ?→A: ?→B:

?→C: ?→D: AX + CΣx - Bn◢ Ans^-1(DX - CY + BM◢

AX + CΣx - Bn→X: ; 0 DT: X^-1(C Ans - AM - Dn◢

; 0 DT: X^-1(AY + DΣx - B Ans

第二個程式 (分數版，168 bytes)

ClrStat: ?→A: ?→B: ?→C: ?→D: ?→X: ?→Y: ?→M:

; AM - XC - 1 DT: AY - BX DT: A: ?→A: Ans A - XD ; 0 DT:

BM - YC→X: BA - YD→Y: CA - MD→M: ?→A: ?→B:

?→C: ?→D: AX + CΣx - Bn◢ (DX - CY + BM)┘Ans◢

AX + CΣx - Bn→X: ; 0 DT: (C Ans - AM - Dn)┘X◢

; 0 DT: (AY + DΣx - B Ans)┘X