三階伴隨矩陣/逆矩陣及行列式(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 ,; 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 ,; 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-3650P II、fx-50FH II及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 ,; 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

Free Web Hosting