向量積
更新日期: 2011年5月29日
這個程式可以用作計算下列的問題:
● 向量積 (Vector product)
● 純量三重積 (Scalar triple product)
● 向量三重積 (Vector triple product)
● 三階矩陣行列式 (3x3 Determinant)
● 三階伴隨矩陣及逆矩陣 (Adjoint and Inverse of 3×3 matrix)
● 聯立二元一次方程 (Simultaneous Linear Equations in 2 unknowns)
● 聯立三元一次方程 (Simultaneous Linear Equations in 3 unknowns)
●聯立三元一次齊次方程通解(General solution of Simultaneous Homogeneous Equations in 3 unknows)
程式一 (65 bytes)
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
注意: 藍色的英文字為統計模式中的變數(Σx 按 Shift 1 2，Σy 按 Shift 1 → 2)，而DT是按M+。
ClrStat: YA - DC , DB - XA DT: A→D:
XC - BY→A: B→X: C→Y: Σx→B: Σy→C:
A: ?→A: ?→B: ?→C: AnsA+ ΣxB +ΣyC
程式二 (COMP Mode或 CMPLX mode，80 bytes)
注意: 如要同時計算複數問題，請以複數模式輸入。
DB - XA→M: YA - DC→D: XC - BY→X: C→Y:
M→C: X→M: B→X: D→B: A→D: M→A:
?→A: B: ?→B: MA + AnsB→M:
C: ?→C: AnsC + M
例題1: 計算 (i + 2j + 3k) × ( 4i + 5j + 6k)
按 Prog 1 再按 1 EXE 2 EXE 3 EXE EXE 4 EXE 5 EXE 6 EXE EXE
(顯示-3) EXE (顯示6) EXE (顯示-3)
所以(i + 2j + 3k) × ( 4i + 5j + 6k) = -3i + 6j -3k
例題2: 計算 (i + 2j + 3k) × ( 4i + 5j + 6k)•(2i - 3j + 7k)
按 Prog 1 再按 1 EXE 2 EXE 3 EXE EXE 4 EXE 5 EXE 6 EXE EXE
2 EXE - 3 EXE 7 EXE (顯示 - 45)
所以(i + 2j + 3k) × ( 4i + 5j + 6k)•(2i - 3j + 7k) = - 45
例題3: 計算 (i + 2j + 3k) × ( 4i + 5j + 6k) × (2i - 3j + 7k)
按 Prog 1 再按 1 EXE 2 EXE 3 EXE EXE 4 EXE 5 EXE 6 EXE EXE
EXE EXE EXE EXE 2 EXE - 3 EXE 7 EXE EXE
(顯示 33) EXE (顯示 15) EXE (顯示 - 3)
所以 (i + 2j + 3k) × ( 4i + 5j + 6k) × (2i - 3j + 7k) = 33i + 15j - 3k
例題4: 計算下列的行列式:
按 Prog 1 再按 1 EXE 2 EXE 3 EXE EXE 7 EXE 8 EXE 9 EXE EXE
6 EXE 5 EXE 2 EXE (顯示答案為 12)
例題5: 計算下列矩陣的伴隨矩陣及逆矩陣。
按 Prog 1 (先輸入第二列及第三列的數據)
7 EXE 4 EXE 6 EXE EXE 8 EXE 9 EXE 7 EXE EXE
注意現在要記下第一及第二欄的答案及同時輸入第一及二列數值
(顯示 -26) 2 EXE (顯示 -1) 1 EXE (顯示 31) 3 EXE (顯示行列式為 40) EXE
(顯示 20) 7 EXE (顯示 -10) 4 EXE (顯示 -10) 6 EXE (顯示行列式為 40) EXE
(顯示 -6) EXE (顯示 9) EXE (顯示 1)
因此，
計算完結後，按AC終止程式。
註: 在顯示第一及第二欄答案時，會同時顯示兩次行列式的值，若果數值不同，表示有輸入錯誤。
聯立二元一次方程式參考資料:
克萊瑪法則 (Cramer's rule)
例題6: 解以下聯立二元一次方程
按 Prog 1 再按 1 EXE 1 EXE - 7 EXE EXE 1 EXE - 1 EXE - 1 EXE EXE
(顯示△x為 - 8) EXE (顯示△y為 - 6) EXE (顯示△為 - 2)
所以 x = (- 8)/(- 2) = 4, y = (- 6)/(- 2) =3
聯立三元一次方程式參考資料:
克萊瑪法則 (Cramer's rule)
例題7: 解聯立方程 :
注意輸入次序為: 3個x係數，3個y係數，3個z係數，3個常數，3個x係數，3個y係數
按 Prog 1 再按 1 EXE 1 EXE 1 EXE EXE 1 EXE -1 EXE 3 EXE EXE
1 EXE 2 EXE 1 EXE (顯示△為 - 2) EXE
6 EXE 5 EXE 10 EXE (顯示△x為 - 2) EXE
1 EXE 1 EXE 1 EXE (注意顯示 -△y為 4) EXE
1 EXE - 1 EXE 3 EXE (顯示△z為 - 6)
所以 x = (- 2)/(- 2) = 1, y = (- 4)/(-2) = 2, z = (- 6)/(- 2) = 3
例題8: 求下列聯立方程的通解:
按 Prog 1 再按 1 EXE 1 EXE 1 EXE EXE 1 EXE - 1 EXE 2 EXE EXE
(顯示 3) EXE (顯示 - 1) EXE (顯示 - 2)
因此通解為 x = 3t, y = - t, z = - 2t
例題9: 計算下列的行列式:
只適用於複數模式輸入程式二
按 Prog 1 再按 1 + 2
i EXE 2 - i EXE 3 + 4i EXE EXE4 - 3i EXE 5 + 2i EXE 1 + i EXE EXE
2 + 3i EXE 4 - i EXE 5 + 2i EXE (顯示實數部為 107)
Shift Re<=>Im (顯示虛數部為 31i)
例題10: 解聯立方程 :
只適用於複數模式輸入程式二
注意輸入次序為: 3個x係數，3個y係數，3個z係數，3個常數，3個x係數，3個y係數
按 Prog 1 再按 1 - i EXE 2 + i EXE 3 + 2i EXE EXE
2 + 3i EXE 5 - 2i EXE 1 + 3i EXE EXE
3 + i EXE 4 + 2i EXE 4 - 3i EXE (顯示△實數部為 -138)
Shift Re<=>Im (顯示△虛數部為 -41i) EXE
21 + 16i EXE 8 + 8i EXE 34 + 18i EXE (顯示△x實數部為 -56)
Shift Re<=>Im (顯示△x虛數部為 -317i) EXE
1 - i EXE 2 + i EXE 3 + 2i EXE (顯示 - △y實數部為 399)
Shift Re<=>Im (顯示 - △y虛數部為 -332i) EXE
2 + 3i EXE 5 - 2i EXE 1 + 3i EXE (顯示△z實數部為 -250)
Shift Re<=>Im (顯示△z虛數部為 -675i)
所以 x = (- 56 -371i)/(- 138 - 41i) = 1 + i,
y = - (399 - 332i)/(- 138 - 41i) = 2 - 3i,
z = (- 250 - 675i)/(- 138 - 41i) = 3 + 4i
註1: 紅色的EXE表示不用輸入任何數字，若果你誤按數字，程式會終止，不過你只要再執行程式，繼續輸入未輸入的數據即可。
註2: 當執行程式時，若果立即出現Math ERROR，表示被原先數字記憶影響(機會率非常低)，如果萬一出現上述情況，請先清除所有數字記憶 (按 Mode 1 Shift 9 1 EXE)，再執行程式。若果想完全被免上述情況出現，亦可以執行下列較長一點的附錄程式。
附錄程式一 (REG Lin Mode，83 bytes)
Rec( 0 , 0: 0→C: 0→D: While 1:
ClrStat: YA - DC , DB - XA DT: A→D:
XC - BY→A: B→X: C→Y: Σx→B: Σy→C:
A: ?→A: ?→B: ?→C: AnsA+ ΣxB +ΣyC◢ WhileEnd
程式二 (COMP Mode或 CMPLX mode，87 bytes)
附錄注意: 如要同時計算複數問題，請以複數模式輸入。
ClrMemory: While 1: ?→A: B: ?→B: MA + AnsB→M:
C: ?→C: AnsC + M◢ DB - XA→M: YA - DC→D:
XC - BY→X: C→Y: M→C: X→M: B→X: D→B:
A→D: M→A: WhileEnd
返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集
