解三角形(I)
程式由網友 Kith 提供。
網友提供程式日期: 2009年11月9日
程式可解一個三角形，計算內容與程式正弦、餘弦定律及三角形面積相同，不過使用者不用對正弦及餘弦定律有任何認識，只要輸入三邊及三邊的對應角亦可，答案會依照之前輸入次序顯示。要特別注意，先輸入所有已知邊，之後若有未知的邊則輸入0(否則會出現錯誤)，然後再順序輸入之前三邊的對應角，即順序輸入第一邊的對應角、第二邊的對應角及第三邊的對應角，同樣若未知的角輸入0。
程式需要在 REG Lin 模式下執行，因此在選擇新程式位置後，按 5 1 選用REG Lin模式。
注意: πr 是按 Shift EXP Shift Ans 2，藍色的英文字為統計模式中的變數(minX 按 shift 2 2 1，minY 按 shift 2 2 → 1，Σx 按 Shift 1 2，Σy 按 Shift 1 → 2，n 按 Shift 1 3)。
程式 (287 bytes)
ClrStat: ?→A: ?→B: ?→C: ?→D: ?→X: ?→Y: B(C=0)(DX=0)(Y=0:
DAns≠0 , XAns≠0 DT: Σx => sin-1(A-1Bsin(D→X: Σy =>
sin-1( B-1Asin(X→D: C => cos-1( (A2 + B 2 - C2) ÷(2AB→Y:
DX => πr - D - X →Y: X => πr -X -Y→D: D => πr - D -Y →X:
B => √(A2 + B2 - 2ABcos(Y→C: If DX: Then BC => Goto 0:
A ÷ sin(D→M: Msin(X→B: Msin(Y→C: Else cos-1( (B2 + C2 - A2)
÷ (2BC→D: πr - D - Y →X: IfEnd: Lbl 0: A◢ B◢ C◢ D◢ X◢ Y◢
2-1BCsin(D→M◢ ΣxX>D, ΣyD>X DT: If minx + minY: Then
Abs(D - X→Y: minX => πr - X→X: minY => πr - D→D:
Asin(Y) ÷ sin(D→C: Goto 0
註1: 先輸入所有已知邊，之後若有未知的邊則輸入0(否則會出現錯誤)，然後再順序輸入之前三邊的對應角，即順序輸入第一邊的對應角、第二邊的對應角及第三邊的對應角，同樣若未知的角輸入0即可。
註2: 第一個數(A)不能輸入0，即最少要有一已知邊，否則無法計算。
註3: 最少要有三個已知變數(邊或角)，否則無法計算。若輸入多於三個已知變數，可能只會根據其中三個已知變數進行計算。
例題1: ∠A = 40o，a = 5，∠B = 60o，求b，∠C及c。
注意:要在DEG Mode執行
按 Prog 1 再按 5 EXE 0 EXE 0 EXE 40 EXE 60 EXE 0 EXE (顯示a為5)
EXE (顯示b為6.7365) EXE (顯示c為7.6604)
EXE (顯示∠A為 40o) EXE (顯示∠B為 60o) EXE (顯示∠C為 80o)
EXE (顯示面積為16.5853)
例題2: ∠A = 50o，a = 10，b = 13，求∠B，∠C及c。
注意:要在DEG Mode執行
按 Prog 1 再按 10 EXE 13 EXE 0 EXE 50 EXE 0 EXE 0 EXE (顯示a為10)
EXE (顯示b為13) EXE (顯示c為9.2655)
EXE (顯示∠A為 50o) EXE (顯示∠B為84.7832o) EXE (顯示∠C為 45.2168o)
EXE (顯示面積為46.1355)
EXE (程式未終止及顯示另一組答案，a為10)
EXE (顯示b為13) EXE (顯示c為7.44699)
EXE (顯示∠A為 50o) EXE (顯示∠B為95.2168o) EXE (顯示∠C為 34.7832o)
EXE (顯示面積為37.0807)
請按 AC 終止程式
例題3: ∠A = 150o，a = 10，b = 6，求∠B，∠C及c。
注意:要在DEG Mode執行
按 Prog 1 再按 10 EXE 6 EXE 0 EXE 150 EXE 0 EXE 0 EXE (顯示a為10)
EXE (顯示b為6) EXE (顯示c為4.3432)
EXE (顯示∠A為 150o) EXE (顯示∠B為17.4576o) EXE (顯示∠C為 12.5424o)
EXE (顯示面積為6.51486)
例題4: a=4, b=5, ∠C=40o ，求c及三角形面積。
注意:要在DEG Mode執行
按 Prog 1 再按 4 EXE 5 EXE 0 EXE 0 EXE 0 EXE 40 EXE (顯示a為4)
EXE (顯示b為5) EXE (顯示c為3.2184)
EXE (顯示∠A=53.024o) EXE (顯示∠B=86.976o) EXE (顯示∠C=40o)
EXE (顯示面積為6.4279)
例題5: a=4, b=5, c=6，求∠C及三角形面積。
注意:要在DEG Mode執行
按 Prog 1 再按 4 EXE 5 EXE 6 EXE 0 EXE 0 EXE 0 EXE (顯示a為4)
EXE (顯示b為5) EXE (顯示c為6)
EXE (顯示∠A=41.410o) EXE (顯示∠B=55.771o) EXE (顯示∠C=82.8192o)
EXE (顯示面積為9.9216)
返回 CASIO fx-50FH 及 fx-50F PLUS 程式集