正弦、餘弦定律及三角形面積
程式更新日期: 2014年8月31日
注意: 新版以0, 1, 2, 3來區分四個不同的情況，為方便記憶，餘弦定律以輸入的邊數作為程式的編號，即是已知兩邊及夾角用2代表，已知三邊用3代表，正弦定律則以0及1代表，0代表最後輸入為角度 (0形狀似角度的單位o)，1代表最後輸入的為邊長 (1形狀似邊)。
這個程式會根據輸入來計算:
(1) 已知兩角及一邊(2 angles and 1 side)，其餘兩邊第三個角
(2) 已知兩邊及一非夾角(2 sides and 1 non-included angle)，其餘二角及第三邊
(3) 已知兩邊及夾角 (2 sides and included angle)，求第三邊 ，其餘兩角及三角形面積
(4) 已知三邊 (3 sides)，求三角及三角形的面積
程式參考了網友八月的意見修改。
注意: πr 是按 Shift EXP Shift Ans 2，而 Pol( 是按 Shift + 。
程式 (149 bytes，使用記憶為A, B, C, D, X及Y):
?→D: ?→A: ?→B: ?→X: If D>1: Then
D=2 => Pol( B - A cos( X , A sin( X◢
cos-1( (B2 + X2 - A2 ) ÷ ( 2BX→C◢
cos-1( A-1( X - B cos( C→Y◢
D≠2 => πr - Y - C◢ . 5 BX sin( C:
Else D => sin-1( B-1X sin( A→X◢ cos-1( D =>
B sin( X ) ÷ sin( A◢ 1: While Ans: πr - A - X◢
B sin( Ans ) ÷ sin( A◢ . 5 BAns sin( X◢
DX>A => πr - X→X◢ WhileEnd
注意: 只有計算正弦定律時才有機會有兩組解答。
註: 如果是使用fx-3650P II或fx-50FH II，上述程式中紫色的開括號 ( 可以省略，程式長度可減1 byte。
∠例題1: ∠A = 40o，a = 5，∠B = 60o，求b，∠C及c。
注意:要在DEG Mode執行
按 Prog 1 再按 0 EXE (正弦定律最後輸入為角度所以用0)
40 EXE 5 EXE 60 EXE (顯示b為6.7365)
EXE (顯示∠C為 80o) EXE (顯示c為7.6604)
EXE (顯示面積為16.5853)
EXE (顯示0及WhileEnd表示計算已完結)
例題2: ∠A = 50o，a = 10，b = 13，求∠B，∠C及c。
注意:要在DEG Mode執行
按 Prog 1再按 1 EXE (正弦定律最後輸入為邊長所以用1)
50 EXE 10 EXE 13 EXE (顯示∠B為84.7832o)
EXE (顯示∠C為 45.2168o) EXE (顯示c為9.2655)
EXE (顯示面積為46.1355)
EXE (顯示另一個∠B的解為95.2168o)
EXE (顯示另一可能∠C為 34.7832o) EXE (顯示另一可能c為7.44699)
EXE (顯示另一可能面積為37.0807)
請按 AC 終止程式
例題3: ∠A = 150o，a = 10，b = 6，求∠B，∠C及c。
注意:要在DEG Mode執行
按 Prog 1再按 1 EXE (正弦定律最後輸入為邊長所以用1)
150 EXE 10 EXE 6 EXE (顯示∠B為17.4576o)
EXE (顯示∠C為 12.5424o) EXE (顯示c為4.3432)
EXE (顯示面積為6.51486)
EXE (顯示0及WhileEnd表示答案只有一組解答)
例題4: a=4, b=5, ∠C=40o ，求c及三角形面積。
注意:要在DEG Mode執行
按 Prog 1 再按 2 EXE (餘弦定律己知兩邊所以用2)
4 EXE 5 EXE 40 EXE (顯示c=3.2184)
EXE (顯示∠A=53.024o)
EXE (顯示∠B=86.976o)
EXE (顯示面積為6.4279)
例題5: a=4, b=5, c=6，求∠C及三角形面積。
注意:要在DEG Mode執行
按 Prog 1 再按 3 EXE (餘弦定律己知三邊所以用3)
4 EXE 5 EXE 6 EXE (顯示∠A=41.410o)
EXE (顯示∠B=55.771o)
EXE (顯示∠C=82.8192o)
EXE (顯示面積為9.9216)
返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集