三階伴隨矩陣/逆矩陣及行列式(II)

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

更新日期: 2010年4月5日

這個版本的程式可以計算三階行列式、逆矩陣(預設值)或伴隨矩陣(包括非奇異(non-singular)的伴隨矩陣)。逆矩陣的顯示形式與第一版的不同，程式亦較長，另外若果輸入的數值為整數，答案會以分數形式表示， 建議將計數機預先設定為假分數形式表示(按 SHIFT SETUP → → 2  )。若果不用計算三階伴隨矩陣，可以使用三階逆矩陣及行列式程式。

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

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

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

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

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

YMmaxX - ABY - CΣx - XMmaxY→D: ?→D: 1┘D→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

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

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

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

YMmaxX - ABY - CΣx - XMmaxY→D: ?→D: D^-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

只計算三階逆矩陣及行列式版本 (142 / 141 bytes)

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

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

 8 EXE 9 EXE 7 EXE (這時顯示?→D及行列式的值 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返回正常模式。

例題2: 計算下列矩陣的伴隨矩陣。

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

8 EXE 9 EXE 7 EXE (這時顯示?→D及行列式的值 40) 1 EXE

(輸入1表示計算伴隨矩陣，顯示 -26) EXE (顯示 20) EXE (顯示 -6) EXE

(顯示 -1) EXE (顯示 -10) EXE (顯示 9) EXE

(顯示 31) EXE (顯示 -10) EXE (顯示 1)

因此，

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

返回 CASIO fx-50FH 及 fx-50F PLUS 程式集

程式舊版

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

這個版本的程式可以計算三階行列式、逆矩陣(預設值)或伴隨矩陣(包括非奇異(non-singular)的伴隨矩陣)。逆矩陣的顯示形式與第一版的不同，程式亦較長，另外若果輸入的數值為整數，答案會以分數形式表示， 建議將計數機預先設定為假分數形式表示(按 SHIFT SETUP → → 2  )。若果不用計算三階伴隨矩陣，可以使用三階逆矩陣及行列式程式。

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

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

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

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

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

YMmaxX - ABY - CDmaxX - XMmaxY→D: ?→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

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

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

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

YMmaxX - ABY - CDmaxX - XMmaxY→D: ?→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