簡單三角方程

程式一及二是參考論壇網友 、roviury及SuperMANganese的程式編寫及修改,程式三由網友roviury提供。程式可以解簡單三角方程(正弦、餘弦及正切), 程式一可以計算出0°≦θ < 360°範圍的兩個解。程式二可以0°≦θ < n°範圍個解(n為正數)。程式三可以改善了之版本在特殊情況下會出現解答二次的問題,但程式會 增長小許。

程式更新日期: 2014年8月31日

注意: πr 是按 Shift EXP Shift Ans 2,nCr 按 Shift ÷

程式一 (58 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◢

2 nCr A × πr - C cos( πr(A=2◢ 2πr + C

 

程式二 (75 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◢

2 nCr A × πr - C cos( πr(A=2→B◢ While 1:

2πr + C→C◢ 2πr + B→B◢ WhileEnd

 

程式三 (87 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◢ B2 - 1 + sin-1(A=2 =>

2 nCr A × πr - C cos( πr(A=2◢ While 1: Ans→B:

2πr + C→C◢ B => 2πr + B◢ WhileEnd

註: 如果是使用fx-50FH,上述三個程式中紅色的乘號 ×可以省略不輸入,程式長度可節省2 bytes。

 

注意: 以下例題在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終止程式亦可。

 

返回 CASIO fx-50FH、fx-3650P II、fx-50FH II及fx-50F PLUS 程式集

 

 

程式舊版

程式編寫日期: 2008年2月21日

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

程式 (88 bytes)

ClrMemory: ?→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: Ans =>1M+ => Goto 0

 

Free Web Hosting