✔ 最佳答案
1.
此程式可求兩向量 ( Vector ) 的純量積 ( Scalar Product ) 及向量積 ( Vector Product )。重複使用亦可求 a × b‧c,(a × b) × c 及矩陣行列式 ( Determinant )、伴隨矩陣 ( Adjoint ) 等。
程式組
64 bytes
1
? → A : ? → B : ? → C : ? → D : ? → X :
2
? → Y : AD + BX + CY ◢ CD – AY → M :
3
AX – BD → D : BY – CX → A ◢
4
M → B ◢ D → C
MODE MODE MODE 2
例一:設 a = 4i + 5j - k , b = 2i - j + 3k。求 a‧b 及 a × b。
按 Prog,再按 1 至 4 選擇輸入程式位置 ( 必須和輸入程式時選擇的位置相同,此時計算機出現 A? ),再按 4 EXE 5 EXE (-) 1 EXE 2 EXE (-) 1 EXE 3 EXE
顯示 0,亦即是說 ( 4i + 5j - k )‧( 2i - j + 3k ) = 0
再按 EXE 顯示 14 ( a × b 中 i 的係數 coefficient )
再按 EXE 顯示 –14 ( a × b 中 j 的係數 coefficient )
再按 EXE 顯示 –14 ( a × b 中 k 的係數 coefficient )
亦即是說 ( 4i + 5j - k ) × ( 2i - j + 3k ) = 14i - 14j - 14k
例二:設 a = 4i + 5j - k , b = 2i - j + 3k , c = -3i + 2j + k。求 a × b‧c 及 (a × b) × c。
按 Prog,再按 1 至 4 選擇輸入程式位置 ( 必須和輸入程式時選擇的位置相同,此時計算機出現 A? ),再按 4 EXE 5 EXE (-) 1 EXE 2 EXE (-) 1 EXE 3 EXE
再按 4 次 EXE ( 此時計算機出現 A? ),再按 3 次 EXE ( 此時計算機出現 D? ),再按 (-) 3 EXE 2 EXE 1 EXE
顯示 –84,亦即是說 (4i + 5j - k) × (2i - j + 3k)‧(-3i + 2j + k) = –84
再按 EXE 顯示 14 ( (a × b) × c 中 i 的係數 coefficient )
再按 EXE 顯示 28 ( (a × b) × c 中 j 的係數 coefficient )
再按 EXE 顯示 –14 ( (a × b) × c 中 k 的係數 coefficient )
亦即是說 (( 4i + 5j - k ) × ( 2i - j + 3k )) × ( -3i + 2j + k ) = 14i + 28j - 14k
註:a × b‧c 其實就是以 a、b 及 c 為行 ( Row ) 的行列式 ( Determinant ) 的數值,所以本程式也可以計算矩陣行列式。
2.
這個程式會計算一個三階行列式 ( Determinant of Order 3 ) 的數值。
程式組
82 bytes
1
? → A : ? → X : ? → Y : ? → D :
2
DX → C : DY → B : ? → D :
3
DA – C → C : DY → Y : ? → D :
4
B – DA → B : DX – Y → A :
5
? → D : ? → X : ? → Y : DA + XB + YC → D
MODE MODE MODE 2
例:計算
圖片參考:
http://lpl.hkcampus.net/~lpl-wwk/Pictures/Determinant%201.jpg
的值。
按 Prog,再按 1 至 4 選擇輸入程式位置 ( 必須和輸入程式時選擇的位置相同,此時計算機出現 A? ),再按
1 EXE 2 +/- EXE 3 EXE 0 EXE 4 EXE 2 EXE 1 +/- EXE 5 EXE 6 EXE
顯示 30,亦即是說
圖片參考:
http://lpl.hkcampus.net/~lpl-wwk/Pictures/Determinant%202.jpg
程式執行完成後,按 RCL A,RCL B 及 RCL C 分別會顯示第一及第二行的向量 ( Vector ) 的向量積 ( Vector Product ) 的三個部份的數值。上例中,按 RCL A 會顯示 –16,按 RCL B 會顯示 –2,按 RCL C 會顯示 4,亦即是說
( i – 2j + 3k ) × ( 4j + 2k ) = –16i – 2j + 4k