聯立三元一次方程及行列式(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-3650P II、fx-50FH II及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

 

Free Web Hosting