聯立三元一次方程及行列式(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。
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集
程式舊版
程式編寫日期: 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
