聯立三元一次方程及行列式(II)
程式編寫日期: 2006年4月28日
這個程式完全使用了克萊瑪法則 (Cramer's rule)，因此沒有第一版程式的限制條件，但程式會較長。
程式需要在 SD 模式下執行，因此在輸入程式前請先按 Mode Mode 1 進入SD模式。
注意: 藍色的英文字為統計模式中的變數(n 按 shift 1 3 ，Σx為平均x 按 shift 1 2)
第一個程式 (小數版，165 bytes)
Stat clear: ?→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)
Stat clear: ?→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
註: 若果方程組的行列式為零時，會出現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。