Sine Law

這個程式可以根據輸入來計算在一個三角形中

(1) 已知兩角及一邊 ( 2 angles and 1 side )，第三個角及其餘兩邊的長度，或
(2) 已知兩邊及一非夾角 ( 2 sides and 1 non-included angle )，第三邊的長度及其餘二角

Casio FX-3650P / 3950P / Truly SC-183 / 185

程式組	95 bytes
1	Mem clear : ? → A : ? → B : ? → C : ? → D : D => Goto 1 :
2	π^r – A – B → D ◢ C sin A ÷ sin D ◢ C sin B ÷ sin D ◢
3	Lbl 1 : sin^-1 ( C sin D ÷ B → A ◢ π^r – A – D ◢
4	B sin Ans ÷ sin D ◢ D > A => 0^-1 : π^r – A ◢ A – D ◢
5	B sin Ans ÷ sin D
	MODE MODE MODE 2

Casio FX-50FH / 50F Plus ( 在選擇程式位置後，請按 1 選擇 COMP 模式。)

程式組	99 bytes
1	ClrMemory : ? → A : ? → B : ? → C : ? → D : D => Goto 1 :
2	π^r – A – B → D ◢ C sin (A) ÷ sin (D ◢ C sin (B) ÷ sin (D ◢
3	Lbl 1 : sin^-1 ( C sin (D) ÷ B → A ◢ π^r – A – D ◢
4	B sin (Ans) ÷ sin (D ◢ D > A => 0^-1 : π^r – A ◢ A – D ◢
5	B sin (Ans) ÷ sin (D
	MODE 1

( 上面的 => 是一個特別命令，在 P-CMD 程式命令選單可找到。另外，π^r 是按 π ( SHIFT EXP )，再按 SHIFT Ans 2。)

在執行程式前，請切記將計算機的角度量度單位轉至適合的模式。( 在 Casio FX-3650P / 3950P / Truly SC-183 / 185 上，先按四次 MODE，然後輸入的角是度數 degree 按 1，弧度 radian 按 2；在 Casio FX-50FH / 50F Plus 上，先按 SETUP ( SHIFT MODE )，然後輸入的角是度數 degree 按 1，弧度 radian 按 2。)

以下例子假設計算的答案以度 ( Degree ) 顯示。

例一：A = 60°, B = 70°, c = 10

按 Prog，再按 1 至 4 選擇輸入程式位置 ( 必須和輸入程式時選擇的位置相同，此時計算機出現 A? )，再按

60 EXE  70 EXE  10 EXE
再按 EXE ( 不輸入第四個數，表示選擇輸入兩角及一邊 )
顯示  50  ( C = 50° )
再按 EXE    顯示  11.305 ( a = 11.305 )
再按 EXE    顯示  12.267 ( b = 12.267 )

此時請按 AC 終止程式。

注意：如果給出的邊不是 c 而是 a 或 b，請先以三角形內角和公式計算角 C 的數值，然後再輸入。( 例如，給出的邊是 a，計算角 C 的數值後，再順序輸入角 B、角 C、a，輸出的數順序是角 A、b、c。)

例二：a = 6, b = 5, A = 50°