三階逆矩陣及行列式

三階逆矩陣及行列式

程式參考了網友roviury意見進行修改。

程式更新日期: 2010年4月5日

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

注意: 藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2，Σy 按 Shift 1 → 2，Σxy 按 Shift 1 → 3)，FreqOn 按 Shift MODE ← ← 1。

第一個程式(可以顯示分數答案 142 bytes)

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

?→M: B , C ; D DT: ?→B: ?→C: ACX + BΣy +

YMmaxX - ABY - CΣx - XMmaxY◢ 1┘Ans→D:

D(XC - BY◢ D(BmaxY - CmaxX◢ D(YmaxX - XmaxY◢

D(YM - Cn◢ D(AC - MmaxY◢ D(Σy - AY◢

D(Bn - XM◢ D(MmaxX - AB◢ D(AX - Σx

第二個程式(可以顯示分數答案 141 bytes)

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

?→M: B , C ; D DT: ?→B: ?→C: ACX + BΣy +

YMmaxX - ABY - CΣx - XMmaxY◢ Ans^-1→D:

D(XC - BY◢ D(BmaxY - CmaxX◢ D(YmaxX - XmaxY◢

D(YM - Cn◢ D(AC - MmaxY◢ D(Σy - AY◢

D(Bn - XM◢ D(MmaxX - AB◢ D(AX - Σx

例題: 計算下列矩陣的逆矩陣。

按 Prog 1 再按 2 EXE 1 EXE 3 EXE 7 EXE 4 EXE 6 EXE

8 EXE 9 EXE 7 EXE (這時顯行列式的值 40) EXE

(顯示 -13/20) EXE (顯示 1/2) EXE (顯示 -3/20) EXE

(顯示 -1/40) EXE (顯示 -1/4) EXE (顯示 9/40) EXE

(顯示 31/40) EXE (顯示 -1/4) EXE (顯示 1/40)

因此，

計算完結後，請按Mode 1返回正常模式。

程式舊版

程式更新日期: 2008年3月15日

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

注意: 藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2，Σy 按 Shift 1 → 2，Σxy 按 Shift 1 → 3)。

第一個程式(可以顯示分數答案 160 bytes)

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

?→M: B , C ; D DT: ?→B: ?→C: ACX + BDmaxY +

YMmaxX - ABY - CDmaxX - XMmaxY→D◢

(XC - BY)┘D◢ (BmaxY - CmaxX)┘D◢ (YmaxX - XmaxY)┘D◢

(YM - Cn)┘D◢ (AC - MmaxY)┘D◢ (n maxY - AY)┘D◢

(Bn - XM)┘D◢ (MmaxX - AB)┘D◢ (AX - n maxX)┘D

第二個程式(不顯示分數答案 151 bytes)

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

?→Y: ?→M: B , C ; D DT: ?→B: ?→C: ACX + BDmaxY +

YMmaxX - ABY - CDmaxX - XMmaxY→D◢

D^-1(XC - BY◢ D^-1(BmaxY - CmaxX◢ D^-1(YmaxX - XmaxY◢

D^-1(YM - Cn◢ D^-1(AC - MmaxY)◢ D^-1(n maxY - AY◢

D^-1(Bn - XM◢ D^-1(MmaxX - AB◢ D^-1(AX - n maxX