聯立三元一次方程及行列式(II)

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

這個程式完全使用了克萊瑪法則 (Cramer's rule),因此沒有第一版程式的限制條件,但程式會較長。

程式需要在 SD 模式下執行,因此在輸入程式前請先按 Mode Mode 1 進入SD模式。

注意: 藍色的英文字為統計模式中的變數(n 按 shift 1 3 ,Σx為平均x 按 shift 1 2)

第一個程式 (小數版,165 bytes)

Stat clear: ?→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)

Stat clear: ?→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

註: 若果方程組的行列式為零時,會出現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。

 

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

Free Web Hosting