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

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

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

更新日期: 2010年4月5日

程式需要在 REG Quad 模式下執行，因此在輸入程式前請先按 Mode Mode 2 → 3 進入REG Quad模式。

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

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

Stat clear: ?→M: ³√(M - 1 DT: ?→M: 1 , M DT: ?→M:

0 , M - Σy DT: ?→A: ?→B: ?→C: ?→X: ?→Y: ?→M:

Σx³BM + ΣxyCX + ΣyYA - YCΣx³ - AMΣxy - XBΣy→D: ?→D: 1┘D→D:

D(BM - CY◢ D(YΣy - MΣxy◢ D(ΣxyC - ΣyB◢

D(CX - MA◢ D(MΣx³ - ΣyX◢ D(AΣy - CΣx³◢

D(YA - XB◢ D(ΣxyX - YΣx³◢ D(Σx³B - AΣxy

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

Stat clear: ?→M: ³√(M - 1 DT: ?→M: 1 , M DT: ?→M:

0 , M - Σy DT: ?→A: ?→B: ?→C: ?→X: ?→Y: ?→M:

Σx³BM + ΣxyCX + ΣyYA - YCΣx³ - AMΣxy - XBΣy→D: ?→D: D^-1→D:

D(BM - CY◢ D(YΣy - MΣxy◢ D(ΣxyC - ΣyB◢

D(CX - MA◢ D(MΣx³ - ΣyX◢ D(AΣy - CΣx³◢

D(YA - XB◢ D(ΣxyX - YΣx³◢ D(Σx³B - AΣxy

只計算三階逆矩陣及行列式版本 (163 / 172 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返回正常模式。

返回 fx-3650P及SC-185 程式集

程式舊版

程式編寫日期: 2006年4月30日

程式需要在 REG Quad 模式下執行，因此在輸入程式前請先按 Mode Mode 2 → 3 進入REG Quad模式。

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

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

Stat clear: ?→M: ³√(M - 1 DT: ?→M: 1 , M DT: ?→M:

0 , M - Σy DT: ?→A: ?→B: ?→C: ?→X: ?→Y: ?→M:

Σx³BM + ΣxyCX + ΣyYA - YCΣx³ - AMΣxy - XBΣy→D: ?→D:

(BM - CY)┘D◢ (YΣy - MΣxy)┘D◢ (ΣxyC - ΣyB)┘D◢

(CX - MA)┘D◢ (MΣx³ - ΣyX)┘D◢ (AΣy - CΣx³)┘D◢

(YA - XB)┘D◢ (ΣxyX - YΣx³)┘D◢ (Σx³B - AΣxy)┘D

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

Stat clear: ?→M: ³√(M - 1 DT: ?→M: 1 , M DT: ?→M:

0 , M - Σy DT: ?→A: ?→B: ?→C: ?→X: ?→Y: ?→M:

Σx³BM + ΣxyCX + ΣyYA - YCΣx³ - AMΣxy - XBΣy→D: ?→D:

D^-1(BM - CY◢ D^-1(YΣy - MΣxy◢ D^-1(ΣxyC - ΣyB◢

D^-1(CX - MA◢ D^-1(MΣx³ - ΣyX◢ D^-1(AΣy - CΣx³◢

D^-1(YA - XB◢ D^-1(ΣxyX - YΣx³◢ D^-1(Σx³B - AΣxy