簡單三角方程

程式是參考論壇網友及SuperMANganese的程式編寫 及修改。程式可以解簡單三角方程(正弦、餘弦及正切)， 程式一可以計算出0°≦θ < 360°範圍的兩個解。程式二或程式三可以0°≦θ < n°範圍個解(n為正數)。

程式編寫日期: 2009年8月2日

注意: π^r 是按 Shift EXP Shift Ans 2

程式一 (63 bytes，可計算 0°≦θ < 360° 範圍，使用記憶A, B, C)

?→A: ?→B: tan^-1 B→C: A=0 => sin^-1 B→C:

A=1 => cos^-1 B→C: C≧0 => C◢ 1 + (A=1:

π^r Ans - C(1 - 2(A=2◢ 2π^r + C

程式二 (81 bytes，計算 0°≦θ < n° 範圍，使用記憶A, B, C)

?→A: ?→B: tan^-1 B→C: A=0 => sin^-1 B→C:

A=1 => cos^-1 B→C: C≧0 => C◢ 1 + (A=1:

π^r Ans - C(1 - 2(A=2→B◢ Lbl 0: 2π^r + C→C◢

2π^r + B→B◢ Goto 0

程式三 (79 bytes，計算 0°≦θ < n° 範圍)

Mem clear: ?→A: ?→B: A-1 => 0>BM+: 

tan^-1 B→C: A=0 => sin^-1 B→C:

A=1 => cos^-1 B→C: Lbl 0: M(A≠2:

C cos π^r Ans + π^r (M + D◢ A-1 => D=0→D:

1M+: Goto 0

注意: 以下例題在DEG模式之下執行。

例題1: 若 sin x = 0.5，x在0°≦x < 360°範圍，求x。

按 Prog 1 再按 0 EXE (0代表計算正弦sin) 0.5 EXE (顯示第一個答案為30)

EXE (顯示第二個答案為150)

例題2: 若 cos x = 0.5，x在0°≦x < 360°範圍，求x。

按 Prog 1 再按 1 EXE (1代表計算餘弦cos) 0.5 EXE (顯示第一個答案為60)

EXE (顯示第二個答案為300)

例題3: 若 tan x = √3，x在0°≦x < 360°範圍，求x。

按 Prog 1 再按 2 EXE (2代表計算正切tan) √3 EXE (顯示第一個答案為60)

EXE (顯示第二個答案為240)

註: 程式一可能會顯示第三個解，這個解不在0°≦x < 360°的範圍內，只要忽略即可，或者在顯示第二個解後而程式又未終止時，按AC終止程式亦可。

返回 fx-3650P及SC-185 程式集

程式舊版

程式編寫日期: 2007年3月31日

注意: π^r 是按 Shift EXP Shift Ans 2

程式 (87 bytes)

Mem clear: ?→A: ?→B: 0>B => A - 1 => 1M+:

A=0 => sin^-1 B→C: A=1 => cos^-1 B→C:

A=2 => tan^-1 B→C: Lbl 0: M(A≠2: C cos π^r Ans

+ π^r M(1 + (A=1◢ D=0→D =>1M+ => Goto 0: 0